DimensionLineColor プロパティ(ActiveX)

寸法オブジェクト、引出線オブジェクト、幾何公差オブジェクトの寸法線の色を指定します。

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

構文と要素

VBA: 

object.DimensionLineColor
object

タイプ: Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimRadial、DimRadialLarge、DimRotated、Leader、Tolerance

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

プロパティの値

読み込み専用: いいえ

タイプ: acColor 列挙型

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

注意

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

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

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

寸法オブジェクトに色を割り当てると、寸法線、矢印、寸法引出線にこの色が適用されます。

注: このプロパティは、指定された寸法、引出線、または幾何公差オブジェクトでシステム変数 DIMCLRD[寸法線の色]の値を変更します。

例

VBA: 

Sub Example_DimensionLineColor()
    ' This example creates a Dim3PointAngular object in model space
    ' and changes the dimension line color to red using the DimensionLineColor 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 dimension line color for this object is currently set to: " & DimPointAngularObj.DimensionLineColor

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

Visual LISP: 

(vl-load-com)
(defun c:Example_DimensionLineColor()
    ;; This example creates a Dim3PointAngular object in model space
    ;; and changes the dimension line color to red using the DimensionLineColor 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 dimension line color for this object is currently set to: " (itoa (vla-get-DimensionLineColor DimPointAngularObj))))

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