Vla-get-extensionlinecolor
- 構文
- (vla-put-extensionlinecolor vla-object)
- 機能
- 寸法補助線の色を取得する。
- 引数
-
- vla-object … VLAオブジェクト（Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimOrdinate、DimRotated）
- 戻り値
- 0 から 256 のカラー インデックス番号か、以下の定数のうちの 1 つを使う。
- acByBlock
- acByLayer
- acRed
- acYellow
- acGreen
- acCyan
- acBlue
- acMagenta
- acWhite
- MEMO ： 色を設定し、0 ～ 256 の範囲の数値のインデックス値として読み込むことができる。標準の 7 色だけでなく、ByBlock と ByLayer の名前にも、定数がある。
- acByBlock を使用すると、AutoCAD は新しいオブジェクトを作成する際、ブロックにグループ化するまでは既定の色(環境設定により白または黒)を使用する。ブロックを図面に挿入すると、ブロック内のオブジェクトは現在の色のプロパティを継承する。
- acByLayer を使用すると、新しいオブジェクトには画層の色が適用される。
- このプロパティは、指定された寸法でシステム変数 DIMCLRE[補助線の色]の値を変更する。
- サンプル
(vl-load-com)
(defun c:Example_ExtensionLineColor()
;; 3点角度寸法を作成して補助線の色を変えるサンプル
(setq acadObj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument acadObj))
;; 3点角度寸法の定義
(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))
;; 3点角度寸法を作成
(setq modelSpace (vla-get-ModelSpace doc))
(setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
(vla-ZoomAll acadObj)
;; 寸法線の設定を読み込み
(alert (strcat "現在の寸法補助線の色 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj))))
;; 寸法補助線の色を変更
(vla-put-ExtensionLineColor DimPointAngularObj acRed)
(vla-Regen doc acAllViewports)
;; Read and display current extension line color
(alert (strcat "寸法補助線の色を次に変更 : " (itoa (vla-get-ExtensionLineColor DimPointAngularObj)) " (Red)"))
)
関連事項