如何右键退出(while t (command "dimlinear" p0 pause pause))

669423907

请教一个问题，如何改成右键退出，谢谢了
;手动间距基点标注
(defun c:q1()
(setq p0 (getpoint"\n请指定基点标注第一点:"))
(while t (command "dimlinear" p0 pause pause))
(princ))

USER2128

(defun c:q1(/ p0)
  (while
    (setq p0 (getpoint"\n请指定基点标注第一点:"))
    (command "dimlinear" "_non" p0 pause pause))
  (princ)
  )

ll_j

不赞成这样改造命令，dimlinear命令还有一个重要的功能，就是选择实体标注，这样改造就失去了。
在需要连续多次执行一个命令时，不断发出命令也是一件让人厌烦的事，但acad在很早版本就知道这个问题，而且使用了一个命令来解决，这个命令就是multiple，在需要重复执行一个命令时，先执行这个命令，以后就自动连续了，最后使用ESC键退出。

669423907

USER2128 发表于 2016-4-22 07:43
(defun c:q1(/ p0)
  (while
    (setq p0 (getpoint"\n请指定基点标注第一点:"))

首先非常感谢你的帮助，但是我想要的是相当于基线标注的效果，当然比基线标注好用些，可以手动放置标注文字（有两个方向），还可以调整好标注之间的间距（虽然论坛也有大师们专用的工具）

669423907

ll_j 发表于 2016-4-22 09:40
不赞成这样改造命令，dimlinear命令还有一个重要的功能，就是选择实体标注，这样改造就失去了。
在需要连续 ...

不影响原有的dimlinear命令啊，适合自己用的就是好的，你认为呢

USER2128

(defun c:q1(/ p0 p1)
  (setq p0 (getpoint"\n请指定基点标注第一点:"))
  (while
    (setq p1 (getpoint"\n请指定基点标注第一点:"))
    (command "dimlinear" "_non" p0 "_non" p1 pause))
  (princ)
  )

669423907

忘了如何设置为已解答？？？

冒个烟圈

ll_j 发表于 2016-4-22 09:40
不赞成这样改造命令，dimlinear命令还有一个重要的功能，就是选择实体标注，这样改造就失去了。
在需要连 ...

说的有道理。。。。。。