vba选择集的问题

dage23wo

2. Dim blk As AcadBlockReference
   
3. Private Sub CommandButton1_Click()
   
4. 
   
5. '打开一个图幅
   
6. If Len(Dir("E:\擦窗机总库\底架总成\180固定方管\513.8.dwg")) <> 0 Then
   
7. 
   
8. ThisDrawing.Application.Documents.Open "E:\擦窗机总库\底架总成\180固定方管\513.8.dwg"
   
9. '
   
10. Else
    
11. MsgBox "指定的文件不存在！"
    
12. 
    
13. End If
    
14. 
    
15. 
    
16. '选择该对应的主视图
    
17. 
    
18.     Dim filterType1(0 To 2) As Integer
    
19.     Dim filterData1(0 To 2) As Variant
    
20.     Dim ssetObj1 As AcadSelectionSet
    
21. 
    
22.     filterType1(0) = 2
    
23.     filterData1(0) = "180主视图"
    
24.     filterType1(1) = 100
    
25.     filterData1(1) = "AcDbBlockReference"
    
26. 
    
27.     Set ssetObj1 = CreateSelectionSet("180主视图")
    
28.     ssetObj1.SelectOnScreen filterType1, filterData1
    
29.    
    
30.     If ssetObj1.Count = 0 Then
    
31.         ThisDrawing.Utility.Prompt "用户取消放置状态,退出" & vbCrLf
    
32.         Exit Sub
    
33.     End If
    
34.    
    
35.    
    
36.    
    
37. For Each elem In ssetObj1    '把指定动态块过滤出来
    
38.    
    
39.     Dim vv As Long
    
40.    If blk.IsDynamicBlock Then
    
41.         ' 获得动态块的自定义特性
    
42.         
    
43.         dyBlkPropCol = blk.GetDynamicBlockProperties
    
44.             
    
45.         For vv = 0 To UBound(dyBlkPropCol)
    
46.             Set DBlockProperties = dyBlkPropCol(vv)
    
47.             
    
48.             With DBlockProperties
    
49.         If .PropertyName = "底架轨距" Then
    
50.            .Value = CDbl(GJ)
    
51.          Exit For
    
52.          End If
    
53.          End With
    
54.         Next vv
    
55.    
    
56.     blk.Update
    
57.   End If
    
58.    
    
59.    
    
60. Next
    
61. 
    
62. 
    
63. 
    
64. 
    
65. 
    
66. End Sub

Dim blk As AcadBlockReference<br /> Private Sub CommandButton1_Click()<br /> <br /> '打开一个图幅<br /> If Len(Dir("E:\擦窗机总库\底架总成\180固定方管\513.8.dwg")) <> 0 Then<br /> <br /> ThisDrawing.Application.Documents.Open "E:\擦窗机总库\底架总成\180固定方管\513.8.dwg"<br /> '<br /> Else<br /> MsgBox "指定的文件不存在！"<br /> <br /> End If<br /> <br /> <br /> '选择该对应的主视图<br /> <br />     Dim filterType1(0 To 2) As Integer<br />     Dim filterData1(0 To 2) As Variant<br />     Dim ssetObj1 As AcadSelectionSet<br /> <br />     filterType1(0) = 2<br />     filterData1(0) = "180主视图"<br />     filterType1(1) = 100<br />     filterData1(1) = "AcDbBlockReference"<br /> <br />     Set ssetObj1 = CreateSelectionSet("180主视图")<br />     ssetObj1.SelectOnScreen filterType1, filterData1<br />     <br />     If ssetObj1.Count = 0 Then<br />         ThisDrawing.Utility.Prompt "用户取消放置状态,退出" & vbCrLf<br />         Exit Sub<br />     End If<br />     <br />     <br />     <br /> For Each elem In ssetObj1    '把指定动态块过滤出来<br />     <br />     Dim vv As Long<br />    If blk.IsDynamicBlock Then<br />         ' 获得动态块的自定义特性<br />         <br />         dyBlkPropCol = blk.GetDynamicBlockProperties<br />             <br />         For vv = 0 To UBound(dyBlkPropCol)<br />             Set DBlockProperties = dyBlkPropCol(vv)<br />             <br />             With DBlockProperties<br />         If .PropertyName = "底架轨距" Then<br />            .Value = CDbl(GJ)<br />          Exit For<br />          End If<br />          End With<br />         Next vv<br />     <br />     blk.Update<br />   End If<br />     <br />     <br /> Next<br /> <br /> <br /> <br /> <br /> <br /> End Sub

目的是想通过vba打开一个图幅，选择其中一个名叫“180主视图”动态块，对其中的一个自定义参数进行操作。

zzyong00

你的问题是什么 ？测试文件在哪？
是选不上吗？

    filterType1(0) = 2
    filterData1(0) = "180主视图"
    filterType1(1) = 100
    filterData1(1) = "AcDbBlockReference"
好像顺序反了，试试
    filterType1(0) = 100
    filterData1(0) = "AcDbBlockReference"
    filterType1(1) = 2
    filterData1(1) = "180主视图"

dage23wo

zzyong00 发表于 2015-11-18 22:15
你的问题是什么 ？测试文件在哪？
是选不上吗？

我的问题是不能选中动态块，并且动态块的参数没有驱动

wangshuping42

dage23wo 发表于 2015-11-18 23:12
我的问题是不能选中动态块，并且动态块的参数没有驱动

你还在整这个啊

dage23wo

wangshuping42 发表于 2015-11-23 13:06
你还在整这个啊

主要是老板要搞这个，没办法

wangshuping42

跟你说动态块是没办法用选择集来选中的，好像不支持。
如果要这么做，只能在添加零件的时候给新加入的动态块添加一个标记，以后就用这个标记来选中它。
这个标记可以使扩展数据

dage23wo

wangshuping42 发表于 2015-11-27 14:48
跟你说动态块是没办法用选择集来选中的，好像不支持。
如果要这么做，只能在添加零件的时候给新加入的动态 ...

谢谢前辈的指点，我去试下