带默认值的initget和getkword

ODEY · 发表于 2022-7-6 10:55:49

大家好！需要一点帮助。
我想知道如果我的输入由initget和getkword控制，是否可能有一个“默认值”。有人有主意吗？

以下是不工作的示例代码：

(defun c:dvtest ()
 
 (or dvdia (setq dvdia "8")); set global variable
 (initget "8 10 12 16 20 25 32 40");valid inputs
 (if (/= "" (setq strdia(getkword(strcat "\nEnter Bar Diameter <" dvdia "> "))))
   (setq dvdia strdia)
 )
 (princ "\nThe Bar diameter is ")
 (princ dvdia)
 (princ)
)

下面是示例代码，其中输入不受initget和getkword的限制，但有效：

copy

(defun c:dvtest2 ()
 
 (or dvdia (setq dvdia "8")); set global variables
 (if (/= "" (setq strdia(getstring(strcat "\nEnter Bar Diameter <" dvdia "> "))))
   (setq dvdia strdia)
 )
 (princ "\nThe Bar diameter is ")
 (princ dvdia)
 (princ)
)