shiqiang 发表于 2004-7-4 10:02:00

请教高手，改动以下代码，使之做体积的查询

Sub test()<BR>                       Dim n As Long<BR>                       n = ThisDrawing.ModelSpace.Count<BR>                       Dim Pt As Variant<BR>                       Pt = ThisDrawing.Utility.GetPoint(, " 指定内部点")<BR>                       ThisDrawing.SendCommand "_-Boundary" &amp; vbCr &amp; Pt(0) &amp; "," &amp; Pt(1) &amp; vbCr &amp; vbCr<BR>                       Dim lwpLineObj As AcadLWPolyline<BR>                       If ThisDrawing.ModelSpace.Count &gt; n Then<BR>                                                       Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)<BR>                                                       MsgBox lwpLineObj.Area<BR>                                                       lwpLineObj.Delete<BR>                       Else<BR>                                                       MsgBox "未发现有效的边界"<BR>                       End If<BR>End Sub<BR>

mccad 发表于 2004-7-4 13:07:00

查询体积直接使用Volume属性就可以查询得到。

shiqiang 发表于 2004-7-4 21:58:00

我是新手，烦请老师写一段简单的代码，谢谢！！！
页: [1]
查看完整版本: 请教高手，改动以下代码，使之做体积的查询