标注尺寸对齐是否可以改成不移动标注，仅对齐

yangchao2005090

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(setq poi(grread 1))) 5)
   
8.     (setq ptx (cadr poi))
   
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.     ))
    
15.   ;;下面来指定引线起点
    
16.   (setq ptx (getpoint "\n指定标注引线起点"))
    
17.   (setq i 0)
    
18.   (repeat (sslength ss)
    
19.     (setq endata (entget (ssname ss i)))
    
20.     (setq pt13 (cdr (assoc 13 endata))
    
21.       pt14 (cdr (assoc 14 endata)))      
    
22.     (if (= 33 (cdr (assoc 70 endata))) (setq ang (angle pt13 pt14)) (setq  ang  (cdr (assoc 50 endata))))
    
23.     (entmake (list '(0 . "LINE") (cons 10 ptx) (cons 11 (polar ptx ang 100))))
    
24.     (setq vlen (vlax-ename->vla-object (entlast)))
    
25.     ;;求出跟线最近的点
    
26.     (setq  endata (subst (cons 13  (vlax-curve-getclosestpointto vlen pt13 T)) (assoc 13 endata) endata)
    
27.       endata (subst (cons 14  (vlax-curve-getclosestpointto vlen pt14 T)) (assoc 14 endata) endata))      
    
28.     (vla-erase vlen)
    
29.     (entmod endata)
    
30.     (setq i (1+ i))
    
31.   );end repeat
    
32. )

(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(setq poi(grread 1))) 5)<br />     (setq ptx (cadr poi))<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 />     ))<br />   ;;下面来指定引线起点<br />   (setq ptx (getpoint "\n指定标注引线起点"))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq endata (entget (ssname ss i)))<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 />   );end repeat<br /> )

xvjiex

明白了。看看这个是你的要求吗？

xvjiex

没明白你的意思，能说具体一点吗？

yangchao2005090

xvjiex 发表于 2020-6-10 09:21
没明白你的意思，能说具体一点吗？

运行命令后，选中尺寸，然后软件会让你移动尺寸的位置，一般我的尺寸位置是放好的只需要尺寸界线对齐，也就是他这个命令的最后一步

yangchao2005090

xvjiex 发表于 2020-6-10 11:07
明白了。看看这个是你的要求吗？

正是想要的，感谢感谢

oistre

没明白你的意思，能说具体一点吗？

00放飞梦想00

xvjiex 发表于 2020-6-10 07:40
明白了。看看这个是你的要求吗？

您好，这个插件下载不了