Arrowhead1Type プロパティ(ActiveX)

寸法線の第 1 端点のカスタム矢印のタイプを指定します。

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

構文と要素

VBA: 

object.Arrowhead1Type
object

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

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

プロパティの値

読み込み専用: いいえ

タイプ: acDimArrowheadType 列挙型

注意

このプロパティの初期値は acArrowDefault です。

このプロパティが acArrowUserDefined に設定されている場合、Arrowhead1Block プロパティを使用してカスタム矢印として使用するブロックを指定します。

注: このプロパティは、指定された寸法でシステム変数 DIMBLK1[矢印名 1]の値を変更します。

例

VBA: 

Sub Example_ArrowHead1Type()
    ' This example creates a Dim3PointAngular object in model space
    ' and then alters the visible appearance (shape) of its arrowheads
    ' using the ArrowHead1Type and ArrowHead2Type properties
    
    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 arrowhead type
    MsgBox "The arrowhead type for the first arrow of this object is: " & DimPointAngularObj.Arrowhead1Type & vbCrLf & _
           "The arrowhead type for the second arrow of this object is: " & DimPointAngularObj.Arrowhead2Type

    ' Alter the arrowhead type property for both arrows of this object
    DimPointAngularObj.Arrowhead1Type = acArrowBoxBlank
    DimPointAngularObj.Arrowhead2Type = acArrowBoxBlank
    ThisDrawing.Regen acAllViewports
    
    ' Read and display current arrowhead type
    MsgBox "The arrowhead type for the first arrow of this object is now set to: " & DimPointAngularObj.Arrowhead1Type & vbCrLf & _
           "The arrowhead type for the second arrow of this object is now set to: " & DimPointAngularObj.Arrowhead2Type
End Sub

Visual LISP: 

(vl-load-com)
(defun c:Example_ArrowHead1Type()
    ;; This example creates a Dim3PointAngular object in model space
    ;; and then alters the visible appearance (shape) of its arrowheads
    ;; using the ArrowHead1Type and ArrowHead2Type properties
    (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 arrowhead type
    (alert (strcat "The arrowhead type for the first arrow of this object is: " (itoa (vla-get-Arrowhead1Type DimPointAngularObj))
                   "\nThe arrowhead type for the second arrow of this object is: " (itoa (vla-get-Arrowhead2Type DimPointAngularObj))))

    ;; Alter the arrowhead type property for both arrows of this object
    (vla-put-Arrowhead1Type DimPointAngularObj acArrowBoxBlank)
    (vla-put-Arrowhead2Type DimPointAngularObj acArrowBoxBlank)
    (vla-Regen doc acAllViewports)

    ;; Read and display current arrowhead type
    (alert (strcat "The arrowhead type for the first arrow of this object is now set to: " (itoa (vla-get-Arrowhead1Type DimPointAngularObj))
                   "\nThe arrowhead type for the second arrow of this object is now set to: " (itoa (vla-get-Arrowhead2Type DimPointAngularObj))))
)