向各位高手求解释

txc6853234 · 发表于 2014-12-26 14:11:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 txc6853234 于 2014-12-26 14:14 编辑

(defun LM:acdoc nil
(eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
(LM:acdoc)
)

newer · 发表于 2014-12-26 14:30:39

论坛搜索下，以前讨论过。

wzg356 · 发表于 2014-12-26 14:34:46

http://bbs.xdcad.net/thread-669945-3-1.html

csharp · 发表于 2014-12-26 15:18:52

现在看这样写有点多余了
第一次执行
1 eval 重定义了函数
2 最后一句执行上一句eval定义的函数

以后运行
(lm:doc)实际上是由eval定义的那个，函数为
(defun lm:doc nil (vla-get-activedocument (vlax-get-acad-object)))

和直接定义没啥区别

txc6853234 · 发表于 2014-12-26 21:17:01

newer 发表于 2014-12-26 14:30
论坛搜索下，以前讨论过。

谢谢！知道了！！！

txc6853234 · 发表于 2014-12-26 21:17:39

wzg356 发表于 2014-12-26 14:34
http://bbs.xdcad.net/thread-669945-3-1.html

谢谢回答！！！

txc6853234 · 发表于 2014-12-26 21:18:20

csharp 发表于 2014-12-26 15:18
现在看这样写有点多余了
第一次执行
1 eval 重定义了函数

谢谢热情的回答！！！

账号		自动登录	找回密码
密码			立即注册

[已解决] 向各位高手求解释

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评