在编程时经常用到On error Resume Next
现在要if err then debug.print err.number高亮停止。便于调试程序。
请问各位大侠,如何解决。谢谢。

解决方案 »

  1.   

    把On error Resume Next 引上'On error Resume Next
      

  2.   

    框架如下:
    SUB XXX()
    ON ERROR GOTO ERRLINE
    ...
    ...
    ...
    ...
    EXIT SUB
    ERRLINE:
    DEBUG.PRINT ERR.DESCRIPTION
    RESUME NEXT
    END SUB
      

  3.   

    以上两种方法都不可取。
    在Autocad vba调试中,在生成面域过程,如果包围线不是闭合线段(图元)组成。运行下面语句将出错。
    如objRegionVaiant = .ModelSpace.AddRegion(Curves)
    出错结果是弹出对话框(-错误号)。找不到出错点。
    从个人知识点看,VB好像没有此项功能。
      

  4.   

    既然是用AUTOCAD,你就应该用AUTOLISP去编程
      

  5.   

    不是这个问题,AutoCAD只是一个绘图工具,其嵌套了VBA,在实际使用过程中,主要是用VB来调用AutoCAD程序。才能提高工作效率。
    AutoCAD有其局限性,现在的主流还在VB,VC等程序编程。
      

  6.   

    if err then debug.print err.number告诉你的错误号,要想在此停止,
    if err then 
      dfsafafa'随便几个字,在此停留.
    endif
      

  7.   

    用Debug的另一个成员函数Assert(断言)
    语法:Debug.Assert 逻辑表达式
    当逻辑表达式为假时,程序中断在该语句
    也就是说程序中,可以断定逻辑表达式必然是真的,否则就说明存在bug。