精确查找和定位CAD中文字,支持两个单行文字的组合,或是一个多行文字,如:10PT(上)88(下)
function SearchCADText(strFind:String;Layer:string;underLine,mGroup:Boolean;var Point:variant):boolean;
strFind:要精确查找的文字
Laye:所在图层,==''时在所有图层中查找
underline:是否带下划线
mGroup:组合查找,若是两个单行文字,之间用眼镜符'@-@'分隔(随你怎么更改)如10PT@-@88
Point: 查找成功时返回要查找文字的坐标
1