[求助]：批量修改CAD中的文字

buweida

各位版主：
现有一个CAD文件，内有许多“NSNT0003”之类的文字，还有一个文本文件，内有“W/NSNT0003”的文字，求一个LISP程序，能将CAD中的“NSNT0003”换为文本中的“W/NSNT0003”。并将改动后的文本的宽度比例修改一下，以减少图形修饰的工作。
在线等待。
多谢。


我已经等了2个小时了。有2次下载了。有结果吗？

又过了一个小时，还是没有？

xyp1964

就10来个不如手改，成千上万还差不多。

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)
   
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.   (prompt "\n\t稍候 ")
    
17.   (if (setq fle (getfiled "展点(txt;dat;*)" "" "txt;dat;*" 8))
    
18.     (progn
    
19.       (setq fn (open fle "r"))
    
20.       (while (setq tx (read-line fn))
    
21.         (if (and (> (setq ln (strlen tx)) 8)
    
22.                  (= (substr tx (- ln 7) 4) "NSNT")
    
23.             )
    
24.           (progn
    
25.             (setq tx1 (substr tx (- ln 7))
    
26.                   ss  (ssget "x" (list (cons 0 "TEXT") (cons 1 tx1)))
    
27.                   i   -1
    
28.             )
    
29.             (while (setq s1 (ssname ss (setq i (1+ i))))
    
30.               (setq tsc (* (/ 8 ln 1.0) (xyp-get-dxf 41 s1)))
    
31.               (princ ".")
    
32.               (sub_upd s1 1 tx)
    
33.               (sub_upd s1 41 tsc)
    
34.             )
    
35.           )
    
36.         )
    
37.       )
    
38.       (close fn)
    
39.     )
    
40.     (princ "\n未选择数据文件，退出")
    
41.   )
    
42.   (CMDLA1)
    
43. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060211(2064)<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 />   (prompt "\n\t稍候 ")<br />   (if (setq fle (getfiled "展点(txt;dat;*)" "" "txt;dat;*" 8))<br />     (progn<br />       (setq fn (open fle "r"))<br />       (while (setq tx (read-line fn))<br />         (if (and (> (setq ln (strlen tx)) 8)<br />                  (= (substr tx (- ln 7) 4) "NSNT")<br />             )<br />           (progn<br />             (setq tx1 (substr tx (- ln 7))<br />                   ss  (ssget "x" (list (cons 0 "TEXT") (cons 1 tx1)))<br />                   i   -1<br />             )<br />             (while (setq s1 (ssname ss (setq i (1+ i))))<br />               (setq tsc (* (/ 8 ln 1.0) (xyp-get-dxf 41 s1)))<br />               (princ ".")<br />               (sub_upd s1 1 tx)<br />               (sub_upd s1 41 tsc)<br />             )<br />           )<br />         )<br />       )<br />       (close fn)<br />     )<br />     (princ "\n未选择数据文件，退出")<br />   )<br />   (CMDLA1)<br /> )[/FONT]

buweida

程序已经收到。试用了一下，非常好用。多谢。注册晓东几年了，工作忙，来得不多，但是有问题就到这里找答案，真的把这里当成“家”了。再次多谢。

lyj1998

用替换不就得行了吗？

8613xiewei

好复杂的要求阿

zbyxj

可不可以编一个数据库,将所有的文字自动地进行更换呢?
主要是做中文译成英文的时候有很多重复的劳动!
有时候还要保留中文!
很是麻烦!

xyp1964

最初由 zbyxj 发布
[B]可不可以编一个数据库,将所有的文字自动地进行更换呢?
主要是做中文译成英文的时候有很多重复的劳动!
有时候还要保留中文!
很是麻烦! [/B]

想法很好！
如果你下点功夫能完成一部分工作，给你加币？！
格式：
中文 英文
中文 英文
中文 英文