[求助]"软参数"

hawnn · 发表于 2009-7-25 22:52:00

(defun XX( A / msg)

(if (not a)

(setq obj (entsel "\n选择对象:"))

(setq obj (entsel A))

)

……

求教

能不能将参数A设为“软参数”

意思即是，如果有这个参数我就用这个参数

如果没有这个参数我就设一个默认的值

Andyhon · 发表于 2009-7-25 23:07:00

Call ==> (XX A)
(XX nil) ==> (setq obj (entsel "\n选择对像:"))
(XX "\n选择方框: ") ==> (setq obj (entsel A)) ==> (setq obj (entsel "\n选择方框: "))

hawnn · 发表于 2009-7-25 23:28:00

回一楼

我不明白你的意思

有Call这个函数吗？我只记得批处理命令就有这个

Lisp？怎么玩？

vivi8543 · 发表于 2009-7-26 10:08:00

楼主是说给参数设定默认值吧？这个我经常用，给个例子吧：

(setq x (getint "请输入最大编号(500以内可直接确定)"))
(if (= x nil) (setq max 500) (setq max x))

hawnn · 发表于 2009-7-26 10:50:00

其实不带这么玩的

自定义函数如果要求提供参数的话,在运行该函数时如果不提供参数会出现错误

"错误:参数太少"

明白我的意思吗

nonsmall · 发表于 2009-7-27 00:22:00

书上写的不一定永远正确

LISP定义可选参数函数的调用：

xchrimp · 发表于 2009-7-27 09:00:00

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			注册

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-27 09:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡