标注对齐源码

雨的节奏

2. (defun c:dag (/ ss ptx i endata pt13 pt14 ang vlen)
   
3. (princ "\n选择要对齐的标注")
   
4. (setq ss (ssget '((0 . "DIMENSION"))))
   
5. ;;需要计算一下哪种标注最多
   
6. ;;排除少量的，用最多的那种
   
7. (while (= (car (grread 1)) 5)
   
8.          (setq ptx (cadr (grread 1)))
   
9.          (setq i 0)
   
10.          (repeat (sslength ss)
    
11.                  (setq endata (entget (ssname ss i)))
    
12.                  (entmod (subst (cons 10 ptx) (assoc 10 endata) endata ))
    
13.        (setq i (1+ i))
    
14.    ); end repeat
    
15. );end while
    
16. ;;下面来指定引线起点
    
17. (setq ptx (getpoint "\n指定标注引线起点") i 0)
    
18. (repeat (sslength ss)
    
19.       (setq endata (entget (ssname ss i)))
    
20. 
    
21.        (setq pt13 (cdr (assoc 13 endata))
    
22.        pt14 (cdr (assoc 14 endata)))      
    
23.       (if (= 33 (cdr (assoc 70 endata))) (setq ang (angle pt13 pt14)) (setq  ang  (cdr (assoc 50 endata))))
    
24.       (entmake (list '(0 . "LINE") (cons 10 ptx) (cons 11 (polar ptx ang 100))))
    
25.       (setq vlen (vlax-ename->vla-object (entlast)))
    
26.       ;;求出跟线最近的点
    
27.        (setq  endata (subst (cons 13  (vlax-curve-getclosestpointto vlen pt13 T)) (assoc 13 endata) endata)
    
28.               endata (subst (cons 14  (vlax-curve-getclosestpointto vlen pt14 T)) (assoc 14 endata) endata))      
    
29.       (vla-erase vlen)
    
30.      (entmod endata)
    
31.      (setq i (1+ i))
    
32.    
    
33. );end repeat
    
34.      
    
35. )

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

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版本的。。

1028695446

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

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

cghdy

有个bag：当只挪一个标注的时候提示“ 错误: DXF 组不正确: (10 . 32)”。

雨的节奏

难的地方应该在这里、、、

yoyoho

谢谢!  雨的节奏  分享程序!!!!

taoyi0727

比我写的好  我写了好长才写出来

sunny_8848

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

雨的节奏

源码都 有了，需要别的细节可以自己修改

669423907

谢谢楼主分享好程序

cghdy

贱人工具箱也有，不能动态，但是好像更稳定。

paulpipi

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