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

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

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

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

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

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

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

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

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


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

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

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

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

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

(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:54

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

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

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

说的有道理。。。。。。
页: [1]
查看完整版本: 如何右键退出(while t (command "dimlinear" p0 pause pause))