能否自定义具有可选参数的函数

cqnj023

如题，比如象(getangle [pt] [prompt])一类格式。自定义的函数中(defun ddd (ss dd /) 在引用时需要提供所有参数。

xyp1964

; ----------------------- UANGLE --------------------------
; input angle
(defun uangle (bit kwd msg def bpt / inp)
(if def
(setq msg (strcat "\n" msg "<" (angtos def) ">: ")
bit (* (fix (/ bit 2)))
)
(setq msg (strcat "\n" msg ": "))
) ; if def
(initget bit kwd)
(setq inp
(if bpt
(getangle msg bpt)
(getangle msg)
)
)
(if inp inp def)
) ;;;用法 (setq ang (uangle 1 "" "角度" ang nil))

cqnj023

xyp1964版主没有理解我的意思，我是说定义的函数调用时具有可选参数，如你上面的调用(setq ang (uangle 1 "" "角度" ang nil))变为(setq ang (uangle 1 "" "角度" ))也能成功调用，即def bpt 两参数是可选择的，有没有办法。

meflying

——以下摘自帮助文件 用 AutoLISP 可以定义接受参数的函数。与许多标准的 AutoLISP 函数不同，用户定义的函数不能拥有可选参数。在调用接受参数的用户定义函数时，必须给所有的参数提供值。

cqnj023

谢谢

无痕

变通的办法就是用表了


(defun aaa (lst / )


....)


(aaa '(ang ))


(aaa '(ang nil))

guankuiwu

学习一下

nuan1989

http://bbs.mjtd.com/forum.php?mo ... CE%CA%FD&page=7

这个. 实测好用