cad_vba中的选择集过滤

《cad_vba中的选择集过滤》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、CAD中的选择集过滤一、选择集过滤时的使用方式如下：Object指使用SelectionSet这个方法适用的对象运用select方法上面的例题已经运用了select方法,下面讲一下select的5种Mode选择方式:1:择全部对象(acselectionsetall)2.选择上次创建的对象(acselectionsetlast)3.选择上次选择的对象(acselectionsetprevious)4.选择矩形窗口内对象(acselectionsetwindow)5.选择矩形窗口内以及与边界相交的对象(acselectionsetcross

2、ing)1)     object.SelectMode[,Point1][,Point2][,FilterType][,FilterData] 2)     object.SelectOnScreen[FilterType][,FilterData] 3)     object.SelectAtPointPoint,FilterType,FilterData FilterType:Variant[变体](整数数组);仅用于输入;(可选项)指定使用的过滤器类型的DXF组码。FilterData:Variant[变体](变体数组);仅用于输

3、入;(可选项)过滤器的值。二、DXF群组码共同群组码代码一览表群码说明预设值-4过滤群组方式,例如、、、单一条件时可省略-1图元名称(会随每一个图档开启而有所不同)不可省略0图元类型,例如"ARC"、"LINE"、"CIRCLE"...不可省略5处理码不可省略6线型名称(如果线型不为"BYLAYER",此群码值会出现)BYLAYER8图层名称不可省略48线性比例(选择性)1.060物件可见性,0=可见,1=不可见062颜色编号(如果线型不为"BYLAYER",此群群码会出

4、現)当值为0時,即指BYLAYER,如果是负值即指该图层是关闭的(选择性)BYLAYER67值为空或0时即指图元在模型空间,如果为1指在图形空间0三、过滤群组方式-FilterType(DXF群组码)=-4过滤群组方式內含项目描述运算法则""1或多个所有项目的交集1+1=1,1+0=0,0+1=0,0+0=0""1或多个所有项目的并集1+1=1,1+0=1,0+1=1,0+0=0""2个两个项目的异或运算1+1=0,1+0=1,0+1=1,0+0=0"

5、."NOT>"1个不包含此项目的值 NOT(1)=0,NOT(0)=1四、范例：1、过滤条件为图元为MTEXT图元是MTEXTFilterDataMTEXTFilterType02、过滤条件为图元为CIRCLE或LINE图元是CIRCLEOR图元是LINEFilterDataFilterType-400-43、过滤条件为图元在DIM图层(LAYER)中的CIRCLE或LINE (图元是CIRCLEOR图元是LINE)AND图层位于DIM层FilterDataDIMAN

6、D>FilterType-4-400-48-44、过滤的条件为图元为CIRCLE或LINE但图层(LAYER)不属于DIM层(图元是CIRCLEOR图元是LINE)ANDNOT(图层位于DIM层)FilterDataAND>FilterType-4-400-4-48-4-4名称：获取与修改AutoCADEntity的XData 功能：获取与修改AutoCADEntity的XData。 源代码： '南方CASS实体编码的应用程序名strAppName=south PublicFu

7、nctionGetCode(objEntAsAcadEntity,strAppNameAsString)AsVariant DimdTypeAsVariant,dDataAsVariant,iAsInteger IfHasXData(objEnt,strAppName)=FalseThen GetCode="" Else objEnt.GetXDatastrAppName,dType,dData Fori=LBound(dType)ToUBound(dType) IfdType(i)=1000Then GetCode=dData(i) E

8、xitFor EndIf Nexti EndIf EndFunction PublicFunctionSetCode(ByValobjEntAsAcadEntity,ByValstrTextA