initget/cond/getkword例程

Happy Hobbit · 发表于 2022-7-5 17:58:41

我创建了一个lisp，该lisp增加了在initget/cond/getkword例程中具有记忆变量（getenv“LISPS\\attfusenuminc”）的属性。这是可行的，但似乎并不正确。
要求将“Specify”作为默认选项，但如果我没有选择“Resume”来重新开始编号，则需要选择“Specify”。有人知道更好的方法吗？

copy

(defun c:test (/ option tmp)
(if (getenv "LISPS\\attfusenuminc")
 (Setq tmp (getenv "LISPS\\attfusenuminc"))
 (Setq tmp "1")
       )
 
 (initget (strcat "Specify Resume " tmp))
(setq option (cond ((getkword (strcat "\nFuse Start Number? [specify/Resume ("tmp")] : ")))
                          ("Specify")))
 (cond
   ((eq option "Specify")
    (princ "\nSpecify Selected"))
   
   ((eq option "Resume")
    (princ "\nResume Selected"))
 )  
(princ)
)

它不会在默认选项中添加“点”，尽管它默认为“指定”。

为了清晰起见，我只包含了lisp的相关部分，其余的属性增量lisp工作得很好。

Stefan BMR · 发表于 2022-7-5 18:16:35

嗨，霍比特人

我认为你可以简化你的Lisp程序。实际上，设置起始编号需要两个步骤。
请看一下这个代码。您可以将数字设置为新值，或按enter键继续。

copy

(defun c:test (/ start_number tmp)
 (or
   (Setq tmp (getenv "LISPS\\attfusenuminc"))
   (Setq tmp "1")
 )
 (initget 6)
 (setq start_number
        (cond
          ((getint (strcat "\nFuse Start Number <" tmp ">: ")))
          (tmp)
        )
 )
 
 ;(setenv "LISPS\\attfusenuminc" start_number)
 (princ start_number)
 (princ)
)