标注对齐源码

依然小小鸟

希望增加功能  标注的尺寸线 也能对齐

pengfei2010

谢谢楼主的分享

evayleung

支持源码。。不过我习惯了用TSSD自带的。

culiang10086

能不能把整个程序上传啊

etoxp

谢谢，虽然我们用tssd有这个功能，但是谢谢楼主的分享。

paulpipi

程序很实用，多谢楼主分享

1028695446

雨的节奏 发表于 2019-7-12 11:20
难的地方应该在这里、、、

试了下，角度标注对齐需完善

forever111

使用时跟演示的好像不太一样，所以简单修改了一下，望指教。
(defun c:dag (/ ss ptx i endata pt13 pt14 ang vlen)
(princ "\n选择要对齐的标注")
(setq ss (ssget '((0 . "DIMENSION"))))
;;需要计算一下哪种标注最多
;;排除少量的，用最多的那种
(while (= (car(setq poi(grread 1))) 5)
         (setq ptx (cadr poi))
      (setq i 0)
      (repeat (sslength ss)
        (setq endata (entget (ssname ss i)))
        (entmod (subst (cons 10 ptx) (assoc 10 endata) endata ))
        (setq i (1+ i))
        ))
;;下面来指定引线起点
(setq ptx (getpoint "\n指定标注引线起点"))
  (setq i 0)
(repeat (sslength ss)
      (setq endata (entget (ssname ss i)))
       (setq pt13 (cdr (assoc 13 endata))
             pt14 (cdr (assoc 14 endata)))      
      (if (= 33 (cdr (assoc 70 endata))) (setq ang (angle pt13 pt14)) (setq  ang  (cdr (assoc 50 endata))))
      (entmake (list '(0 . "LINE") (cons 10 ptx) (cons 11 (polar ptx ang 100))))
      (setq vlen (vlax-ename->vla-object (entlast)))
      ;;求出跟线最近的点
       (setq  endata (subst (cons 13  (vlax-curve-getclosestpointto vlen pt13 T)) (assoc 13 endata) endata)
              endata (subst (cons 14  (vlax-curve-getclosestpointto vlen pt14 T)) (assoc 14 endata) endata))      
      (vla-erase vlen)
     (entmod endata)
     (setq i (1+ i))
   
);end repeat
     
)

我用的是2019版本的。。

笑我秦兴

感谢楼主分享

趣意人生

多谢楼主分享