CAD开发者社区 › 首页 ›AutoCAD开发文档› AutoCAD 2020 开发者帮助 › 查看内容

AutoCAD 2020 开发者帮助

Measurement 属性（ActiveX）

2024-5-18 18:22| 发布者: admin| 查看: 18| 评论: 0|原作者: admin|来自: AutoCAD

获取维度的度量值。

支持的平台：仅限 Windows

签名

VBA：

object.Measurement

对象

类型：Dim3PointAngular、DimAligned、DimAngular、DimArcLength、DimDiametric、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

可视化 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)))
)