如何使用activeX中的AcadSelectionSet？

fl_stone

我从VBA的帮助文件中拷入如下一段代码： Private Sub CommandButton1_Click()
' This example adds entities to a selection set by prompting the user
' to select entities to add.

' Create the selection set
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")

' Add entities to a selection set by prompting user to select on the screen
ssetObj.SelectOnScreen
End Sub
运行后出错，提示 方法'Add'作用于对象'IAcadSelectionSets'时失败 我是一个初学者，没有使用过activeX，请问使用activeX前是否要加载相关控件？

supercorn

在Acad200?Doc.lsp文件里加入



(vl-load-com)

fl_stone

Acad2000Doc.lsp                 这个文件我已经找到了


但是不知道         


(vl-load-com) 应该加在哪个地方啊?


望告知！


谢谢

雪山飞狐_lzh

和(vl-load-com)无关 这段代码只是个例子，实际要用的时候要改改，因为多次运行的话ThisDrawing.SelectionSets集合不能加入同名的选择集 应该这样 ThisDrawing.SelectionSets("TEST_SSET").Delete Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")