为什么这段代码会生成Er
我的项目中只有两个功能：初始化和OK按钮。初始化部分完成所有工作。OK按钮只会取消表单。当我点击OK按钮时，它执行下面的两行，然后生成错误91，所以我不知道它在说什么对象。有什么想法吗？私有子btnOk_Click（）
我隐藏
卸载我
末端接头
Private Sub UserForm_Initialize（）
将ssetObj设置为AcadSelectionSet
Dim intMode为整数
Dim grpCode（0）为整数
Dim dataVal（0）作为变量
我隐藏
设置ssetObj=ThisDrawing。选择集。添加（“SS01”）
intMode=acSelectionSetAll
grpCode（0）=0
dataVal（0）=“KS\U形状”
ssetObj。选择intMode、grpCode、dataVal
如果是ssetObj。然后计数>0
MsgBox“找到了。”，VBOK仅限
如果结束
ssetObj。删去
我显示
末端接头
页:
[1]