[VBA程序]：求助:如何求任意线交叉形成的多边形的面积?

YAMA

请问,我想在VBA中实现这个功能，在多边形内点击一下，就得出面积？
谢谢

efan2000

实现方法如下：

2. 
   
3.   [FONT=courier new]
   
4. Public Function Boundary(ByVal Point As Variant) As AcadLWPolyline
   
5.     On Error Resume Next
   
6.     Dim PrevTotal As Long
   
7.     PrevTotal = ThisDrawing.ModelSpace.Count
   
8.     ThisDrawing.SetVariable "NOMUTT", 1 '禁止不确定的消息反馈
   
9.     ThisDrawing.SendCommand "_-boundary" & vbCr & Point(0) & "," & Point(1) & vbCr & vbCr '调用BOUNDARY命令获取一点的边界
   
10.     ThisDrawing.SetVariable "NOMUTT", 0 '恢复普通模式的消息反馈
    
11. 
    
12.     If ThisDrawing.ModelSpace.Count.Count > PrevTotal Then
    
13.         Set Boundary = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
    
14.     End If
    
15. End Function
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> Public Function Boundary(ByVal Point As Variant) As AcadLWPolyline<br />     On Error Resume Next<br />     Dim PrevTotal As Long<br />     PrevTotal = ThisDrawing.ModelSpace.Count<br />     ThisDrawing.SetVariable "NOMUTT", 1 '禁止不确定的消息反馈<br />     ThisDrawing.SendCommand "_-boundary" & vbCr & Point(0) & "," & Point(1) & vbCr & vbCr '调用BOUNDARY命令获取一点的边界<br />     ThisDrawing.SetVariable "NOMUTT", 0 '恢复普通模式的消息反馈<br /> <br />     If ThisDrawing.ModelSpace.Count.Count > PrevTotal Then<br />         Set Boundary = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)<br />     End If<br /> End Function<br />   [/FONT]<br />

YAMA

谢谢，还是XDCAD高手多啊