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

669423907 · 发表于 2016-4-21 19:55

请教一个问题，如何改成右键退出，谢谢了

;手动间距基点标注
(defun c:q1()
(setq p0 (getpoint"\n请指定基点标注第一点:"))
(while t (command "dimlinear" p0 pause pause))
(princ))

USER2128 · 发表于 2016-4-22 07:43

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

ll_j · 发表于 2016-4-22 09:40

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

669423907 · 发表于 2016-4-22 09:56

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

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

669423907 · 发表于 2016-4-22 09:59

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

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

USER2128 · 发表于 2016-4-22 10:37

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

669423907 · 发表于 2016-4-22 18:11

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

冒个烟圈 · 发表于 2018-4-25 07:58

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

说的有道理。。。。。。

账号		自动登录	找回密码
密码			注册

[提问] 如何右键退出(while t (command "dimlinear" p0 pause pause))

本帖子中包含更多资源

点评

评分