如何求几根线围成的区域面积

tiger0101

   如何求几根线围成的区域面积

   线可以为Line,或lwLine,曲线

  急求

wyj7485

Sub test()
    On Error Resume Next

    Dim n As Long
    n = ThisDrawing.ModelSpace.Count
    
       Dim Pt As Variant
Here:
    Err = 0
    Pt = ThisDrawing.Utility.GetPoint(, "请指定内部点: ")
    If Err Then GoTo Here
    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
    Else
        MsgBox "未发现有效的刃口,请检查可视区域是否闭合. "  

End If
End Sub

fjfhgdwfn

不错.

tiger0101

3ku

写得非常好

arden

ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr
不知道大家在用这个命令时碰到困难没有,我用起真是头痛,很多时候都不能生成正确的边界(当然不是周围的线没闭合),但是把周围的线一起移到图形的空白地方时同样操作一次基本上又都能生成正确的边界,想不出是什么原因

yuangw1234

牛