求教!调整尺寸标注位置

砥砺前行

有时从别处导入的文件内线性标注和对齐标注的位置不合适，请教下大佬帮忙写个程序。
框选线性标注与对齐标注,调整文字位置为尺寸界线中点,以标注基点偏移2个文字高度；附图如下。

砥砺前行

有木有大佬教教我，我一直没找到类似控制标注距离的组码

kozmosovia

DXF
13        14

            10

Qwer1243

这是我自己写的，你可以用这个修改一下

2. ;;;*****统一尺寸界线长度*****
   
3. (defun c:w4 ( / ang d dim dist ent ent_data i pt10 pt11 pt13 pt14 ss xpt10 xpt11)
   
4.   (setvar "cmdecho" 0)
   
5.   (setq ss (ssget '((0 . "DIMENSION"))))
   
6.   (setq i 0)
   
7.   (repeat (sslength ss)
   
8.     (setq ent (ssname ss i))
   
9.     (setq ent_data (entget ent))
   
10.     (setq dim (cdr (assoc 3 ent_data)))
    
11.     (setq pt10 (cdr (assoc 10 ent_data)));pt后面对应的数字就是,图元列表中的组码
    
12.     (setq pt11 (cdr (assoc 11 ent_data)))
    
13.     (setq pt13 (cdr (assoc 13 ent_data)))
    
14.     (setq pt14 (cdr (assoc 14 ent_data)))
    
15.     ;;;    --------------------------------------
    
16.     (setq dist (distance pt13 pt14));13和14可以求出当前标注界限长度
    
17.     (setq ang (angle pt14 pt10));10和14求出标注角度
    
18.     (setq d (* 6 (atof (substr dim 3))));截取标注样式名称"yq"后面的数字,在×6就是需要长度
    
19.     (setq xpt10 (polar pt14 ang d))
    
20.     (setq xpt11 (polar pt11 ang (- d dist)))
    
21.     (setq ent_data (subst (cons 10 xpt10) (assoc 10 ent_data) ent_data))
    
22.     (setq ent_data (subst (cons 11 xpt11) (assoc 11 ent_data) ent_data))
    
23.     (entmod ent_data)
    
24.     (setq i (1+ i))
    
25.   )
    
26.   (prin1)
    
27. )

;;;*****统一尺寸界线长度*****<br /> (defun c:w4 ( / ang d dim dist ent ent_data i pt10 pt11 pt13 pt14 ss xpt10 xpt11)<br />   (setvar "cmdecho" 0)<br />   (setq ss (ssget '((0 . "DIMENSION"))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ent (ssname ss i))<br />     (setq ent_data (entget ent))<br />     (setq dim (cdr (assoc 3 ent_data)))<br />     (setq pt10 (cdr (assoc 10 ent_data)));pt后面对应的数字就是,图元列表中的组码<br />     (setq pt11 (cdr (assoc 11 ent_data)))<br />     (setq pt13 (cdr (assoc 13 ent_data)))<br />     (setq pt14 (cdr (assoc 14 ent_data)))<br />     ;;;    --------------------------------------<br />     (setq dist (distance pt13 pt14));13和14可以求出当前标注界限长度<br />     (setq ang (angle pt14 pt10));10和14求出标注角度<br />     (setq d (* 6 (atof (substr dim 3))));截取标注样式名称"yq"后面的数字,在×6就是需要长度<br />     (setq xpt10 (polar pt14 ang d))<br />     (setq xpt11 (polar pt11 ang (- d dist)))<br />     (setq ent_data (subst (cons 10 xpt10) (assoc 10 ent_data) ent_data))<br />     (setq ent_data (subst (cons 11 xpt11) (assoc 11 ent_data) ent_data))<br />     (entmod ent_data)<br />     (setq i (1+ i))<br />   )<br />   (prin1)<br /> )

砥砺前行

谢谢老哥，我试着改一下