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

AutoCAD 2022 开发者帮助

Area 属性（ActiveX）

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

Area 属性（ActiveX）

指定圆弧、圆、椭圆、填充线、轻量级折线、折线、区域或平面闭合样条的封闭区域。

支持的平台：仅限 Windows

签名

VBA：

object.Area

对象

类型：圆弧、圆形、椭圆、剖面线、LWPolyline、折线、区域、样条

此属性应用于的对象。

属性值

只读：否，对于对象;是，对于所有其他对象Circle

类型：双

以正方形图形单位指定的对象的面积。

言论

剖面线对象：: 填充的组合区域的总面积。
宽折线：: 该区域由宽度的中心定义。
地区：: 面积等于该区域中所有对象的总面积。
打开对象，例如圆弧、样条曲线和打开多段线：: 面积的计算方式就好像一条直线连接起点和终点一样。

例子

VBA：

Sub Example_Area()
    ' This example creates a polyline object and
    ' then uses the area property to find the
    ' area of that polyline.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 5) As Double
    Dim plineArea As Double

    ' Establish the points for the Polyline
    points(0) = 3: points(1) = 7
    points(2) = 9: points(3) = 2
    points(4) = 3: points(5) = 5
    
    ' Create the polyline in model space
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
    ' Close the polyline and update display of it
    plineObj.Closed = True
    plineObj.Update
    ZoomAll
    
    ' Get the area of the polyline
    plineArea = plineObj.Area
    
    MsgBox "The area of the new Polyline is: " & plineArea, vbInformation, "Area Example"
End Sub

可视化 LISP：

(vl-load-com)
(defun c:Example_Area()
    ;; This example creates a polyline object and
    ;; then uses the area property to find the
    ;; area of that polyline.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))  

    ;; Establish the points for the Polyline
    (setq points (vlax-make-safearray vlax-vbDouble '(0 . 5)))
    (vlax-safearray-fill points '(3 7
				  9 2
				  3 5
				 )
    )
    
    ;; Create the polyline in model space
    (setq modelSpace (vla-get-ModelSpace doc))  
    (setq plineObj (vla-AddLightWeightPolyline modelSpace points))
    
    ;; Close the polyline and update display of it
    (vla-put-Closed plineObj :vlax-true)
    (vla-Update plineObj)
    (vla-ZoomAll acadObj)
    
    ;; Get the area of the polyline
    (setq plineArea (vla-get-Area plineObj))
    
    (alert (strcat "The area of the new Polyline is: " (rtos plineArea 2)))
)