mycad 发表于 2009-6-23 09:24:00

高手或版主赐教：选择集问题

<p>On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' MsgBox returnobj.textString</p><p>&nbsp;&nbsp;&nbsp; If Not isnull(ThisDrawing.SelectionSets.Item("this")) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Item("this")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sset.Delete<br/>&nbsp;&nbsp;&nbsp; End If</p><p>&nbsp;&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Add("this")<br/>&nbsp;&nbsp;&nbsp;&nbsp; sset.SelectOnScreen<br/></p><p>上面的代码在我的程序中出现下面致命错误<strong><font color="#f70909">，“autocad致命错误退出”，</font></strong>不知道怎样解决好？谢谢赐教！！！！</p><p>在线等待。。。。。。。。。。。。。。。</p><p>&nbsp; FATAL ERROR:Unhandled Access Violation Reading 0x0000 Exception at 58babbeh</p>

天之雨露 发表于 2009-6-23 10:28:00

<p>&nbsp;把以下代码写cad2006中文版的模块里测试没出现任何问题　，你试试也写到模块里看看行不行</p><p></p><p></p><p>&nbsp;Sub a()<br/>&nbsp;On Error Resume Next<br/>&nbsp; ' MsgBox returnobj.textString<br/>&nbsp;&nbsp;&nbsp; If Not IsNull(ThisDrawing.SelectionSets.Item("this")) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Item("this")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sset.Delete<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp; Set sset = ThisDrawing.SelectionSets.Add("this")<br/>&nbsp;&nbsp;&nbsp;&nbsp; sset.SelectOnScreen<br/>End Sub</p><p></p><p>还有cad重装试试</p><p><br/></p>

mycad 发表于 2009-6-23 12:59:00

可能是cad问题，代码没有问题的，谢谢楼上的
页: [1]
查看完整版本: 高手或版主赐教：选择集问题