ExtensionLineColor プロパティ(ActiveX)

寸法補助線の色を指定します。

サポートされているプラットフォーム: Windows のみ

構文と要素

VBA:

object.ExtensionLineColor

object

タイプ: Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimOrdinate、DimRotated

このプロパティが適用されるオブジェクト。

プロパティの値

読み込み専用: いいえ

タイプ: acColor 列挙型

0 から 256 のカラー インデックス番号か、以下の定数のうちの 1 つを使ってください。

• acByBlock
• acByLayer
• acRed
• acYellow
• acGreen
• acCyan
• acBlue
• acMagenta
• acWhite

注意

色を設定し、0 ～ 256 の範囲の数値のインデックス値として読み込むことができます。標準の 7 色だけでなく、ByBlock と ByLayer の名前にも、定数があります。

acByBlock を使用すると、AutoCAD は新しいオブジェクトを作成する際、ブロックにグループ化するまでは既定の色(環境設定により白または黒)を使用します。ブロックを図面に挿入すると、ブロック内のオブジェクトは現在の色のプロパティを継承します。

acByLayer を使用すると、新しいオブジェクトには画層の色が適用されます。

注: このプロパティは、指定された寸法でシステム変数 DIMCLRE[補助線の色]の値を変更します。

例

VBA:

Sub Example_ExtensionLineColor()
    ' This example creates a Dim3PointAngular object in model space
    ' and changes the extension line color to red using the ExtensionLineColor property
    
    Dim DimPointAngularObj As AcadDim3PointAngular
    Dim AngleVertex(0 To 2) As Double
    Dim FirstPoint(0 To 2) As Double, SecondPoint(0 To 2) As Double
    Dim TextPoint(0 To 2) As Double
    
    ' Define the new Dim3PointAngular object
    AngleVertex(0) = 0: AngleVertex(1) = 0: AngleVertex(2) = 0
    FirstPoint(0) = 2: FirstPoint(1) = 2: FirstPoint(2) = 0
    SecondPoint(0) = 1: SecondPoint(1) = 4: SecondPoint(2) = 0
    TextPoint(0) = 6: TextPoint(1) = 6: TextPoint(2) = 0

    ' Create the new Dim3PointAngular object in model space
    Set DimPointAngularObj = ThisDrawing.ModelSpace.AddDim3PointAngular(AngleVertex, FirstPoint, SecondPoint, TextPoint)
    ThisDrawing.Application.ZoomAll

    ' Read and display current dimension line color
    MsgBox "The extension line color for this object is currently set to: " & DimPointAngularObj.ExtensionLineColor

    ' Change the extension line color
    DimPointAngularObj.ExtensionLineColor = acRed
    ThisDrawing.Regen acAllViewports
    
    ' Read and display current extension line color
    MsgBox "The extension line color for this object is now set to: " & DimPointAngularObj.ExtensionLineColor & " (Red)"
    
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ExtensionLineColor()
    ;; This example creates a Dim3PointAngular object in model space
    ;; and changes the extension line color to red using the ExtensionLineColor property
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the new Dim3PointAngular object
    (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))

    ;; Create the new Dim3PointAngular object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
    (vla-ZoomAll acadObj)

    ;; Read and display current dimension line color
    (alert (strcat "The extension line color for this object is currently set to: " (itoa (vla-get-ExtensionLineColor DimPointAngularObj))))

    ;; Change the extension line color
    (vla-put-ExtensionLineColor DimPointAngularObj acRed)
    (vla-Regen doc acAllViewports)
    
    ;; Read and display current extension line color
    (alert (strcat "The extension line color for this object is now set to: " (itoa (vla-get-ExtensionLineColor DimPointAngularObj)) " (Red)"))
)