zzyong00 发表于 2014-10-16 20:10:50

本帖最后由 zzyong00 于 2014-10-16 20:11 编辑

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

自贡黄明儒 发表于 2014-10-17 08:58:17

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


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

自贡黄明儒 发表于 2014-10-17 09:11:56

vectra 发表于 2014-10-16 16:38 static/image/common/back.gif
用下面的代码简单测试了下




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

我爱lisp 发表于 2014-10-17 16:53:57

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

辉/:) 发表于 2014-11-9 20:26:55

收藏了，谢谢楼主！
页: 1 [2]
查看完整版本: Lisp程序结构