¡Cómo utilizar Lisp para fusionar dos contenidos de texto en CAD! @ Linxue Yizhimei ayuda!

El método más básico es el siguiente: primero seleccione dos objetos de texto, obtenga sus metadatos respectivamente, obtenga su contenido de texto, conecte el contenido de texto, reemplace los metadatos del primer objeto de texto con el elemento de contenido de texto, para que estén conectados entre sí. eliminar otro objeto de texto

(DEFUN TEXTJOIN(E1 E2 / T1)

(SETQ T1(ENTGET E1)

(SETQ T1(ENTGET E1 )

(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)