fl_stone 发表于 2004-9-30 12:22:00

如何使用activeX中的AcadSelectionSet？

我从VBA的帮助文件中拷入如下一段代码：


Private Sub CommandButton1_Click()<BR>' This example adds entities to a selection set by prompting the user<BR>                       ' to select entities to add.<BR>                       <BR>                       ' Create the selection set<BR>                       Dim ssetObj As AcadSelectionSet<BR>                       Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")<BR>                       <BR>                       ' Add entities to a selection set by prompting user to select on the screen<BR>                       ssetObj.SelectOnScreen<BR>End Sub<BR>


运行后出错，提示


方法'Add'作用于对象'IAcadSelectionSets'时失败


我是一个初学者，没有使用过activeX，请问使用activeX前是否要加载相关控件？

supercorn 发表于 2004-9-30 12:38:00

在Acad200?Doc.lsp文件里加入



(vl-load-com)

fl_stone 发表于 2004-9-30 13:29:00

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


但是不知道       


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


望告知！


谢谢

雪山飞狐_lzh 发表于 2004-9-30 20:44:00

和(vl-load-com)无关


这段代码只是个例子，实际要用的时候要改改，因为多次运行的话ThisDrawing.SelectionSets集合不能加入同名的选择集


应该这样


ThisDrawing.SelectionSets("TEST_SSET").Delete


Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")<BR>
页: [1]
查看完整版本: 如何使用activeX中的AcadSelectionSet？