toosimple 发表于 2006-6-26 19:01:00

selectonscreen方法求助

<P>以下是cad得帮助的一个例子，我把它放到了一个命令按钮的单击事件中，可是总提示出错，为什么阿</P>
<P>' This example adds objects to a selection set by prompting the user<BR>&nbsp;&nbsp;&nbsp; ' to select ones to add.<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Create the selection set<BR>&nbsp;&nbsp;&nbsp; Dim ssetObj As AcadSelectionSet<BR>&nbsp;&nbsp;&nbsp; Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET")<BR>&nbsp;&nbsp;&nbsp; <BR>&nbsp;&nbsp;&nbsp; ' Add objects to a selection set by prompting user to select on the screen<BR>&nbsp;&nbsp;&nbsp; ssetObj.SelectOnScreen<BR>以下是出错时的帮助信息</P>
<P>AutoCAD main window is invisible. To turn on the window, set the visible property of the application object to acTrue.</P>

雪山飞狐_lzh 发表于 2006-6-26 21:02:00

<P>me.hide</P>
<P>ssetObj.SelectOnScreen</P>
<P>me.show</P>

toosimple 发表于 2006-6-26 22:00:00

太感谢了
页: [1]
查看完整版本: selectonscreen方法求助