自定义函数结束语句

自贡黄明儒

第一次学习autolisp时，(defun C:xx 自定义函数是以(princ)作为静默退出的，所以后来都这么干。所以说，第一次很重要。
1 个人觉得(gc)退出是不是更好一些呢？
2 选择集时，就以选择集退出，这样的话，如果还要操作这些对象，下次敲个P就行了

clinber

我还没入门啊 一直没得时间研究

q530496591

支持一个！又学到一点！

xiaxiang

黄老师想到什么就拿出来切磋，这样也不错的。

自贡黄明儒

xiaxiang 发表于 2013-8-14 21:35
黄老师想到什么就拿出来切磋，这样也不错的。

有一次，同wowan1314讨论了几句，从他的程序可以看出，搞得是比较完整的。对于自定义函数，有开局、中局和残局，昨天我又看了一下，残局还不够深入。wowan1314的中局写得很好，中局是个人功力的体现。对于开局和残局，与水平无关，只是结构的问题。我还留意了highflybir,可谓高手之中的高手了，他的程序只有中局。

ZZXXQQ

有时结尾的返回值是隐含在程序中的。而且开头和结尾要根据程序的需要而定。比如：程序中没有使用command，那么程序开头的(setvar "CMDECHO" 0)就不是必须的。

自贡黄明儒

ZZXXQQ 发表于 2013-8-15 08:28
有时结尾的返回值是隐含在程序中的。而且开头和结尾要根据程序的需要而定。比如：程序中没有使用command，那 ...

你的意思是说，如果程序中没有使用command,中间就不必改变变量"CMDECHO",对吧？

004

来些，开局和收拾残局，的套路吧！

ZZXXQQ

自贡黄明儒 发表于 2013-8-15 08:32
你的意思是说，如果程序中没有使用command,中间就不必改变变量"CMDECHO",对吧？

是的。同样如果没有使用command画线条，(setvar "OSMODE" 0)就不是必须的。

Andyhon

Ref link:
http://vnestr.tripod.com/error.lsp
===============================>
...

;|      sample usage:

(defun my-func ( a1 a2 / a3 )
  (vn-errbegin)                  ;---------- start error handling
  (vn-push-sysvars  '(           ;---------- set sysvars and save old values
      ("CMDECHO" 0) ))           ;----------   to be restored automatically
  (command "._undo" "_g")
  (vn-errpush '(                 ;---------- push new action into error handler
      (command "._undo" "_e")    ;----------   to be done automatically on error
      (princ "\n Use Undo Group to go back!")  ;--- as well as on exit from the
      ))                                       ;--- function via (vn-errend) call
  (vn-push-sysvars  '(
      ("DIMZIN"  0)
      ("CLAYER"   )
      ("AUNITS"  3)
      ))
  (setq a3 (/ a1 a2))
  (vn-errend)                         ;---------- stop error handling and perform all
   a3                                 ;----------   the actions in reverse order and
)                                     ;----------   restore all the saved system variables

...