[求助]：如何把cad上的各个高程数据缩小10倍？

smilepan

我是用南方软件展上去的，可后来发现所有的高程都要缩小十倍，原始数据里一行有好几个数，可我只要改变最后一项即高程，放到excel里也不行，现在想在cad里改，哪位大虾可帮下，比如图上是１３４，我想把它改成１３.４．谢谢！

tarua

用excel的“文本导入向导”打开，保存时根据需要的格式保存，如需逗号分割，用csv格式。

cxj0810

什么叫高程！

XWT670530

可否将此图转为块,再插入块的时候采用不等比的缩放??

yshf

请把你展点后的图样发一份到hrycly@126.com，看一看能不能在CAD中直接解决。

841594

用这个程序瞬间搞定：
http://www.xdcad.net/forum/showthread.php?s=&threadid=154594

hisum

四楼的方法是最快的方法

xyp1964

程序法：

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red]★通用函数下载地址：[/COLOR]
    
12. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
13. 
    
14. ;;;文本数值缩放
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        no1 (UREAL 7 "" "\n缩放比例" no1)
    
18.         ss  (ssget '((0 . "TEXT")))
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (setq tx (rtos (* (atof (dxf 1 (entget s1))) no1) 2))
    
23.     (sub_upd s1 1 tx)
    
24.   )
    
25.   (CMDLA1)
    
26. )[/FONT]

[FONT=courier new](load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：<br /> 1.在acad.lsp中增加(load"xyp_lib")<br /> 2.在每个程序内增加(load"xyp_lib")<br /> 3.在command下，输入(load"xyp_lib")<br /> 4.在菜单.mnl中增加(load"xyp_lib")<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 />   (setq        no1 (UREAL 7 "" "\n缩放比例" no1)<br />         ss  (ssget '((0 . "TEXT")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq tx (rtos (* (atof (dxf 1 (entget s1))) no1) 2))<br />     (sub_upd s1 1 tx)<br />   )<br />   (CMDLA1)<br /> )[/FONT]