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

shiqiang

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

mccad

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

shiqiang

我是新手，烦请老师写一段简单的代码，谢谢！！！