简单的连续标注

zhuzhi1631

新手请教    简单的连续标注 后加一个 总标注应该怎么写

start4444

(defun c:tt5 (/ i pb ptlst px)
(while (setq px (getpoint"\选点:")) (setq ptlst (cons px ptlst)))
(setq i -1 pa (car ptlst))
        (while (setq pb (nth (setq i (1+ i)) ptlst))
        (if (> i 0) (command "DIMLINEAR" "non" (nth (1- i) ptlst) "non" pb "non" (polar pa (* 1.5 pi) 1000)))
        );while       
(command "DIMLINEAR" "non" pa "non" (last ptlst) "non" (polar pa (* 1.5 pi) 2000))
(princ)
)

start4444

最好发示意图

alexmai

;;;模型空间尺寸比例
(defun c:dsc(/ ent)
(command "DIMSCALE")
)

;;;图纸空间尺寸比例
(defun c:dsv ()
  (command "DIMLFAC")
)


;;;尺寸标注增加1行,距离是6mm，可修改
(defun c:ad(/ ent)
  (setvar "DIMDLI" 6);基线间距6
  (command "DIMBASELINE")
  (princ)
)

zhuzhi1631

start4444 发表于 2022-3-7 16:28
(defun c:tt5 (/ i pb ptlst px)
(while (setq px (getpoint"\选点:")) (setq ptlst (cons px ptlst)))
( ...

谢谢，在 CAD2022里面 点第二点以后都不行了 ，不显示光标 不显示捕捉，不知道是不是CAD问题