[LISP函数]：关于给文字（单行/多行）家括号的难题

coldhope

关于给文字（单行/多行）家括号:

文件里有很多数字，单行多行都有，比如：2000 ，3500，4500等，有没有那样的命令，不用自己编辑文字，一个一个的去加括号，把他们变成：（2000），（3500），（4500）等，还有<>中括号

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314
   
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 . "TEXT")))
    
18.         ukw (UKWORD 7 "1 2" "\n选择括号方式 : 1-()/2-<>" ukw)
    
19.         i   -1
    
20.   )
    
21.   (while (setq s1 (ssname ss (setq i (1+ i))))
    
22.     (cond ((= ukw "1") (setq tx (strcat "(" (xyp-get-dxf 1 s1) ")")))
    
23.           ((= ukw "2") (setq tx (strcat "<" (xyp-get-dxf 1 s1) ">")))
    
24.     )
    
25.     (SUB_UPD s1 1 tx)
    
26.   )
    
27.   (CMDLA1)
    
28. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")  ;版本 V.20060314<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 . "TEXT")))<br />         ukw (UKWORD 7 "1 2" "\n选择括号方式 : 1-()/2-<>" ukw)<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (cond ((= ukw "1") (setq tx (strcat "(" (xyp-get-dxf 1 s1) ")")))<br />           ((= ukw "2") (setq tx (strcat "<" (xyp-get-dxf 1 s1) ">")))<br />     )<br />     (SUB_UPD s1 1 tx)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

marcoyuwen

其实核心所在就是STRCAT。

coldhope

Command: test

Font not available.Unknown command "0".  Press F1 for help.
Unknown command "1".  Press F1 for help.
Unknown command "0".  Press F1 for help.
Unknown command "TEST".  Press F1 for help.
Unknown command "TEST".  Press F1 for help.


cad命令行，这是怎么回事啊

日文系统里，出现上面的情况，斑竹怎么回事啊
谢谢

另外，如果给尺寸标注批量加括号，能做到么