[求助]关于实现文本查找功能的求助贴。

stevenwong

各位好，小弟最近在做一个小小的项目采用Delphi开发欲实现文本的查找功能（可以在MTEXT\TEXT\ACDBMTEXT中查找）遇到

了很棘手的问题。为什么当类型是ACDBMTEXT的时候就查找不到呢？请问怎么解决啊？下面蓝色的内容是我从AutoCAD中的帮助

中看到的好像是关于在ACDBMTEXT中查找的方法，但是小弟技术不高不知道怎么将下面红色的部分转换成delphi代码，

那位好心的大哥给帮个忙，小弟在这里万分感谢。

我试着用 

   fltrType:=VarArrayCreate([0,6], varSmallint); //2
   fltrData:=VarArrayCreate([0,6], Varvariant);
   xyz:=VarArrayCreate([0,3], varSingle);

   fltrType[0]:=-4;
   fltrType[1]:=0;
   fltrType[2]:=0;
   fltrType[3]:=100;
   fltrType[4]:=10;
   fltrType[5]:=-4;
   fltrType[6]:=1;

   xyz[0]:=0;xyz[1]:=40;xyz[2]:=40;
   fltrData[0]:='<OR';
   fltrData[1]:='MTEXT';
   fltrData[2]:='TEXT';
   fltrData[3]:='AcDbMText';
   fltrData[4]:=xyz;
   fltrData[5]:='OR>';
   fltrData[6]:='*说明*';

CadSs.Select(5,emptyparam,emptyparam,fltrType,fltrData);

但是运行到 CadSs.Select(5,emptyparam,emptyparam,fltrType,fltrData);这里就会出错。请问到底应该给filtertype=10

的filterdate赋值啊。谢谢各位大哥了。

(entmake '(

 (0 . "MTEXT")

 (100 . "AcDbEntity")   ; Required for all post-R12 entities.

 (8 . "ALAYER")

 (100 . "AcDbMText")    ; Identifies the entity as MTEXT.

			(10 4.0 4.0 0.0)

 (1 . "Some\\Ptext")

 )

)