[字串处理系列一][编程申请]：请求给写一个字符串连接的程序...

marting

最好可以循环做，依次连接选择的字符串。

谢谢！

XDSoft

程序写好了，请大家提意见


;|
   命令：txt_join
   
   功能：循环处理，将选取的字符串和第一个基本串连接起来。
|;

2. 
   
3. [FONT=courier new]
   
4. (defun c:txt_join (/ e1 e2 str1)
   
5.   (if (setq e1 (car (xdrx_entsel "\n请点取第一个基本字符串<退出>:" '
   
6.                                  ((0 . "text"))
   
7.                     )
   
8.                )
   
9.       )
   
10.     (progn
    
11.       (xdrx_begin)
    
12.       (while (progn
    
13.                (redraw e1 3)
    
14.                (setq e2 (car (xdrx_entsel "\n点取要连接的其他字符串<退出>:"
    
15.                                           '((0 . "text"))
    
16.                              )
    
17.                         )
    
18.                )
    
19.              )
    
20.         (xdrx_setenttodb e1)
    
21.         (setq str1 (xdrx_getentdxf 1))
    
22.         (xdrx_setenttodb e2)
    
23.         (setq str1 (strcat str1 (xdrx_getentdxf 1)))
    
24.         (entdel e2)
    
25.         (xdrx_setenttodb e1)
    
26.         (xdrx_modent 1 str1)
    
27.       )
    
28.       (redraw e1 4)
    
29.       (xdrx_end)
    
30.     )
    
31.   )
    
32.   (princ)
    
33. )[/FONT]

<br /> [FONT=courier new]<br /> (defun c:txt_join (/ e1 e2 str1)<br />   (if (setq e1 (car (xdrx_entsel "\n请点取第一个基本字符串<退出>:" '<br />                                  ((0 . "text"))<br />                     )<br />                )<br />       )<br />     (progn<br />       (xdrx_begin)<br />       (while (progn<br />                (redraw e1 3)<br />                (setq e2 (car (xdrx_entsel "\n点取要连接的其他字符串<退出>:"<br />                                           '((0 . "text"))<br />                              )<br />                         )<br />                )<br />              )<br />         (xdrx_setenttodb e1)<br />         (setq str1 (xdrx_getentdxf 1))<br />         (xdrx_setenttodb e2)<br />         (setq str1 (strcat str1 (xdrx_getentdxf 1)))<br />         (entdel e2)<br />         (xdrx_setenttodb e1)<br />         (xdrx_modent 1 str1)<br />       )<br />       (redraw e1 4)<br />       (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )[/FONT]