[求助]：多段线的标注

cq_qg

一条多义线，要是标注各顶点间的水平距离可以用快速标注命令qdim，可是要是想标注各顶点到某一水平线的垂直距离却不行，只能一个个标注，有没有快速的办法，可以一下子将多义线的各顶点与水平线的垂直距离标注出来？

carrot1983

[php]
(defun c:tt (/ D I LEAME P10 PLEAME PLST)
  (defun get_pt        (ename / elist ptlist)
    (setq elist (entget ename))
    (foreach n elist
      (if (= 10 (car n))
        (setq ptlist (cons (cdr n) ptlist))
      )
    )
    (reverse ptlist)
  )
  (if (and (setq pleame (car (entsel "\n>>>选择多段线<退出>:")))
           (setq leame (car (entsel "\n>>>选择水平线<退出>:")))
           (setq d (getdist "\n>>>输入标注间隔<退出>:"))
           (setq plst (get_pt pleame))
           (setq p10 (cdr (assoc 10 (entget leame))))
           (setq i 0)
      )
    (repeat (length plst)
      (command ".DIMLINEAR"
               (nth i plst)
               p10
               (polar p10 pi (* (+ i 1) d))
      )
      (setq i (1+ i))
    )
    (princ "\n>>>安全退出!<<<")
  )
  (princ "\n>>>程序执行完毕!<<<")
  (princ)
)
[/php]

carrot1983

[php]
(defun c:tt (/ D I LEAME P10 PLEAME PLST)
  (defun get_pt        (ename / elist ptlist)
    (setq elist (entget ename))
    (foreach n elist
      (if (= 10 (car n))
        (setq ptlist (cons (cdr n) ptlist))
      )
    )
    (reverse ptlist)
  )
  (if (and (setq pleame (car (entsel "\n>>>选择多段线<退出>:")))
           (setq leame (car (entsel "\n>>>选择水平线<退出>:")))
           (setq d (getdist "\n>>>输入标注间隔<退出>:"))
           (setq plst (get_pt pleame))
           (setq p10 (cdr (assoc 10 (entget leame))))
           (setq i 0)
      )
    (repeat (length plst)
      (command ".DIMLINEAR"
               (nth i plst)
               p10
               (polar p10 pi (* (+ i 1) d))
      )
      (setq i (1+ i))
    )
    (princ "\n>>>安全退出!<<<")
  )
  (princ "\n>>>程序执行完毕!<<<")
  (princ)
)
[/php]

xuewu

XDCAD真是高手如云啊

cq_qg

这个程序还不是我想要的，这个是距离起点标注水平距离的，我要得是标注各个顶点到水平线的竖直距离。

carrot1983

[php]
(defun c:tt (/ D I LEAME P10 PLEAME PLST)
  (defun get_pt        (ename / elist ptlist)
    (setq elist (entget ename))
    (foreach n elist
      (if (= 10 (car n))
        (setq ptlist (cons (cdr n) ptlist))
      )
    )
    (reverse ptlist)
  )
  (if (and (setq pleame (car (entsel "\n>>>选择多段线<退出>:")))
           (setq leame (car (entsel "\n>>>选择水平线<退出>:")))
           (setq d (getdist "\n>>>输入标注间隔<退出>:"))
           (setq plst (get_pt pleame))
           (setq p10 (cdr (assoc 10 (entget leame))))
           (setq p11 (cdr (assoc 11 (entget leame))))
           (setq i 0)
      )
    (repeat (length plst)
      (setq p_t1 (nth i plst))
      (setq p_t2 (polar p_t1 (* 0.5 pi) 1))
      (setq p (inters p_t1 p_t2 p10 p11 nil))
      (command ".DIMLINEAR"
               p_t1
               p
               (polar p pi (* (+ i 1) d))
      )
      (setq i (1+ i))
    )
    (princ "\n>>>安全退出!<<<")
  )
  (princ "\n>>>程序执行完毕!<<<")
  (princ)
)

[/php]