[求助]：求一个改变尺线大小的程序

啵浪鼓

求一可多选择将标注线按比例缩小的程序！
(在CAD里按Ctrl+1时,选尺寸物体,在DIM SCALE LINEAR里的数值改变)

比如放大5倍后的实物，尺寸量测要以0.2倍的比例来量测实物，不然所量测的实物不是真实数据了！

请教！

xyp1964

试试：

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060331
   
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. ;;; 尺寸值缩放比例
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        ss  (ssget '((0 . "DIMENSION")))
    
18.         no1 (UREAL 7 "" "\n尺寸值缩放比例" no1)
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq tx (xyp-get-dxf 42 s1)
    
23.           tx1 (rtos (* tx no1) 2 0)
    
24.     )
    
25.     (xyp-subupd s1 1 tx1)
    
26.   )
    
27.   (CMDLA1)
    
28. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060331<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 /> ;;; 尺寸值缩放比例<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "DIMENSION")))<br />         no1 (UREAL 7 "" "\n尺寸值缩放比例" no1)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (xyp-get-dxf 42 s1)<br />           tx1 (rtos (* tx no1) 2 0)<br />     )<br />     (xyp-subupd s1 1 tx1)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

dwg001

; in cad2002 -->错误: no function definition: XYP-SUBUPD