Autolisp当错误发生时候，找到具体发生在哪一行

XDSoft

Determine in which line of AutoLISP code an error exists

By Xiaodong Liang

In much previous versions of AutoLISP and Visual LISP (VLISP), when an AutoLISP function terminated unexpectedly in the drawing editor, the entire expression would display on the screen, which made it easy to locate the exact line which
contained the error. When this situation occurs In recent AutoCAD versions, locating the error is not as easy because only a message such as "Bad argument type: lentityp' (or stringp)" displays. The error message unfortunately does not state
in which line of code the error exists.

How errors in AutoLISP code are handled has been changed. Now, to locate the error in the code, you will need to use the Visual Lisp IDE. Although it may require that you learn about the IDE debug features, you'll find that it's a much better environment to debug AutoLISP code than in previous releases of AutoCAD. What you need to do to enable this facility is to perform the following steps:

1. Open the Visual Lisp IDE at the beginning of your AutoCAD session by typing VLISP or VLIDE at the command line.

2. Select the Debug menu in the IDE, and select 'Break On Error'.

3. Load your AutoLISP code and run it.

When an error in your code occurs, you'll be put back into the Visual LISP IDE. All you then need to do, to find the line in the code that contains the error is to select the 'Last Break' option on the Debug Toolbar, or the 'Last Break Source' from the Debug menu.

There are many more powerful tools available to debug yourAutoLISP code using the Visual Lisp IDE, To learn about them, refer to the Visual LISP Developer's Guide >> Debugging Programs for more information about the IDE and its debugging features.

eachy

中文版
调试-〉上一断点源码

zhang8755

我一般都是使用视图菜单中的错误跟踪来查看出错的位置，很方便的！

zhang8755

cie0588

我和楼上一样，错误跟踪会提示那一句代码出错

/db_自贡黄明儒_

我原来是放(alert "ok"),看错误发生在ok之前还是之后不断找的。向各位学习了

XDSoft

不需要VLISP IDE，发现错误的方法：

(defun *error* (msg)
  (vl-bt)
)


测试：

Command: (defun *error* (s) (vl-bt))
*ERROR*

Command:
(defun C:BUGGY ()
  (setq a (getint "\nEnter a number: "))
  (setq b (/ a 0))
  (princ)
)

C:BUGGY

Command: BUGGY

Enter a number: 3
Backtrace:
[0.48] (VL-BT)
[1.44] (*ERROR* "divide by zero")
[2.39] (_call-err-hook # "divide by zero")
[3.33] (sys-error "divide by zero")
:ERROR-BREAK.28 nil
[4.25] (/ 3 0)
[5.19] (C:BUGGY)
[6.15] (#)
[7.12] (# "(C:BUGGY)" T #)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

renyong119

此贴必火，占个楼先

wowan1314

XDSoft 发表于 2013-8-22 08:11
不需要VLISP IDE，发现错误的方法：

(defun *error* (msg)

由于不会VLISP编辑器。
我现在是利用出错处理，如果程序错误就 打印各个变量的赋值情况。从而判断出错代码可能的位置区域

2. ;;变量监视函数，如果出错。则输出->出错信息及各变量的赋值情况。
   
3. ;;用法 在程序开始处(aa:ever-err '(各个变量名。。))即可.
   
4. ;;程序不出错就没有变量赋值情况。
   
5. (defun aa:ever-err (lst )
   
6.     (setq *olderr* *error* *error* aa:evererr1 *监视变量表* lst)
   
7. )
   
8. (defun aa:evererr1 (x )
   
9.     (princ x)
   
10.     (aa:ever-err2 *监视变量表*)
    
11.     (setq *error* *olderr* *olderr* nil *监视变量表* nil)
    
12. )
    
13. (defun aa:ever-err2 (*监视变量表*)
    
14.     (mapcar
    
15.         '(lambda(e1 e2)
    
16.             (princ (strcat "\n" e1 " = "))
    
17.             (prin1 (eval e2))
    
18.         )
    
19.         (mapcar 'vl-princ-to-string *监视变量表*)
    
20.         *监视变量表*
    
21.     )
    
22. )

;;变量监视函数，如果出错。则输出->出错信息及各变量的赋值情况。 <br /> ;;用法 在程序开始处(aa:ever-err '(各个变量名。。))即可. <br /> ;;程序不出错就没有变量赋值情况。<br /> (defun aa:ever-err (lst ) <br />     (setq *olderr* *error* *error* aa:evererr1 *监视变量表* lst)<br /> )<br /> (defun aa:evererr1 (x ) <br />     (princ x)<br />     (aa:ever-err2 *监视变量表*)<br />     (setq *error* *olderr* *olderr* nil *监视变量表* nil)<br /> )<br /> (defun aa:ever-err2 (*监视变量表*) <br />     (mapcar<br />         '(lambda(e1 e2)<br />             (princ (strcat "\n" e1 " = "))<br />             (prin1 (eval e2))<br />         )<br />         (mapcar 'vl-princ-to-string *监视变量表*)<br />         *监视变量表*<br />     )<br /> )

newer

wowan1314 发表于 2013-8-22 10:18
由于不会VLISP编辑器。
我现在是利用出错处理，如果程序错误就 打印各个变量的赋值情况。从而判断出错代 ...

试了下这个：
命令: (defun *error* (msg)
(_>   (vl-bt)
(_> )
*ERROR*

命令: (/ 3 0)
反向跟踪:
[0.44] (VL-BT)
[1.40] (*ERROR* "除数为零")
[2.35] (_call-err-hook #<SUBR @08d3be74 *ERROR*> "除数为零")
[3.29] (sys-error "除数为零")
:ERROR-BREAK.24 nil
[4.21] (/ 3 0)
[5.15] (#<SUBR @08d3bec4 -rts_top->)
[6.12] (#<SUBR @08d30334 veval-str-body> "(/ 3 0)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)



反向跟踪
0,1,2,3 应该是序号
44,40,35那些应该是反向中的执行的内部具体时间什么的吧，这vl-bt手册没看到啊，内部函数？
阁老，你试试用这个定义错误函数，应该更简洁了。

wowan1314

newer 发表于 2013-8-22 10:30
试了下这个：
命令: (defun *error* (msg)
(_>   (vl-bt)

嗯。 测试了下。这个函数非常好。  基本能准确定位了。

另外有个疑问是：
如果代码中有（setq  a）或（if A B C D）语法错误。CAD加载的话只是提示语法错误。没提示那句语法错误。
好像VLISP编辑器可以知道那句语法有错误。。。

这个 语法错误 不用VLISP编辑器 可以定位到吗？

ll_j

不能不感慨自己老了。
现在不写程序了，偶尔几句代码，错了随便就可以找到，也就没有在意怎么去跟踪了。
记得早些年，只要把*error*设为nil，出错语句就会在命令行显示出来，现在的acad把这个屏蔽了，不管怎么设置，总是默认出来出错信息。

newer

wowan1314 发表于 2013-8-22 10:41
嗯。 测试了下。这个函数非常好。  基本能准确定位了。

另外有个疑问是：

命令: (setq a)
反向跟踪:
[0.35] (VL-BT)
[1.31] (*ERROR* "语法错误")
[2.26] (_call-err-hook #<SUBR @08d3be74 *ERROR*> "语法错误")
[3.20] (sys-error "语法错误")
:ERROR-BREAK.15 nil
[4.12] (#<SUBR @08d30334 veval-str-body> "(setq a)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)

试了下 (setq a) ，可以提示出来啊

2. [4.12] (#<SUBR @08d30334 veval-str-body> "(setq a)" T #<FILE internal>)

[4.12] (#<SUBR @08d30334 veval-str-body> "(setq a)" T #<FILE internal>)

newer

ll_j 发表于 2013-8-22 10:57
不能不感慨自己老了。
现在不写程序了，偶尔几句代码，错了随便就可以找到，也就没有在意怎么去跟踪了。
...

是不是从有了VLISP IDE后，错误信息就给屏蔽掉了？ ADESK初衷应该是程序要在VLSP IDE里面调试好。

wowan1314

newer 发表于 2013-8-22 11:17
命令: (setq a)
反向跟踪:
[0.35] (VL-BT)

vlisp编辑器的“检查选定文字”的功能，就可找到 那句有语法错误。
不知道 这个命令 是否有对应的函数？？

1. [检查文字 <未命名 0> 正在加载... SELECTION]
   
2. .
   
3. ; 错误: SETQ 中参数太少: (SETQ A)
   
4. ; 检查完成.
   

复制代码

测试以下代码。

2. (defun c:ttt ()
   
3.   (if a
   
4.     (setq a)
   
5.     (setq b 1)
   
6.   )
   
7. )

(defun c:ttt ()<br />   (if a<br />     (setq a)<br />     (setq b 1)<br />   )<br /> )