求助： 编连续标注，失败！

MRHDF

上面的还有一个小缺点：在输入前三个点的时候如果能够即时显示标注的尺寸线就好了。那位大侠知道怎么搞？？？

yshf

;请试用以下程序:
(defun c:dim0 ()
(setvar "cmdecho" 0)
(setq pt1 ( getpoint "\n输入标注基点1 : " ))
(setq pt2 ( getpoint pt1 "\n输入标注基点2 : " ))
(princ "\n\n尺寸线位置2 : " )
(command "_dimaligned" pt1 pt2 pause)
(setq pt0 (getvar "lastpoint"))
(while (setq pt3 (getpoint pt2 "\n输入连续标注的下一点 : "))
(setq pt3 (inters pt1 pt2 pt3 (polar pt3 (+ (angle pt1 pt2) (/ pi 2.0)) 1.0) nil))
(command "_dimaligned" pt2 pt3 pt0 )
(setq pt2 pt3 )
)
)

zichang

我觉的要实现你的目的可以怎么做：首先标好的第一你想要的尺寸，然后再通过编程实现拷贝。说起来很简单，不过做这个工作前先把尺寸所包含的数据内容（DXF码）都搞清楚了，只要你弄懂了，你就可以实现象天正那样的功能，如增加尺寸、断开尺寸、延伸尺寸还有可以标出统一指定距离的尺寸！原程序就不给提了，不过思路很重要！这个工作你自己好好做做吧！相信会收获很多的！

MRHDF

呵呵


我是个笨鸟，不会去研究那么多了。


只要常用的东西能搞得简单写就好了。毕竟我是搞建筑的。

MRHDF

(defun c:dim0 ()
(setvar "cmdecho" 0)
(setq pt1 ( getpoint "\n输入标注基点1 : " ))
(setq pt2 ( getpoint pt1 "\n输入标注基点2 : " ))
(princ "\n\n尺寸线位置2 : " )
(command "_dimaligned" pt1 pt2 pause)
(setq pt0 (getvar "lastpoint"))
(WHILE (SETQ PT3 (GETPOINT "\n下一点 :"))
(setq pt3 (inters pt1 pt2 pt3 (polar pt3 (+ (angle pt2 pt3) (/ pi 2.0)) 1.0) nil))
(COMMAND PT3)
)
(COMMAND "" "") ）
) 连续标注比对去标注容易修改些。