Lisp程序结构

zzyong00

建议*DOC*做函数，这样什么时候调用都是当前的DOC
(defun *DOC* ()
  (VL-LOAD-COM)
  (vla-get-ActiveDocument (vlax-get-acad-object))
)

自贡黄明儒

zzyong00 发表于 2014-10-16 20:10
建议*DOC*做函数，这样什么时候调用都是当前的DOC
(defun *DOC* ()
  (VL-LOAD-COM)

不错的想法，也可定义为常量
(setq *DOC*   (vla-get-ActiveDocument *ACAD*))http://bbs.mjtd.com/thread-96543-1-1.html

自贡黄明儒

vectra 发表于 2014-10-16 16:38
用下面的代码简单测试了下

执行test 同时打印出1 和2，是不是两个*error*都调用 了？

我爱lisp

关于error函数，虽然经过反复研究，还是没有找到使用的精髓；问问楼主，我的程序如果函数相互调用比较频繁，调试时如何找到错误函数位置？有些是逻辑错误，有些是空值，有些是类型错误。如何能够出错时，报告时在哪一个函数出错的呢？

辉/:)

收藏了，谢谢楼主！