cad vba的块和参照过滤方法

《cad vba的块和参照过滤方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、共享一下 CAD-VBA中，屏幕选择集中对块参照的过滤方法，供参考：'''''''''''''''''''''''''''''''''''''''''''''''''''DimmelemAsAcadEntityDimselsetCollectionAsAcadSelectionSets'定义选择集集合Dimi,jAsLongDimentAsObject''''''''''''''''''''查找图形中的每个选择集,是否已存在SetselsetCollection=ThisDrawing.SelectionSetsi=0j=0ForEachFilterSetInselsetCo

2、llectionIf"xxx"=FilterSet.NameThen’’’’”xxx”为自己想用的选择集名j=1ExitForEndIfi=i+1NextIfj=0ThenSetFilterSet=ThisDrawing.SelectionSets.Add("xxx")ElseFilterSet.ClearEndIf‘’’’’’’定义过滤器数组，设定过滤参数DimsFilterType(1)AsIntegerDimsFilterData(1)AsVariantsFilterType(0)=100sFilterData(0)="AcDbBlockReference"sFilte

3、rType(1)=2sFilterData(1)="~"FilterSet.SelectOnScreensFilterType,sFilterData‘’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’’另附DXF组码表，以便对上段程式的理解；DXF下表列出了组码或组码范围以及组码值的解释。在此表中，“固定”表明组码始终具有相同的用途。如果组码不固定，则其用途取决于上下文。关于此表中使用的缩写和格式方

4、面的信息。按数字次序排列的组码组码说明-5APP：永久反应器链-4APP：条件运算符（仅与ssget一起使用）-3APP：扩展数据(XDATA)标记（固定）-2APP：图元名参照（固定）-1APP：图元名。每次打开图形时，图元名都会发生变化，从不保存（固定）0表示图元类型的字符串（固定）1图元的主文字值2名称（属性标记、块名等）3-4其他文字或名称值5图元句柄；最多16个十六进制数字的字符串（固定）6线型名（固定）7文字样式名（固定）8图层名（固定）9DXF：变量名称标识符（仅在DXF文件的HEADER段中使用）10主要点；直线或文字图元的起点、圆的圆心，等等DXF：主要点的

5、X值（后跟Y和Z值代码20和30）APP：三维点（三个实数的列表）11-18其他点DXF：其他点的X值（后跟Y值代码21-28和Z值代码31-38）APP：三维点（三个实数的列表）20,30DXF：主要点的Y值和Z值21-28,31-37DXF：其他点的Y值和Z值38DXF：如果非零，则为图元的标高39如果非零，则为图元的厚度（固定)40-48双精度浮点值（文字高度、缩放比例等）48线型比例；双精度浮点标量值；默认值适用于所有图元类型49重复的双精度浮点值。一个图元的可变长度表（例如，LTYPE表中的虚线长度）中可能会出现多个49组。7x组始终出现在第一个49组之前，用以指定

6、表的长度50-58角度（在DXF文件中以度为单位，在AutoLISP和ObjectARX应用程序中以弧度为单位）60图元可见性；整数值；未赋值或值为0时表示可见；值为1时表示不可见62颜色号（固定）66“图元跟随”标志（固定）67空间—模型空间或图纸空间（固定）68APP：指示视口是处于打开状态但在屏幕上完全不可见，还是未激活或处于关闭状态69APP：视口标识号70-78整数值，例如重复计数、标志位或模式90-9932位整数值100子类数据标记（将派生类名作为字符串）从其他具体类派生的所有对象和图元类必须具有此标记。子类数据标记用于分离由同一对象的继承链中的不同类定义的数据。

7、对于从ObjectARX派生的每个不同的具体类的DXF名称来说，这是必须满足的额外要求102控制字符串，后跟“{<任意名称>”或“}”。与扩展数据1002组码类似，不同之处在于当字符串以“{”开始时，其后可跟任意字符串，字符串的解释取决于应用程序。唯一允许的另外一个控制字符串是作为组结束符的“}”。除了执行图形核查操作期间外，AutoCAD不会解释这些字符串。它们供应用程序使用105DIMVAR符号表条目的对象句柄110UCS原点（仅当将代码72设置为1时才显示）DXF：X值；APP：三维点111UCS