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

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

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

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

把以下代码写cad2006中文版的模块里测试没出现任何问题　，你试试也写到模块里看看行不行
还有cad重装试试

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

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