leemac的LM:acdoc是什么意思？为什么要那么写？

xiaomm250

2. (defun LM:acdoc nil
   
3.     (eval (list 'defun 'LM:acdoc 'nil (vla-get-activedocument (vlax-get-acad-object))))
   
4.     (LM:acdoc)
   
5. )
   

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

我直接修改成了

2. (defun LM:acdoc()
   
3.     (vla-get-activedocument (vlax-get-acad-object))
   
4. )
   

(defun LM:acdoc()<br />     (vla-get-activedocument (vlax-get-acad-object))<br /> )<br />

我运行了一下，代码还是能正常运行，那么请问他那么写比我修改后的比，有什么好处？

参考代码见
http://www.lee-mac.com/copytolayouts.html

kucha007

看看这个：http://bbs.mjtd.com/forum.php?mo ... Bmac%2B%BA%AF%CA%FD