¡Cómo utilizar Lisp para fusionar dos contenidos de texto en CAD! @ Linxue Yizhimei ayuda!
(DEFUN TEXTJOIN(E1 E2 / T1)
(SETQ T1(ENTGET E1)
(SETQ T1(ENTGET E1 ) p>
(SETQ T1(ENTGET E1)
)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)
)
(setq E1(CAR(ENTSEL "Haga clic en el texto para conectarse") )
E2(CAR(ENTSEL "Haga clic en el texto para unirse")))
(TEXTJOIN E1 E2)
Por supuesto, single Esto no tiene mucho sentido, pero conecta los dos objetos de texto que especifiques. En aplicaciones prácticas, también puedes considerar hacer que el programa se ejecute de forma completamente automática, siempre que estén al mismo nivel (o no muy diferentes). , el programa puede conectarlos, lo cual es más ideal. El método específico depende de la necesidad, pero el núcleo se llama (TEXTJOIN E1 E2)