求助，VBA编程，计算CAD任意图形的面积的程序。紧急

大灰狼1976

抄书

2. Public Sub GetArea()
   
3. Dim n&
   
4. n = ThisDrawing.ModelSpace.Count
   
5. Dim pt
   
6. pt = ThisDrawing.Utility.GetPoint(, "选择内部点：")
   
7. ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr
   
8. 
   
9. Dim objPoly As AcadLWPolyline
   
10. If ThisDrawing.ModelSpace.Count > n Then
    
11.   Set objPoly = ThisDrawing.ModelSpace.Item(n)
    
12.   MsgBox objPoly.Area
    
13.   objPoly.Delete
    
14. Else
    
15.   MsgBox "未发现有效边界！"
    
16. End If
    
17. End Sub

Public Sub GetArea()<br /> Dim n&<br /> n = ThisDrawing.ModelSpace.Count<br /> Dim pt<br /> pt = ThisDrawing.Utility.GetPoint(, "选择内部点：")<br /> ThisDrawing.SendCommand "-Boundary" & vbCr & pt(0) & "," & pt(1) & vbCr & vbCr<br /> <br /> Dim objPoly As AcadLWPolyline<br /> If ThisDrawing.ModelSpace.Count > n Then<br />   Set objPoly = ThisDrawing.ModelSpace.Item(n)<br />   MsgBox objPoly.Area<br />   objPoly.Delete<br /> Else<br />   MsgBox "未发现有效边界！"<br /> End If<br /> End Sub