唐#039；我甚至不知道

NH3man! · 发表于 2022-7-6 15:02:13

没有问题

使用ReOn和ReOff打开和关闭反应堆，如果您想确保它工作正常，可以使用此选项：

[code]（defun c:ReON（）（vl load com）（if（not*Save：React*）（progn（setq*Save：React*（vlr command reactor nil（list（cons:vlr CommandWillStart'strcomm）））（princ“>”）（princ））（defun strcomm（React Args/*doc）（if（vl position（strcase（car Args））'（“3drock”））；

flowerrobot · 发表于 2022-7-6 15:08:20

Lee Mac · 发表于 2022-7-6 15:12:44

As flower says, you won't visually see the results, as I have used the VL save method - so it won't show at the command line.

Lee

NH3man! · 发表于 2022-7-6 15:15:03

That is great Lee. You will save me and I won't even know it till I go to reopen and all my work is still there. Thank you!

Lee Mac · 发表于 2022-7-6 15:22:27

No probs

Switch the reactor on and off using ReOn and ReOff, and you can use this if you like to give you some assurance that it has worked:

[code](defun c:ReON () (vl-load-com) (if (not *Save:React*) (progn (setq *Save:React* (vlr-command-reactor nil (list (cons :vlr-CommandWillStart 'StrtComm)))) (princ "\n>"))) (princ))(defun StrtComm (React Args / *doc) (if (vl-position (strcase (car Args)) '("3DORBIT")) ;

[编程交流] 唐#039；我甚至不知道

发表回复

精选推荐