Vla-put-centertype

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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 "中心タイプ：線 に変更。")
)