插入标高块后，如何增加输入选项执行相关命令
(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 "" pt2pause )
这是我写的一个标注建筑标高的程序（部分内容）我想在完成插入标高块后，在命令行出现:“输入选项”。同时命令行上部出现这样的提示“上下镜像(X)/左右镜像(Z)/左右移动(Y)”，如果选择就执行相应的命令，如果不选择，就直接向下运行程序。用这个替换程序中的镜像和移动。
(setq bg (entlast))
(or key (setq key "Z"))
(initget "X Z Y")
(setq key (getkword (strcat "\n镜像移动[上下镜像(X)/左右镜像(Z)/左右移动(Y)] <"key">:")))
(cond
((= key "X")
(command "mirror" bg "" "non" ....)
)
((= key "Z")
(command "mirror" bg "" "non" ....)
)
((= key "Y")
(command "_move" bg "" ....)
)
) 你这必须是3选1，不是我要的效果，我想要的是3个选项可以单选，多选或者不选，程序都能下下运行
页:
[1]