[code]Dim ssetObj As AcadSelectionSetDim ssetObj2 As AcadSelectionSetDim ssObjs（0到1000）As AcadEntityDim grpCode（0）As IntegerDim dataVal（0）As VariantDim lngIdx As LongDim sgllelength As SingleSet ssetObj=此图纸。选择集。添加（“CopyItemNumbers”）设置ssetObj2=ThisDrawing。选择集。Add（“CopyItemNumbers2”）intMode=acSelectionSetAll grpCode（0）=0'仅抓取形状dataval（0）=“KS\u形状”ssetObj。选择intMode，，grpCode，dataVal“抓取匹配实体dataVal（0）=“KS\U板”'仅抓取板SSSETOBJ2。选择intMode、grpCode、dataVal“抓取匹配实体”从第二个集合sglLength=ssetObj2创建对象数组。对于lngIdx=0到sglLength Set ssObjs（lngIdx）=ssetObj2，计数-1lngIdx=0。项目（lngIdx）下一个TSSETOBJ。添加项ssObjs'
置顶卡
