弹出菜单（取消菜单）

au-s · 发表于 2022-7-6 14:54:24

你好

我有一个lisp来写多行文字，但在它执行之前，用户可以用弹出的弹出菜单从不同的比例中选择。
用户也可以选择另一个，可以是一个数字，可能像123348等。。。等

我错过的是，我不能确切地做到这是进入这个弹出菜单文本“取消”，如果用户选择它，它取消了命令，然后再继续制作多行文字。

这是我弹出窗口的来源。lsp I中没有“取消”。。我只是写了这个例子。
你需要DOSlib

或者当点击ESC时，它就会消失。。。我现在做不到。我必须选择比例

copy

(Defun PopupScale ()
 (setq x (list "Choose scale:"       ""  "1:1"     "1:2"
 "1:5"    "1:10"     "1:20"  "1:50"     "1:100"
 "1:200"    "1:500"    ""  "Another..."  [color=red][b]"Cancel"[/b][/color]
       )
ChoosedScale nil
scale nil
controlscale
 nil
 )
 (while (or (not ChoosedScale) (= ChoosedScale 0))
   (setq ChoosedScale (dos_popupmenu x))
 )
 (IF (= ChoosedScale (- (length x) 3)) 
   (while (not scale)
     (setq scale (dos_getstring "Choose another:" "Write a custom scale:"))
     (IF (wcmatch scale "*=*,*:*")
(setq scale (substr scale 3))
     )
     (setq controlscale (wcmatch scale "*@*"))
     (IF controlscale
(Alert "You have typed a wrong number. \nCould be a letter"
)
     ) 
   )
   (IF (not (= ChoosedScale (- (length x) 4))) ; last scale
     (setq scale (substr (nth (1+ ChoosedScale) x) 3))
     (setq scale (substr (nth (- (length x) 3) x)
    3
   )
     )
   )
 )
)

au-s · 发表于 2022-7-6 15:31:19

它的dos_弹出菜单。。。

隐马尔可夫模型。。这可能是不可能的。。。。在DOSLib帮助中找不到任何内容。

alanjt · 发表于 2022-7-6 16:24:17

没有什么是不可能的。这与doslib函数无关，如果没有填充所有必需的变量，您只需停止程序继续。

您还应该使用cond代替几个if语句。这是你吃的东西的一个修改版本，我把骨架放在一起，只加了肉和土豆。哦，与其通过零化变量来开始一个例程，不如从……开始本地化它们。。。。

copy

(defun PopupMenu (/ scalelist ChosenScale scale)
 (setq scalelist (list "Choose scale:"         ""          "1:1"
                       "1:2"       "1:5"       "1:10"      "1:20"
                       "1:50"      "1:100"     "1:200"     "1:500"
                       ""          "Another..."            "Cancel"
                      ) ;_ list
 ) ;_ setq
 (while
   (or (not ChosenScale)
       (= 0 ChosenScale)
   ) ;_ or
    (setq ChosenScale (dos_popupmenu scalelist))
 ) ;_ while
 (cond
   ((>= 9 ChosenScale)
    ;; a scale from list chosen
    (princ (strcat "\nYou chose: " (rtos ChosenScale)))
    ;; Do stuff here
   )
   ;; "Another..." chosen
   ((= 10 ChosenScale)
    ;; Do stuff here
    (princ (strcat "\nYou chose: " (rtos ChosenScale)))
   )
 ) ;_ cond
 (if scale
   ;; Proceed with routine
   (princ "\nLet us do more!")
   (princ "\nUser Quit")
 ) ;_ if
 (princ)
) ;_ defun

[编程交流] 弹出菜单（取消菜单）

发表回复

精选推荐