[求助]blockref 与 getboundingbox 的问题

xiangzhong · 发表于 2007-1-7 21:51:00

代码如下：
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。怎么回事呢？
程序确确实实能够选择所有的块，而且名字也都是正常的，但是只要调用getboundingbox方法，要么为空，要么
就直接退出当前函数了，
请大侠们指教

wyj7485 · 发表于 2007-1-8 09:08:00

该程序正常的啊，不知你是否有SelSet.Delete语句

palagon · 发表于 2007-1-8 10:21:00

在我这里可以得到的

copy


Dim BlkRef As AcadBlockReference
Dim SelSet As AcadSelectionSet
Set SelSet = ThisDrawing.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
  MsgBox BlkRef.Name
  BlkRef.GetBoundingBox minPoint, maxPoint
Next
If Not SelSet Is Nothing Then SelSet.Delete

xiangzhong · 发表于 2007-1-8 16:52:00

我把我的图纸上传下，大侠们棒棒忙看下，谢谢

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:aeljhqspjvk.rar
下载次数:0 文件大小:7.86 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

wyj7485 · 发表于 2007-1-8 17:09:00

对的啊

copy

Sub test()
Dim BlkRef As AcadBlockReference
Dim SelSet As AcadSelectionSet
Set SelSet = ThisDrawing.SelectionSets.Add("SelSet0")
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
   BlkRef.GetBoundingBox minPoint, maxPoint
   MsgBox maxPoint(0)
Next
SelSet.Delete
End Sub

[求助]blockref 与 getboundingbox 的问题

发表回复

精选推荐