Vla-get-dimensionlineweight

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

構文: (vla-get-dimensionlineweight vla-object )

機能: 寸法線の線の太さを取得する。

引数

vla-object … VLAオブジェクト(Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimRadial、DimRadialLarge、DimRotated、Leader)

戻り値

線の太さ（acLineWeight 列挙型）

acLnWtByLayer
acLnWtByBlock
acLnWtByLwDefault
acLnWt000
acLnWt005
acLnWt009
acLnWt013
acLnWt015
acLnWt018
acLnWt020
acLnWt025
acLnWt030
acLnWt035
acLnWt040
acLnWt050
acLnWt053
acLnWt060
acLnWt070
acLnWt080
acLnWt090
acLnWt100
acLnWt106
acLnWt120
acLnWt140
acLnWt158
acLnWt200
acLnWt211

MEMO：このプロパティの初期値は acLnWtByBlock。
線の太さの設定は、LineweightDisplay プロパティが True に設定されている場合にのみ表示可能。

サンプル

(vl-load-com)
(defun c:Example_DimensionLineWeight()
    ;; 寸法を作成して寸法線の太さを変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences doc))
  
    ;; 線の太さ表示をONに
    (setq oldLWSetting (vla-get-LineWeightDisplay preferences))
    (vla-put-LineWeightDisplay preferences :vlax-true)
    
    ;; 寸法の定義
    (setq AngleVertex (vlax-3d-point 0 0 0)
          FirstPoint (vlax-3d-point 2 2 0)
          SecondPoint (vlax-3d-point 1 4 0)
          TextPoint (vlax-3d-point 6 6 0))

    ;; 寸法を作成
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)

    ;; 寸法線の太さの既定値を読み込み
    (setq CurrentSetting (vla-get-DimensionLineWeight DimPointAngularObj))
    (cond
        ((= acLnWtByLayer CurrentSetting)(setq CurrentSetting "ByLayer"))
        ((= acLnWtByBlock CurrentSetting)(setq CurrentSetting "ByBlock"))
        ((= acLnWtByLwDefault CurrentSetting)(setq CurrentSetting "ByDefault"))
	(setq CurrentSetting (itoa CurrentSetting))
    )
  
    (alert (strcat "現在の寸法線の線の太さは: " CurrentSetting))

    ;; 変更
    (vla-put-DimensionLineWeight DimPointAngularObj acLnWt100)
    (vla-Regen doc acAllViewports)
    
    ;; 読み込み
    (alert (strcat "新しい寸法線の線の太さは : " (itoa (vla-get-DimensionLineWeight DimPointAngularObj))))
    
    ;; 戻す
    (vla-put-DimensionLineWeight DimPointAngularObj oldLWSetting)
)