特定图层上特定文本的过滤器设置问题

draw

在实体选择中使用过滤机制时，要选的实体是文本Text，且这些Text全在某一特定层上，如Dm层上。其中组码FilterType及组码值FilterData能否组合？怎样组合？
    材料中介绍的组码值FilterData可以使用同配符。
    如：FData（0）=“S*，C*”  语句可以选择以S和C开头的实体类型，即样条曲线（Soline）和（Circle）圆。

draw

我找到了一个解决办法。

mccad

既然自己找到了方法，不防写出来大家共享。
另外，以后提问题时请在主题中写清楚提问的主要内容，以方便大家浏览及回答，不要每次提问都写上“这个问题怎样解决”，我记得你已经写了这样的主题有几次了，这样不利于大家的浏览，也不利于自己查看。

draw

首先用令组码FilterType=8，组码值FilterData=“Dm”
      ssetobj.Select acSelectionSetAll, , , filtertype, filterdata
      这时的选择集中均为实体
      定义二个对象变量分别为textobj，entobj
      在选择集中遍历entobj实体，同时用其句柄设置textobj选择集
      这时就可以对textobj选择集进行操作了。

  Dim textobj As AcadText
  filtertype =8
  filterdata =“Dm”
  ssetobj.Select acSelectionSetAll, , , filtertype, filterdata
  Dim enobj As AcadEntity
  For Each enobj In ssetobj
      Set textobj = acadapp.ActiveDocument.HandleToObject(pic.Handle)
      na = textobj.TextString
  Next

draw

(pic.Handle)应为(enobj.Handle)

efan2000

有点问题：
1、如果enobj是文字对象，那么通过它的句柄再转成对象就多此一举了吧。直接使用Set textobj = enobj就可以了。
2、如果enobj不是文字对象，那么即使通过它的句柄转成对象，所得到的依然不是文字对象，这时不管使用Set textobj = acadapp.ActiveDocument.HandleToObject(pic.Handle)，还是Set textobj = enobj都会发生错误，对象的类型不一致。
3、如果仅得到文字对象，那么选择的应该只选择Dm层上的文字。此时构成过滤机制应该为：
filtertype(0) =8
filterdata(0) =“Dm”
filtertype(1)=0
filtertype(1)="Text"

draw

明白了，将下列四句：
    filtertype(0) =8
    filterdata(0) =“Dm”
    filtertype(1)=0
    filtertype(1)="Text"
组合成过滤机制，就是问题之所在！不过我找到的办法确实运行通过了。
    多谢！