如何获得已知块名的块的位置??

leonn123

有vba的例程吗?
objectarx的也可以

mccad

用选择集选择图形中指定块名的块，然后遍历所有的图块，并取得插入点位置或框位置。

efan2000

下面的两种方法都可以实现：

2. 
   
3. Sub Test1()
   
4.     Dim BlockRefObj As AcadBlockReference
   
5.     Dim EntObj As AcadEntity
   
6.    
   
7.     Dim BlockName As String
   
8.     BlockName = "块名"
   
9.    
   
10.     '遍历模型空间，判断实体的类型。如果是块，判断块名。
    
11.    
    
12.     For Each EntObj In ThisDrawing.ModelSpace
    
13.         If TypeOf EntObj Is AcadBlockReference Then
    
14.             Set BlockRefObj = EntObj
    
15.             If BlockRefObj.Name = BlockName Then
    
16.                 Debug.Print "插入点位置: " & BlockRefObj.InsertionPoint(0) & BlockRefObj.InsertionPoint(1)
    
17.             End If
    
18.         End If
    
19.     Next
    
20. End Sub
    
21. 
    
22. Sub Test2()
    
23.     Dim BlockRefObj As AcadBlockReference
    
24.     Dim EntObj As AcadEntity
    
25.     Dim SSetObj As AcadSelectionSet
    
26.    
    
27.     Dim BlockName As String
    
28.     BlockName = "块名"
    
29.    
    
30.     '使用过滤机制，全部选中指定名称的块。
    
31.    
    
32.     On Error Resume Next
    
33.     Set SSetObj = ThisDrawing.SelectionSets("Test")
    
34.     If Err Then
    
35.         Err.Clear
    
36.         Set SSetObj = ThisDrawing.SelectionSets.Add("Test")
    
37.     End If
    
38.     SSetObj.Clear
    
39.     On Error GoTo 0
    
40.    
    
41.     Dim GroupCode(0 To 1) As Integer
    
42.     Dim DataValue(0 To 1) As Variant
    
43.     GroupCode(0) = 0
    
44.     DataValue(0) = "INSERT"
    
45.     GroupCode(1) = 2
    
46.     DataValue(1) = BlockName
    
47.    
    
48.     SSetObj.Select acSelectionSetAll, , , GroupCode, DataValue
    
49.     For Each EntObj In SSetObj
    
50.         Set BlockRefObj = EntObj
    
51.         If BlockRefObj.Name = BlockName Then
    
52.             Debug.Print "插入点位置: " & BlockRefObj.InsertionPoint(0) & BlockRefObj.InsertionPoint(1)
    
53.         End If
    
54.     Next
    
55. End Sub
    

<br /> Sub Test1()<br />     Dim BlockRefObj As AcadBlockReference<br />     Dim EntObj As AcadEntity<br />     <br />     Dim BlockName As String<br />     BlockName = "块名"<br />     <br />     '遍历模型空间，判断实体的类型。如果是块，判断块名。<br />     <br />     For Each EntObj In ThisDrawing.ModelSpace<br />         If TypeOf EntObj Is AcadBlockReference Then<br />             Set BlockRefObj = EntObj<br />             If BlockRefObj.Name = BlockName Then<br />                 Debug.Print "插入点位置: " & BlockRefObj.InsertionPoint(0) & BlockRefObj.InsertionPoint(1)<br />             End If<br />         End If<br />     Next<br /> End Sub<br /> <br /> Sub Test2()<br />     Dim BlockRefObj As AcadBlockReference<br />     Dim EntObj As AcadEntity<br />     Dim SSetObj As AcadSelectionSet<br />     <br />     Dim BlockName As String<br />     BlockName = "块名"<br />     <br />     '使用过滤机制，全部选中指定名称的块。<br />     <br />     On Error Resume Next<br />     Set SSetObj = ThisDrawing.SelectionSets("Test")<br />     If Err Then<br />         Err.Clear<br />         Set SSetObj = ThisDrawing.SelectionSets.Add("Test")<br />     End If<br />     SSetObj.Clear<br />     On Error GoTo 0<br />     <br />     Dim GroupCode(0 To 1) As Integer<br />     Dim DataValue(0 To 1) As Variant<br />     GroupCode(0) = 0<br />     DataValue(0) = "INSERT"<br />     GroupCode(1) = 2<br />     DataValue(1) = BlockName<br />     <br />     SSetObj.Select acSelectionSetAll, , , GroupCode, DataValue<br />     For Each EntObj In SSetObj<br />         Set BlockRefObj = EntObj<br />         If BlockRefObj.Name = BlockName Then<br />             Debug.Print "插入点位置: " & BlockRefObj.InsertionPoint(0) & BlockRefObj.InsertionPoint(1)<br />         End If<br />     Next<br /> End Sub<br />

JerryGPS

有个奇怪的问题，
我用的是AddLWPolyLine来创建的对象
选择时用
“LightWeightPolyLine"却不行
用“polyline"才可以，
这是什么道理

我用AddPolyLine创建的对象
选择时用“Polyline"也不行了，不知道用什么好

JerryGPS

lubing

有没有C#的例子啊

 

yanyanjun999

谢谢了，帮助很大，终于让我可以已知块名改此块的属性了，大好人了

e688w

谢谢，这个对我的帮助也挺大的!

e688w

还是选择集靠谱。遍历图纸的画，如果图形数据较多，半天都没反应啊！