[VBA]探讨关于编组和Boundary创建边界的两个问题

arden

１、我在图形中使用了编组，但当我把有编组的图形用复制命令并且粘贴到另外的图形上后图形的编组信息就没有了，大家有没有办法解决？

2、为了计算面积我采用了Boundary命令生成边界，但boundary命令是不是只有当外围的线都同时显示在屏幕上后才能生成边界，这样的话如果我要将细条形的图形（比如一条很长的路）同时显示在屏幕上后基本上就成了一根线了，这样想用鼠标点取内部点就办不到了，这种情况有没有其它办法处理？

3、使用boundary时有的图形怎么都生成不了外围边界，（检查外围的图形又是闭合了的）不知道大家有没遇到过，怎么解决？

这几个问题郁闷了好久了，希望能得到解决，先谢谢

gyl

后面两个问题我也遇到过，没有找到好的解决办法。有时候用直线把封闭区域分割成几个区域就可以找到边界，加起来可以得到总面积，感觉到很莫名其妙。

arden

还有一种情况就是用boundary命令不能正确生成边界时我单独用多段线围绕周围重新画一个完全闭合的图形也还是不能生成边界，但是当把重新画的闭合多段线移到另一位置时用boubdary命令又能生成边界了，真是百思不得其解！

用boundary命令的限制性是不是太多了，如果不用的话又有没有其它好一点的办法呢？就象gyl说的那样假如“用直线把封闭区域分割成几个区域就可以找到边界”这样的话本来人家是一条路结果分成了几条就不好向别人解释了。

雪山飞狐_lzh

1、建一个组

[WEB]http://www.mjtd.com/object/acad2004/idh_group_object.htm[/WEB]

2、可以在VBA中选点后，将图形Zoom All再调用命令

3、没办法，该命令的自身问题，无法解决

arden

谢谢lzh741206的回答,第二个问题照你的方法我想应该能解决(还没试),不过第一个问题我是说怎么解决编组后的图形经复制粘贴后原来的编组信息就没有了(不存在编组了)?并不是问怎样建一个编组.