tiger0101 发表于 2006-8-8 15:18:00

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

如何求几根线围成的区域面积
   线可以为Line,或lwLine,曲线
急求

wyj7485 发表于 2006-8-8 15:35:00

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 发表于 2006-8-8 18:45:00

不错.

tiger0101 发表于 2006-8-22 21:16:00

3ku
写得非常好

arden 发表于 2006-9-9 17:01:00

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

yuangw1234 发表于 2006-9-10 12:16:00

牛
页: [1]
查看完整版本: 如何求几根线围成的区域面积