在循环中如何按esc就返回到插件面板

1404073417

程序介绍：
用户在面板中输入数据，然后点击绘制后面板隐藏 用户指定一个插入点；然后再输入数据，再指定插入点，直到用户点击确定或者取消退出该插件。现在遇到一个问题，用户点击完绘制后发现自己数据输入错误，想返回到输入数据的面板。



我的思路：

我想让程序在指定插入点的时候，按esc可以返回到面板重新输入数据。

纵横八方

If null pt, 返回dcl不就完了

1404073417

纵横八方 发表于 2022-3-21 11:40
If null pt, 返回dcl不就完了

pt是啥意思

wzg356

(defun c:tt (/ pt)
(initget 1 "E  ")
(setq pt (getpoint "\n点取点位置(E重来或回车/右键/空格退出):"))
(cond
        ((= (type pt) 'list)(alert "对话框")(C:TT));重复循环
        ((= pt "E")(C:TT));重复循环
        (t nil);回车/右键/空格退出
)
)

推荐http://bbs.mjtd.com/forum.php?mo ... amp;_dsign=b8d35ea3

qazxswk

1404073417 发表于 2022-3-21 12:28
pt是啥意思

pt表示你的插入点呀

zj20190405

wzg356 发表于 2022-3-21 14:52
(defun c:tt (/ pt)
(initget 1 "E  ")
(setq pt (getpoint "\n点取点位置(E重来或回车/右键/空格退出):" ...

大哥，秋枫打印的亮显，按esc返回到dcl是怎么做到的，能举个简单例子吗