[编程申请]：一个初学者的求助

xs212549 · 发表于 2005-8-3 11:19:22

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

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

×

请问各位高手,在VBA里,有什么办法可以利用闭合区域内的一个点,就能计算出这个闭合区域的面积?

rjy206 · 发表于 2005-8-3 13:54:12

不可能把

xs212549 · 发表于 2005-8-3 14:47:58

是不是难度很大啊，还请斑竹明示

雪山飞狐(lzh) · 发表于 2005-8-3 15:11:54

发送－boundary命令

dgp000 · 发表于 2005-8-4 07:58:38

我这里有个例子
Sub CurrentLayerArea1()
  Dim SpaceCount As Long  '图形空间总的实体数目
  Dim Pt As Variant  '用户获得的任意一点
  SpaceCount = ThisDrawing.ModelSpace.Count
' 调用BOUNDARY命令获取某一点处的边界
  Pt = ThisDrawing.Utility.GetPoint(, "指定内部点: ")
  ThisDrawing.SendCommand "_-Boundary" & vbCr & Pt(0) & "," & Pt(1) & vbCr & vbCr
  ' 如果存在边界，则会生成新的实体
  Dim lwpLineObj As AcadLWPolyline
  If ThisDrawing.ModelSpace.Count > SpaceCount Then
Set lwpLineObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.Count - 1)
MsgBox lwpLineObj.Area
lwpLineObj.Delete
  Else
MsgBox "未发现有效的边界。", vbQuestion, "信息提示"
  End If
End Sub

ps122 · 发表于 2005-8-4 08:31:44

这块我刚做过，生成面域以后还可以得到其他特性，楼上的方法可行

xs212549 · 发表于 2005-8-4 16:13:36

谢谢dgp000 ,谢谢大家!!

zqsntws · 发表于 2005-8-5 08:53:02

正好我也在我也在做这块，可以借鉴一下！

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

[编程申请]：一个初学者的求助

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

相关帖子