求助:怎样求面积??

路边

在CAD中画 四条相交的直线，怎样能在相交的四边形中点一点而求出四边形面积？？

wyj7485

首先获得边界,由该边界多段线的面积属性可得.

路边

老兄,怎样获得边界啊??

wyj7485

Sub test()
   
    ' 当前图纸的实体数目
    Dim n As Long
    n = ThisDrawing.ModelSpace.Count
   
    ' 调用BOUNDARY命令获取某一点处的边界
    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

路边

太感谢老兄了