Vla-put-centertype

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-put-centertype vla-object type)


機能
半径寸法および直径寸法の中心マークの種類を設定する。


引数
  • vla-object … VLAオブジェクト(DimDiametric、DimRadial、DimRadialLarge)
  • type … 中心マークの種類
  • acDimCenterType 列挙型
  • acCenterMark
  • acCenterLine
  • acCenterNone


戻り値
nil


MEMO:

  • このプロパティは、CenterType プロパティを変更する。
  • このプロパティは、指定された寸法でシステム変数 DIMCEN[中心サイズ]の値を変更する。


サンプル
(vl-load-com)
(defun c:Example_CenterMarkSize()
    ;; モデル空間に直径寸法を作成して。
    ;; 寸法の中心点種類を変更するサンプル。
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
  
    ;; 寸法の設定
    (setq chordPoint (vlax-3d-point 5 3 0)
          farChordPoint (vlax-3d-point 5 5 0)
          leaderLength 1)
    
    ;; 直径寸法を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimDiametric modelSpace chordPoint farChordPoint leaderLength))
    (vla-ZoomAll acadObj)
            
    (setq ctype (vla-get-CenterType dimObj))
    (cond 
      ((= ctype 'acCenterNone) (alert "現在の中心点タイプは : none"))
      ((= ctype 'acCenterMark) (alert "現在の中心点タイプは : 点"))
      ((= ctype 'acCenterLine) (alert "現在の中心点タイプは : 線"))
    )

    ;; 中心タイプ:なしに変更
    (vla-put-CenterType dimObj acCenterNone)
    (vla-Update dimObj)
    (alert "中心タイプ:none に変更。")

    ;; 中心タイプ:点に変更
    (vla-put-CenterType dimObj acCenterMark)
    (vla-Update dimObj)
    (alert "中心タイプ:点 に変更。")

    ;; 中心タイプ:線に変更
    (vla-put-CenterType dimObj acCenterLine)
    (vla-Update dimObj)
    (alert "中心タイプ:線 に変更。")
)

関連事項