[求助]：怎样将一个块加入到选择集中?

xiaokai

请问
怎样将一个块加入到选择集中?
请给出具体点的代码
谢谢!*-*8

雪山飞狐(lzh)

不太明白你的意思，把你的意图说清楚好么

xiaokai

我已经建立了一个选择集,我知道怎么往这个选择集中加入一般对象,如直线,文字,但要加入选择集中的对象如果是一个图块的话该怎么加入选择集中呢,比如要将图中名为"ttest"的图块加入到刚才的那个选择集中,编程怎么做?
谢谢!

雪山飞狐(lzh)

块引用可以加入选择集，而块不能，概念错误了

xiaokai

那块引用怎么加入选择集?
谢谢

雪山飞狐(lzh)

过滤器为：
ft(0)=0:fd(0)="insert"
ft(1)=2:fd(1)=blockname

xiaokai

这过滤器后面的参数有什么语法吗，如把ft(1)=2改成ft(1)=3,行不？
谢谢！

雪山飞狐(lzh)

不能
过滤器过滤的是DXF组码，ft是组码号，fd是对应的值，命令行键入(entget(car(entsel)))，选择一个块引用，有下列信息：

命令: (entget(car(entsel)))

选择对象: ((-1 . <图元名: 40066d90>) (0 . "INSERT") (330 . <图元名: 40066cf8>)
(5 . "32") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbBlockReference") (2 . "myblk1") (10 123.879 176.572 0.0) (41 . 1.0) (42 .
1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0
1.0))

xiaokai

有点深懊了
如果我的图中有两个以上的块
我怎么才能都把它门加入到选择集中?
谢谢

雪山飞狐(lzh)

2. Sub tt()
   
3. On Error Resume Next
   
4. 
   
5. Dim ss As AcadSelectionSet
   
6. ThisDrawing.SelectionSets("Test").Delete
   
7. Set ss = ThisDrawing.SelectionSets.Add("Test")
   
8. 
   
9. Dim ft(1) As Integer, fd(1)
   
10. blockname = "myblk1"
    
11. ft(0) = 0: fd(0) = "insert"
    
12. ft(1) = 2: fd(1) = blockname
    
13. 
    
14. ss.Select acSelectionSetAll, , , ft, fd
    
15. MsgBox ss.Count
    
16. ss.Delete
    
17. End Sub
    

Sub tt()<br /> On Error Resume Next<br /> <br /> Dim ss As AcadSelectionSet<br /> ThisDrawing.SelectionSets("Test").Delete<br /> Set ss = ThisDrawing.SelectionSets.Add("Test")<br /> <br /> Dim ft(1) As Integer, fd(1)<br /> blockname = "myblk1"<br /> ft(0) = 0: fd(0) = "insert"<br /> ft(1) = 2: fd(1) = blockname<br /> <br /> ss.Select acSelectionSetAll, , , ft, fd<br /> MsgBox ss.Count<br /> ss.Delete<br /> End Sub<br />

xiaokai

不是吧 这好象才加了一个块
不是两个以上的例子

雪山飞狐(lzh)

原来是两种块的引用，问题太含糊了。。。
把blockname = "myblk1"改为blockname = "myblk1,myblk2"

evaporated

请教下
请问用 selectionset.additem blockrefname
这种办法行吗？

xiaokai

如果不知道图中有多少个块,也不知道块名
怎样一一把它门列出来呢?