增量编号套件

Lee Mac · 发表于 2022-7-5 16:38:38

嗯，现在，我想你可以用一个空格来表示前缀和后缀，但是是的，我将合并无选项。

六羟甲基三聚氰胺六甲醚。。。我不确定DCL，我可能只保留它的命令行-有了DCL，你会有额外文件的复杂性，编码变得“丑陋”。。。

但是谢谢你的建议

CAB · 发表于 2022-7-5 16:42:31

以下是处理选项的一种方法：

(defun c:test()
 (setq snum 1
       inc  1
       pre  ""
       suf  ""
       )
 ;;  enter key sends the user on his way
 (while
   (cond
     ((progn
        (princ (strcat "\n*** Start #" (rtos snum 2 0)
                       "  Increment: " (rtos inc 2 0)
                       "  Prefix: " pre
                       "  Suffix: " suf))
        (initget "Start Inc Prefix sUffix")
        (null (setq opt (getkword "\nEnter option to change [start/Inc/Prefix/sUffix]: "))))
        nil
     )
     ((= opt "Start")
      (setq snum (getreal (strcat "\nSpecify Starting Number <" (rtos snum 2 0) ">: ")))
     )
     ((= opt "Inc")
      (setq inc (getreal (strcat "\nSpecify Increment <" (rtos inc 2 0) ">: ")))
     )
     ((= opt "Prefix")
      (setq pre (getstring t (strcat "\nSpecify Prefix <"
                                      (if (eq "" pre) "-None-" pre) ">: ")))
     )
     ((= opt "sUffix")
      (setq suf (getstring t (strcat "\nSpecify Suffix <"
                                      (if (eq "" suf) "-None-" suf) ">: ")))
     )
   )
  )
 (princ)
)