最基本的如下先选取两个文字对象，分别得到它们的图元数据，取得它们的文本内容，将文本内容连接起来，替换掉第一个文字对象的图元数据里边的文字内容一项，这样就把它们连接到一起了，把另一个文字对象删除掉
(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))
(ENTDEL E2)
)
(set360问答q E1(CAR(ENTSEL"点取要连接的文字"))
E2(CAR(ENTSEL"点取要连接的文字")))
(TEXTJOIN E1 E2)
当然，仅仅这样是没多在意义的，但是实现了可以把你指定的两个文字对象连接到一绍岩小致茶降起。在实际应用中，可能还要考虑让程序能完全自动处理，比如只要在同一水平线上（或者相差不大）间隔一定距离的，程序都属能把它们连接起来，这样就比较理想了。具体怎么处理看需要吧，不过核心都是调用(TEXTJOIN E1 E2)