插入标高块后，如何增加输入选项执行相关命令

szx025

(command "._insert" "bgy.dwg" "non" pt2 "" "" str)
)
(setq bg (entlast))
(initget "Yes No")
        (if (= "Yes"
               (getkword "\n是否镜像？[是(Y)/否(N)] <N>:")
            )
            (command "mirror" bg "" "non" pt2 "non" pt3 "y")
        )
(setvar "orthomode" 1);_开       
(prompt "\n左右移动定位: ")         
(command "_move" bg "" pt2  pause )
这是我写的一个标注建筑标高的程序（部分内容）我想在完成插入标高块后，在命令行出现:“输入选项”。同时命令行上部出现这样的提示“上下镜像(X)/左右镜像(Z)/左右移动(Y)”，如果选择就执行相应的命令，如果不选择，就直接向下运行程序。用这个替换程序中的镜像和移动。

飞雪神光

1. (setq bg (entlast))
   
2. (or key (setq key "Z"))
   
3. (initget "X Z Y  ")
   
4. (setq key (getkword (strcat "\n镜像移动[上下镜像(X)/左右镜像(Z)/左右移动(Y)] <"key">:")))
   
5. (cond
   
6.         ((= key "X")
   
7.                 (command "mirror" bg "" "non" ....)
   
8.         )
   
9.         ((= key "Z")
   
10.                 (command "mirror" bg "" "non" ....)
    
11.         )
    
12.         ((= key "Y")
    
13.                 (command "_move" bg "" ....)
    
14.         )
    
15. )

(setq bg (entlast))<br /> (or key (setq key "Z"))<br /> (initget "X Z Y  ")<br /> (setq key (getkword (strcat "\n镜像移动[上下镜像(X)/左右镜像(Z)/左右移动(Y)] <"key">:")))<br /> (cond <br />         ((= key "X")<br />                 (command "mirror" bg "" "non" ....)<br />         )<br />         ((= key "Z")<br />                 (command "mirror" bg "" "non" ....)<br />         )<br />         ((= key "Y")<br />                 (command "_move" bg "" ....)<br />         )<br /> )

szx025

你这必须是3选1，不是我要的效果，我想要的是3个选项可以单选，多选或者不选，程序都能下下运行