[求助]：怎样实现标注文字批量的偏移?

su69

请高手们给予帮助 , 怎样实现标注文字批量的偏移?

画图的时候,由于尺寸较小,尺寸和和标注线重叠了,得一个一个调节
标注文字 , 相当的麻烦了,怎样才能象对齐尺寸线那样,一下就把所选择的尺寸文字对齐 ?

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060411
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. |;
    
13. ;;;尺寸标注文字批量偏移
    
14. (defun c:test ()
    
15.   (CMDLA0)
    
16.   (if (null dist)
    
17.     (setq dist 100)
    
18.   )
    
19.   (if (null ANG)
    
20.     (setq ANG 0)
    
21.   )
    
22.   (setq        DIST (UDIST 1 "" "\n偏移距离<输入或鼠标直接量取>" DIST nil)
    
23.         ANG  (UANGLE 1 "" "\n偏移方向<输入或鼠标直接量取>" ANG nil)
    
24.         ss   (ssget '((0 . "DIMENSION")))
    
25.         i    -1
    
26.   )
    
27.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
28.     (setq pt11 (polar (xyp-get-dxf 11 s1) ang dist))
    
29.     (xyp-SubUpd s1 70 160)
    
30.     (xyp-SubUpd s1 11 pt11)
    
31.   )
    
32.   (CMDLA1)
    
33. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060411<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> |;<br /> ;;;尺寸标注文字批量偏移<br /> (defun c:test ()<br />   (CMDLA0)<br />   (if (null dist)<br />     (setq dist 100)<br />   )<br />   (if (null ANG)<br />     (setq ANG 0)<br />   )<br />   (setq        DIST (UDIST 1 "" "\n偏移距离<输入或鼠标直接量取>" DIST nil)<br />         ANG  (UANGLE 1 "" "\n偏移方向<输入或鼠标直接量取>" ANG nil)<br />         ss   (ssget '((0 . "DIMENSION")))<br />         i    -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq pt11 (polar (xyp-get-dxf 11 s1) ang dist))<br />     (xyp-SubUpd s1 70 160)<br />     (xyp-SubUpd s1 11 pt11)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

su69

谢谢xyp_1964斑竹,代码工作的非常的好,太经典了

一定要向你好好学习autolisp了.

xyp1964

ccpy  (尺寸偏移 : 尺寸标注文字批量偏移)：

雨箭风刀

搞个自动避让吧

qiaqiadeng

自动避让还是建议用天正，TSSD做得一般。

yl_andrew

TSSD和天正有文字避让功能吗？是在哪里呀？找不到这个功能哦！

aeo

最初由 xyp1964 发布
[B][CODE](load "xyp_lib.vlx")  ;版本 V.20060411
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1?.. [/B]

这么写还不如"夹点"