[VBA]BlockRef 和GetBoundingBox的问题

uhuang

代码如下：
Dim BlkRef As AcadBlockReference
Dim SelSet As AcadSelectionSet
Set SelSet = AcadDoc.SelectionSets.Add("SelSet1")
Dim aaa(0) As Integer   'Select 条件1：选择类型
Dim aaa1(0) As Variant  'select 条件2：选择图元
Dim maxPoint As Variant
Dim minPoint As Variant
aaa(0) = 0     '图元类型
aaa1(0) = "INSERT"    '图块
SelSet.Select acSelectionSetAll, , , aaa, aaa1       '选择所有图块
For Each BlkRef In SelSet
  Debug.Print BlkRef.Name
  BlkRef.GetBoundingBox minPoint, maxPoint
Next

这段程序用来得到所有块的BoundingBox的，但是，得到的minPoint和maxPoint 都是Empty。 怎么回事呢？

uhuang

Debug 是打出了块的Name。

uhuang

怎么没人来救救我啊

mycad

我怎末调试什么都不出现啊

mccad

程序有问题吗？试过是OK的。

1. For Each BlkRef In SelSet
2.   Debug.Print BlkRef.Name
3.   BlkRef.GetBoundingBox minPoint, maxPoint
4.   Debug.Print minPoint(0)
5.   Debug.Print maxPoint(0)
6. Next

复制代码

结果

1. 3
2. 278.463452734819
3. 516.445439272681
4. 2
5. 523.912385855595
6. 715.06599226921
7. 1
8. 776.508228177512
9. 1161.69556927903

复制代码

uhuang

不公平啊，同样的程序 mccad 可以调出东西来，为什么我们就不行啊？

uhuang

Re: mccad
是不是块里含有什么特殊的东西，就不能用GetBoundingBox了呢？
我的块里有：
AcDbPolyline
AcDbLine
AcDbLine
AcDbRotatedDimension
AcDbText
AcDbRotatedDimension
AcDbText
AcDbPolyline
AcDbLine
AcDbPolyline
AcDbText
AcDbText
AcDbRotatedDimension
AcDbLine

evaporated

这个问题我也遇到了。GETBOUNDINGBOX我在程序中用过许多处。
但是有一处对块参照或外部参照使用时，就出现范围值为空的情况。

程序代码我可以保证是对的。多次调试之后，只好认为是autocad的bug了。

mccad

1.GETBOUNDINGBOX确实有些不稳定。
2.它对于射线、构造线无效。如果你的块中包含有这样的对象，就无效。

evaporated

我也发现了它的不稳定。在带有属性的块的情况下，

有好多次它就突然失效了。代码一点没动过，很奇怪