[求助]：有谁能提供由若干线围成的面积VB源码

acepublic · 发表于 2006-8-3 08:37:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有谁能提供由若干线围成的面积VB源码,线可以是Line,Pline

tigersapce · 发表于 2006-8-9 19:16:23

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

昨天明经上看到了

acepublic · 发表于 2006-8-10 10:05:13

[tigersapce ]太酷了,很好用啊,万分感谢!!!!!

账号		自动登录	找回密码
密码			立即注册

[求助]：有谁能提供由若干线围成的面积VB源码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子