Measurement プロパティ(ActiveX)

寸法の計測値を取得します。

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

構文と要素

VBA:

object.Measurement

object

タイプ: Dim3PointAngular、DimAligned、DimAngular、DimArcLength、ametric、DimOrdinate、DimRadial、DimRadialLarge、DimRotated

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

プロパティの値

読み込み専用: はい

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

長さ寸法の場合は長さであり、角度寸法の場合は角度です。

注意

角度寸法以外の場合、このプロパティはシステム変数 DIMLUNIT[長さ寸法表記形式]の値を変更します。

角度寸法の場合、このプロパティはシステム変数 DIMAUNIT[角度単位]の値を変更します。

例

VBA:

Sub Example_Measurement()
    ' This example creates an aligned dimension in model space
    ' and returns the measurement of the dimension; in the case
    ' of a linear dimension, this measurement will be its length
    
    Dim dimObj As AcadDimAligned
    Dim point1(0 To 2) As Double, point2(0 To 2) As Double
    Dim location(0 To 2) As Double
    Dim CurrentValue As String
    
    ' Define the dimension
    point1(0) = 5: point1(1) = 5: point1(2) = 0
    point2(0) = 9: point2(1) = 5: point2(2) = 0
    location(0) = 5: location(1) = 7: location(2) = 0
    
    ' Create an aligned dimension object in model space
    Set dimObj = ThisDrawing.ModelSpace.AddDimAligned(point1, point2, location)
    ThisDrawing.Application.ZoomAll

    ' Read and display current measurement
    MsgBox "The current measurement of the new dimension is: " & dimObj.Measurement
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_Measurement()
    ;; This example creates an aligned dimension in model space
    ;; and returns the measurement of the dimension; in the case
    ;; of a linear dimension, this measurement will be its length
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; Define the dimension
    (setq point1 (vlax-3d-point 5 5 0)
          point2 (vlax-3d-point 9 5 0)
          location (vlax-3d-point 5 7 0))
    
    ;; Create an aligned dimension object in model space
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq dimObj (vla-AddDimAligned modelSpace point1 point2 location))
    (vla-ZoomAll acadObj)

    ;; Read and display current measurement
    (alert (strcat "The current measurement of the new dimension is: " (rtos (vla-get-Measurement dimObj) 2)))
)