第6章AutoLISP和Visual_LISP.ppt

(setq b (getdist p0 \nEnter b: )) (setq tl (getdist p0 \nEnter t1: )) ;tl应改为t1 (setq alf (getangle p0 \nEnter alf: )) ；断点1的位置 (setq r (* 0.5 d) bl (* 0.5 b)) (setq l (sqrt (- (* r r) (* b1 b1)))) (setq sit (tan b1 l)) ;tan应改为atan (setq p1 (polar p0 (+ alf sit) r)) (setq p2 (polar p0 (+ pi alf) r)) (setq p3 (polar p0 (- alf sit) r)) (setq p4 (polar p3 (+ pi alf) (- (+ r l) t1))) (setq p5 (polar p1 (+ alf pi) (- (+ r l) t1))) (command pline p1 a s p2 p3 l p4 p5 c) ) 选择菜单File?Open File将例6-2所示源代码的文件装入文本编辑窗口。选择菜单Debug?Add Watch或单击按钮 ，监视变量p0、d、b、t1、alf、r、l、b1、sit、p1、p2、p3、p4、p5。 加载该程序，单击按钮 ，在AutoCAD的Command:提示下键入TUXING命令，程序停止运行，出现提示;error: bad argument type: numberp: nil（错误的参数类型，出现了无定义的参数） 。 将光标移至程序的第6行末尾，选择菜单Debug?Toggle Breakpoint、按功能键F9或单击按钮 ，在该处设置一个断点。 单击按钮 ，加载当前文本编辑窗口内的源程序。单击按钮 ，在Command:提示下键入TUXING命令，依次输入p0、d、b、t1、alf的值之后，回到文本编辑窗口。光标停留在断点1的位置，说明已执行了5个get??表达式。 浏览监视窗口，p0、d、b、alf已有具体的数值，而T1=nil，说明表达式（setq tl (getdist p0 \nEnter t1: )）有错误，仔细检查，发现误将t1写为tl。改正之后，单击按钮 ，单击按钮 ，在Command:提示下键入TUXING命令，依次输入p0等的数据，当程序停留在断点1的位置时，浏览监视窗口t1已有定义了。 单击继续按钮 ，程序停止运行，出现提示; error: no function definition: TAN（错误，没有定义函数：TAN），正确的函数应该是兰色的，找到黑色的函数名tan，改正为atan。 将光标移至断点1处单击按钮 ，删除断点1。单击按钮 ，在 Command:提示下键入TUXING命令，依次 输入p0等的数据，程序正常结束，并得到 图6-10所示图形。 图6-10 在此例中，在断点1暂停时，调试按钮从 到 都处于可用状态，因为此时处于可继续的断点循环。 如果运行该程序前，选择菜单Debug?Break On Error，执行到tan函数时，因出现了无定义的函数而程序崩溃，但在该处产生了一个不可继续的断点循环。此时只有调试按钮 和 是可用的。用户只能选择退到上一层断点循环还是退到顶层断点循环。 如果在Command：提示下，键入TUXING命令，在要求用户输入数据时，按下Esc键，程序停止运行，此时也产生了一个不可继续的断点循环。 6.6 跟踪程序运行 跟踪程序运行的工具有命令跟踪、出错跟踪和跟踪堆栈。 1. 命令跟踪 如果打开命令跟踪模式，VisualLISP将在窗口跟踪有关AutoCAD命令的执行情况，以便监控程序是否在执行AutoCAD命令时出现了问题。 例如，选择菜单Debug?Trace Command，在Command：提示下，键入TUXING命令（假定程序能够正常运行），将在图6-11所示Trace窗口显示有关AutoCAD命令的执行情况的信息。 图6-11显示有关AutoCAD命令的执行情况的跟踪窗口 2. 出错跟踪 出错跟踪是用Error Trace窗口录跟踪程序运行的结果。在跟踪窗口按鼠标右键，将弹出跟踪窗口的快捷菜单，见图6-13。 下面以例6-3为例，介绍利用Error Trace窗口调试程序的方法。 【例6-3】定义求解一元二次方程的函数 一元二次方程的表达式为：