关于选择集的getboundingbox问题！

qflut · 发表于 2008-7-8 22:53:00

我想知道一个选择集中所选对象的最大最小点，但是选择集没有getboundingbox，也不能直接用于copyobjects，于是我用for each把选择集赋给一个acadentity数组，再用copyobjects做成块再参照，获取ptmin和ptmax。然后删除块参照和块。发现在VB里面for each实在太耗时，简直无法忍受。但是好像就是我逐个对象用getboundingbox再对坐标排序也绕不过这个for each。我的需求很简单，就是获取选择集中对象的最大和最小的那两个点坐标。大家有没有好的着可以实现阿！在VB里面不是VBA。谢谢先