单行文字 连续连接

xigemapenis

(DEFUN C:TJJ( /  E1 E2)
(setq  

E1(CAR(ENTSEL"点取要连接的文字1"))
      
       E2(CAR(ENTSEL"点取要连接的文字2"))
)
(TEXTJOIN E1 E2)
;(while
;setq E2((CAR(ENTSEL"点取要连接的文字3")))
  ;(setq E1 E2)
  ;(setq E2 dss)
;(TEXTJOIN E1 E2)
;)
(PRINC)
)
(DEFUN TEXTJOIN(E1 E2 / T1 T2)
(SETQ T1(ENTGET E1)
T2(ENTGET E2))
(ENTMOD(SUBST
(CONS 1(STRCAT(CDR(ASSOC 1 T1))(CDR(ASSOC 1 T2))))
(ASSOC 1 T1)T1))
(redraw)
(ENTDEL E2)
)
写了半天，不会写了，不会用循环，求高手指点，主程序很好