[LISP程序]：合并字符串(源码)

jiega

2. 
   
3. (defun c:TxtMerge(/ ent1 el1 e1 txt1 ent2 el2 e2 txt2 txt tst ent)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq tst T)
   
6.   (setq ent1 (car (entsel "\n选取文字一: ")))
   
7.   (if ent1
   
8.     (progn
   
9.       (redraw ent1 3)
   
10.       (setq el1 (entget ent1))
    
11.       (setq e1 (cdr (assoc -1 el1)))
    
12.       (if (= "TEXT" (cdr (assoc 0 el1)))
    
13.         (progn
    
14.           (while tst
    
15.             (setq txt1 (cdr (assoc 1 (entget e1))))
    
16.             (setq ent2 (car (entsel "\n选取下一文字: ")))
    
17.             (if        (/= ent2 nil)
    
18.               (progn
    
19.                 (redraw ent1 3)
    
20.                 (setq el2 (entget ent2))
    
21.                 (setq e2 (cdr (assoc -1 el2)))
    
22.                 (if (= "TEXT" (cdr (assoc 0 el2)))
    
23.                   (progn
    
24.                     (setq txt2 (cdr (assoc 1 el2)))
    
25.                     (command "erase" e2 "")
    
26.                     (setq txt (strcat txt1 txt2))
    
27.                     (update 1 txt el1)
    
28.                   )
    
29.                   (princ "\n不是文字!")
    
30.                 )
    
31.               )
    
32.               (progn (redraw ent1 1) (setq tst nil))
    
33.             )
    
34. 
    
35.           )
    
36.         )
    
37.         (princ "\n不是文字!")
    
38.       )
    
39.     )
    
40.   )
    
41.   (redraw)
    
42.   (setvar "CMDECHO" 1)
    
43.   (princ)
    
44. )
    

<br /> (defun c:TxtMerge(/ ent1 el1 e1 txt1 ent2 el2 e2 txt2 txt tst ent)<br />   (setvar "CMDECHO" 0)<br />   (setq tst T)<br />   (setq ent1 (car (entsel "\n选取文字一: ")))<br />   (if ent1 <br />     (progn<br />       (redraw ent1 3)<br />       (setq el1 (entget ent1))<br />       (setq e1 (cdr (assoc -1 el1)))<br />       (if (= "TEXT" (cdr (assoc 0 el1)))<br />         (progn<br />           (while tst<br />             (setq txt1 (cdr (assoc 1 (entget e1))))<br />             (setq ent2 (car (entsel "\n选取下一文字: ")))<br />             (if        (/= ent2 nil)<br />               (progn<br />                 (redraw ent1 3)<br />                 (setq el2 (entget ent2))<br />                 (setq e2 (cdr (assoc -1 el2)))<br />                 (if (= "TEXT" (cdr (assoc 0 el2)))<br />                   (progn<br />                     (setq txt2 (cdr (assoc 1 el2)))<br />                     (command "erase" e2 "")<br />                     (setq txt (strcat txt1 txt2))<br />                     (update 1 txt el1)<br />                   )<br />                   (princ "\n不是文字!")<br />                 )<br />               )<br />               (progn (redraw ent1 1) (setq tst nil))<br />             )<br /> <br />           )<br />         )<br />         (princ "\n不是文字!")<br />       )<br />     )<br />   )<br />   (redraw)<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

sundyy

ok

marcoyuwen

不支持框选，没有操作U操作。

西爱弟

选取下一文字: ; 错误: no function definition: UPDATE

2443725

我这里很正常，没出现错误~~

bikeboy

不错  谢谢 学习学习

nyfzh

学习ing！