ArrowheadSize プロパティ(ActiveX)

寸法線の矢印、引出線とマルチ引出線の矢印、およびフック ラインのサイズを指定します。

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

構文と要素

VBA:

object.ArrowheadSize

object

タイプ: Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated、Leader、MLeader、MLeaderLeader

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

プロパティの値

読み込み専用: いいえ

タイプ: 倍精度浮動小数点数型

矢印のサイズは 0.0 以上の正の実数で指定しなければなりません。

注意

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

矢印サイズの倍数によって、寸法線と寸法値が寸法補助線の間に収まるかどうかが決まります。このプロパティは、DIMBLK[矢印名]により設定されている場合、矢印ブロックの尺度設定にも使用されます。このプロパティは、DIMTSZ[斜線サイズ]の値が 0(ゼロ)以外の場合、無効です。

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

例

VBA:

Sub Example_ArrowHeadSize()
    ' This example creates a Dim3PointAngular object in model space
    ' and then alters the visible appearance (size) of its arrowheads
    ' using the ArrowHeadSize 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 arrowhead size
    MsgBox "The arrowhead size for this object is currently set to: " & DimPointAngularObj.ArrowheadSize

    ' Alter the arrowhead size property for this object
    DimPointAngularObj.ArrowheadSize = 0.5
    ThisDrawing.Regen acAllViewports
    
    ' Read and display new arrowhead size setting
    MsgBox "The arrowhead size for this object is now set to: " & DimPointAngularObj.ArrowheadSize
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_ArrowHeadSize()
    ;; This example creates a Dim3PointAngular object in model space
    ;; and then alters the visible appearance (size) of its arrowheads
    ;; using the ArrowHeadSize 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 arrowhead size
    (alert (strcat "The arrowhead size for this object is currently set to: " (rtos (vla-get-ArrowheadSize DimPointAngularObj) 2)))

    ;; Alter the arrowhead size property for this object
    (vla-put-ArrowheadSize DimPointAngularObj 0.5)
    (vla-Regen doc acAllViewports)
    
    ;; Read and display new arrowhead size setting
    (alert (strcat "The arrowhead size for this object is now set to: " (rtos (vla-get-ArrowheadSize DimPointAngularObj) 2)))
)