带参数的函数定义

lcy_8031

我在定义一个函数Test后,怎么实现在命令中输入Test -p后，提示用户输入一个字符串，输入Test则直接引用用户上一次输入的字符

caoyin

楼主说的是函数还是命令行的操作，没看明白

lcy_8031

我是想在命令行实现这样的操作，怎么去定义这个函数

ZZXXQQ

不用非输入-p吧？下面程序在提示输入字串时空回车默认前次输入字串。
(defun c:test ()
 (setq str1 (getstring (strcat "\nEnter a string " (if (/= str "") (strcat "<" str "> :") ":"))))
 (setq str (if (/= str1 "") str1 str))
 (princ str)
 (princ)
)

不死猫

定义一个全局变量

每次执行程序就把这个变量作为默认提示

回车就认为是这个变量值

 (if (not (numberp scale))(setq scale 0.5))
 (setq temp (getreal "缩放比例"))
 (if (not temp)(setq temp scale)(setq scale temp))

lcy_8031

以上两位的思路是对的，但是代码我怎么调试都达不到要求啊！晕死了。。。

lcy_8031

终于搞定了，第一次执行的时候还得判断str是否为nil！多谢大家的帮助啊！