带返回的样本defun

rodrigo_sjc_sp · 发表于 2022-7-6 07:27:46

我需要一个示例代码Lisp。
函数（defun）返回值
一个简单的例子

谢谢
罗德里戈

BlackBox · 发表于 2022-7-6 07:55:46

请注意底部的示例：

http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6a70.htm

BlackBox · 发表于 2022-7-6 08:11:17

... 为了更好地衡量：


(defun c:FOO () "Bow ties are cool ")

BIGAL · 发表于 2022-7-6 08:16:57

一些有用的


(defun dtr (a)
(* pi (/ a 180.0))
)
;
(defun rtd (a)
(/ (*  a 180.0) pi)
)
(dtr 90)
(rtd 1.5708)

MSasu · 发表于 2022-7-6 08:32:27

从理论角度来看，请记住，在AutoLISP中，函数定义中最后一条语句的求值结果是该函数返回的结果。
在相反的情况下，当不希望该函数返回某些内容时，只需使用PRINC/PRIN1函数之一作为最后一个语句。

[编程交流] 带返回的样本defun