单行文字 连续连接
(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)
)
写了半天，不会写了，不会用循环，求高手指点，主程序很好
页:
[1]