打印当前定义的反应器名字及回调函数名字

marting

1. (defun c:reactors ()
   
2.   (foreach reactor (vlr-reactors)
   
3.     (princ (strcat (vl-princ-to-string (car reactor)) "(s):\n"))
   
4.     (foreach reaction
   
5.              (apply 'append (mapcar 'vlr-reactions (cdr reactor)))
   
6.       (princ (strcat "\t\t"
   
7.                      (strcase (vl-princ-to-string reaction) t)
   
8.                      "\n"
   
9.              )
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    

(defun c:reactors ()<br />   (foreach reactor (vlr-reactors)<br />     (princ (strcat (vl-princ-to-string (car reactor)) "(s):\n"))<br />     (foreach reaction<br />              (apply 'append (mapcar 'vlr-reactions (cdr reactor)))<br />       (princ (strcat "\t\t"<br />                      (strcase (vl-princ-to-string reaction) t)<br />                      "\n"<br />              )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

命令: REACTORS
:VLR-Miscellaneous-Reactor(s):
   (:vlr-pickfirstmodified . $xdob-reactors-pickfirstmodified-callback)

zhystar

学习一下，谢谢

xvjiex

感谢楼主分享！

zizhumeizhilian

zizhumeizhilian邀请您访问晓东CAD家园-论坛 http://bbs.xdcad.net/?fromuid=776841

drshang

666666666666