空对象指针-为什么？
以下代码在最后一行生成空对象指针错误。我直接从帮助文件中复制了这段代码，所以我不确定它为什么会崩溃。我已经尝试了半打事情，比如更改声明的类型，但没有任何帮助。我错过了什么？我试图用两个不同的过滤器抓取两个选择集，并将它们组合成一个选择集。
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'
页:
[1]