用菜单中的插入块命令插入的块，如何读块的属性、插入点及比例？

neteasy

假设有一个块名为ABC的块，用菜单中的插入块命令插入到图形中，用VBA如何按块名找到这个块，然后读取块的属性、插入点及比例？

efan2000

刚插入的块应该是最后一个实体，可以使用Set BlockRefObj = ThisDrawing.ModelSpace.Item(ThisDrawing.ModelSpace.count-1)来返回，之后就是对块引用进行操作了。使用GetAttributes返回所有的块属性集合，而InsertionPoint是返回插入点，XScaleFactor 、YScaleFactor 、ZScaleFactor分别返回三个方向的比例因子了。

neteasy

如果不是刚刚插入的块怎么办，能不能根据块名来查找？

mccad

可以啊，可以通过过滤器来查找得到块。

neteasy

能讲清楚一些吗？我实在是搞不懂了!!

mccad

2. Sub SelectBlock()
   
3.     Dim ss As AcadSelectionSet
   
4.     On Error Resume Next
   
5.     Set ss = ThisDrawing.SelectionSets.Add("mccad")
   
6.     If Err Then
   
7.         Set ss = ThisDrawing.SelectionSets("mccad")
   
8.         ss.Clear
   
9.     End If
   
10.     Dim fType(1) As Integer
    
11.     Dim fData(1) As Variant
    
12.     fType(0) = 0
    
13.     fData(0) = "INSERT"    '此处为块引用的图元类型
    
14.     fType(1) = 2
    
15.     fData(1) = "mccad"     '此处为块引用的名称
    
16.     ss.Select acSelectionSetAll, , , fType, fData
    
17.     ss.Highlight (True)
    
18.     MsgBox "亮显的对象为满足条件的图块对象，" _
    
19.            & vbCrLf & vbCrLf & "总数： " & ss.Count, , _
    
20.            "明经通道VBA示例"
    
21.     ss.Highlight (False)
    
22. End Sub
    

Sub SelectBlock()<br />     Dim ss As AcadSelectionSet<br />     On Error Resume Next<br />     Set ss = ThisDrawing.SelectionSets.Add("mccad")<br />     If Err Then<br />         Set ss = ThisDrawing.SelectionSets("mccad")<br />         ss.Clear<br />     End If<br />     Dim fType(1) As Integer<br />     Dim fData(1) As Variant<br />     fType(0) = 0<br />     fData(0) = "INSERT"    '此处为块引用的图元类型<br />     fType(1) = 2<br />     fData(1) = "mccad"     '此处为块引用的名称<br />     ss.Select acSelectionSetAll, , , fType, fData<br />     ss.Highlight (True)<br />     MsgBox "亮显的对象为满足条件的图块对象，" _<br />            & vbCrLf & vbCrLf & "总数： " & ss.Count, , _<br />            "明经通道VBA示例"<br />     ss.Highlight (False)<br /> End Sub<br />

neteasy

谢谢版主，万分感谢！！！