[VBA函数]：多边形的面积计算程序

CCHH138 · 发表于 2004-10-13 19:19:59

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

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

×

请高手帮写一个多边形的面积计算程序。如在CAD里面绘好平面图点击平面图中央自动计算出面积。。。。

雪山飞狐(lzh) · 发表于 2004-10-13 19:39:00

调用-boundary命令生成面域，面域的面积就是多边形的面积

CCHH138 · 发表于 2004-10-13 21:52:59

不能计算出面积

雪山飞狐(lzh) · 发表于 2004-10-13 22:03:31

最初由 CCHH138 发布
[B]不能计算出面积 [/B]

什么意思？

CCHH138 · 发表于 2004-10-13 23:02:53

看不太懂（调用-boundary命令生成面域，面域的面积就是多边形的面积）能帮写个加载宏吗？？？

雪山飞狐(lzh) · 发表于 2004-10-14 08:56:06

Sub tt()
pnt = ThisDrawing.Utility.GetPoint
ThisDrawing.SendCommand "-boundary" & vbCr & "a" & vbCr & "o" & vbCr & "r" & vbCr & vbCr & pnt(0) & "," & pnt(1) & vbCr & vbCr
Set pr = ThisDrawing.ModelSpace(ThisDrawing.ModelSpace.Count - 1)
MsgBox pr.Area
pr.Delete
End Sub

CCHH138 · 发表于 2004-10-16 10:25:42

请问斑竹：
如何把程序加载在CAD里面？？？

自由的鱼 · 发表于 2004-10-18 21:06:28

最初由 CCHH138 发布
[B]请问斑竹：
如何把程序加载在CAD里面？？？ [/B]

在CAD的命令行中输入"vbaide",然后把代码COPY进去，运行就可以了！

freeme · 发表于 2004-10-19 21:02:49

你找一下,论坛有这方面的帖子!几个版本!

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

[VBA函数]：多边形的面积计算程序

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

相关帖子