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

MRHDF

目的：连续标注，同时尺寸线位置对齐，尺寸界限一样长。 每次画完图，看到长短不一的尺寸界限很难受。 ;;;连续注注
(defun c:dim ()
(setvar "cmdecho" 0)
(setq pt1 ( getpoint "\n输入标注基点1 : " )
pt2 ( getpoint "\n输入标注基点2 : " )
pt0 ( getpoint "\n尺寸线位置: " )
)
(command "dimlinear" pt1 pt2 pt0 )
(while (setq pt3 (getpoint "\n输入连续标注的下一点 : "))
(setq pt3 (inters pt1 pt2 pt3 (polar pt1 (+ (angle pt2 pt3) (/ pi 2.0)) 1.0) nil))
(command "dimlinear" pt2 pt3 pt0 )
(setq pt2 pt3 )
)
)

ZZXXQQ

看一下下面的链接 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37604

chenliguo

为什么要编这个程序，连续标注在CAD里不是有吗？

MRHDF

(DEFUN C:d ()
(command "_.layer" "m" "dim" "_color" "90" "dim" "")
(SETQ PT1 (GETPOINT "\n 尺寸界限第一点 :"))
(SETQ PT2 (GETPOINT PT1 "\n尺寸界限第二点 :"))
(COMMAND "__dimaligned" PT1 PT2 PAUSE)
(COMMAND "_DIMCONTINUE")
(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 "" "")
(PRINC)
)

MRHDF

看了那个连接，很好。如果不是平行与坐标轴也能对齐标注就好了

yshf

以下程序也能达到目的： (defun c:cc()
(setq cm (getvar "cmdecho") os (getvar "osmode"))
(setvar "cmdecho" 0)
(command "undo" "be")
(setq p1 (getpoint "\n 尺寸界限第一点 :") i 0)
(while (progn (cond ((= i 0) (setq p2 (getpoint p1 "\n尺寸界限第二点 :")))
(t (setq p2 (getpoint p1 "\n下一点 :")))
)
)
(setvar "osmode" 0)
(if (> i 0) (setq p2 (inters pt1 pt2 p2 (polar p2 (+ (angle pt1 pt2) (* 0.5 pi)) 1) nil)))
(command "_dimaligned" p1 p2 "t" (strcat (rtos (* 0.5 (distance p1 p2)) 2 3) "m"))
(cond ((= i 0)
(command pause)
(setq p3 (getvar "lastpoint") pt1 p1 pt2 p2)
)
(t (command p3))
)
(setq p1 p2 i (1+ i))
(setvar "osmode" os)
)
(command "undo" "e")
(setvar "cmdecho" cm)(princ)
)

MRHDF

厚道阿


谢谢上面的。

MRHDF

       


这么好的标注怎么没有人欣赏呢？？

MRHDF

       


再看看！

MRHDF

(defun c:dim ()
(setvar "cmdecho" 0)
(command "dimaligned" )
(setq pt1 ( getpoint "\n输入标注基点1 : " ))(COMMAND pt1)
(setq pt2 ( getpoint "\n输入标注基点2 : " ))(COMMAND pt2)
(setq pt0 ( getpoint "\n\n尺寸线位置2 : " ))(COMMAND pt0)
(while (setq pt3 (getpoint "\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 )
)
)