如何编写VBA求解多个不规则封闭图形的总面积，总周长，个数？

hjm1688 · 发表于 2004-3-18 13:10:00

明总这个程序在我实用中有启发，但我先要请教一个菜鸟问题：如何引用（加载）curve类（老出编译错误）?先谢过，盼回复！

ishou · 发表于 2004-4-4 22:50:00

'myfreemind: (3楼) 删除存在的选择集
If ThisDrawing.SelectionSets.Count > 0 Then
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
End If -------------------- 上面的 item (i) 中的 i 好象要改成常数 0

efan2000 · 发表于 2004-4-5 12:30:00

使用For i = ThisDrawing.SelectionSets.Count - 1 To 0就不需要。

ishou · 发表于 2004-4-5 18:48:00

efan2000: （13楼）使用For i = ThisDrawing.SelectionSets.Count - 1 To 0就不需要。
------------------------------------------ 这行程序码不能省！

efan2000 · 发表于 2004-4-13 11:02:00

是这样的，删除集合时，会引起集合中的数目变化。 For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next 比如：本来集合中的数目是5个，删除1个之后只有4个了，但计数器i的循环次数依然没有改变，是从0-4的，因而后面的就会出错，因为已经不存在了。 For i = ThisDrawing.SelectionSets.Count - 1 To 0 ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next 计数器i的循环是从4-0的，所以没有影响。

无痕 · 发表于 2004-4-14 23:32:00

vl

用get－area属性，vlax-curve系列很容易解决

pfrynwgkq · 发表于 2004-11-3 17:58:00

做建筑的正需要这个。。谢了。。

兰州人 · 发表于 2007-12-8 21:53:00

mccad发表于2003-10-29 22:57:00注意程序需要加载VLAX类和CURVE类程序处理过程调用了(gc)来强制释放内存，不然会出错。Sub GetTolArea() ThisDrawing.SendCommand \"(vl-load-com)\" & vbCr

此帖子必要认真研究一下。

aa2567 · 发表于 2008-1-19 17:29:00

这个程序太好了，可以解决实际问题，如果再改进一点就更好了，

如果点在空处会出错，我真傻，明摆着要点框，我却去框选。

实际应用中，如果要多次框选，如何修改?

wr_9 · 发表于 2008-7-10 09:48:00

已经加载,但是如何调用命令呢?

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

如何编写VBA求解多个不规则封闭图形的总面积，总周长，个数？

求命令?