Vla-get-extensionlineweight

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

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

機能: 寸法補助線の線の太さを指定する。

引数

vla-object … VLAオブジェクト（Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimOrdinate、DimRotated）

戻り値

線の太さ。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 に設定されている場合にのみ表示可能。
注 : このプロパティは、指定された寸法でシステム変数 DIMLWE[寸法補助線太さ]の値を変更する。

サンプル

(vl-load-com)
(defun c:Example_ExtensionLineWeight()
    ;; モデル空間で Dim3PointAngular オブジェクトを作成し、
    ;; ExtensionLineWeight プロパティを使用して厚い値に延長線の太さを変更
    (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-ExtensionLineWeight DimPointAngularObj))
    (cond
        ((= acLnWtByLayer CurrentSetting)(setq CurrentSetting "ByLayer"))
        ((= acLnWtByBlock CurrentSetting)(setq CurrentSetting "ByBlock"))
        ((= acLnWtByLwDefault CurrentSetting)(setq CurrentSetting "ByDefault"))
	                                            (setq CurrentSetting (itoa CurrentSetting))
    )
    
    (alert (strcat "現在の線の太さ設定は: " CurrentSetting))

    ;; 1.0 に変更
    (vla-put-ExtensionLineWeight DimPointAngularObj acLnWt100)
    (vla-Regen doc acAllViewports)
    
    ;; 表示
    (alert (strcat "新しい線の太さ設定は : " (itoa (vla-get-ExtensionLineWeight DimPointAngularObj))))
    
    ;; 戻す
    (vla-put-ExtensionLineWeight DimPointAngularObj oldLWSetting)
)