带返回的样本defun
我需要一个示例代码Lisp。函数(defun)返回值
一个简单的例子
谢谢
罗德里戈 请注意底部的示例:
http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff1a32d8d10ebc6b7ccc-6a70.htm ... 为了更好地衡量:
(defun c:FOO () "Bow ties are cool ")
一些有用的
(defun dtr (a)
(* pi (/ a 180.0))
)
;
(defun rtd (a)
(/ (*a 180.0) pi)
)
(dtr 90)
(rtd 1.5708)
从理论角度来看,请记住,在AutoLISP中,函数定义中最后一条语句的求值结果是该函数返回的结果。
在相反的情况下,当不希望该函数返回某些内容时,只需使用PRINC/PRIN1函数之一作为最后一个语句。
页:
[1]