Combinar dos codigos lisp en AutoCAD

[sergio_gonza]

Hola, estoy intentando combinar dos codigos diferentes para la utilizacion de un archivo .lsp

Lo que intento hacer es copiar la parte que me selecciona todas las polilineas (codigo mas corto con nombre cpol) e insertarla en algun lado del codigo del otro lsp (Polyinfo) ya que este ultimo solo me saca las coordenadas y longuitud de solo una polilinea, por lo que querria seleccionar varias polilineas a la vez y exportarlas a un formato CSV para tratar esos datos (coordenadas y longuitud de las polilineas).

@sergio_gonza  para una mayor claridad @joaquim.moral ha editado el título original:

Combinar dos codigos lisp. Recuerda consultar cómo escoger el mejor título para tu post. ¡Gracias por participar!

[Joao-Rafael]

Hola @sergio_gonza 

Aquí hay una explicación de cómo funciona:

La rutina comienza creando una selección de objetos (ss) usando el comando ssget para obtener todas las polilíneas en la selección actual.
A continuación, abre un archivo .csv para escribir polilíneas.csv con la función with-open.
Dentro del with-open, lo primero que sucede es la escritura de la línea de encabezado del archivo .csv, que será "X, Y, Longitud".
Luego itera sobre todos los nombres de objetos en la selección ss con la función foreach.
Para cada objeto, utiliza la función entget para obtener la entidad de polilínea.
Luego itera sobre la entidad de polilínea para extraer las coordenadas X e Y usando el código 10.
También extrae la longitud de la polilínea utilizando el código 40.
Finalmente, escribe las coordenadas X e Y y la longitud de la polilínea en el archivo .csv usando la función princ.
Cuando finaliza la rutina, muestra el mensaje "Datos de polilínea exportados a polilíneas.csv".
Puede agregar esta rutina a su archivo de secuencia de comandos de AutoCAD y ejecutarla desde el comando (exportar polilíneas a csv).

(defun c:export-polylines-to-csv (/ ss i j pline coords length)
(setq ss (ssget "X" '((0 . "LWPOLYLINE"))))
(with-open (f "polylines.csv" "w")
(princ "X,Y,Length" f)
(foreach i (ssname ss)
(setq pline (entget i))
(setq coords nil)
(foreach j pline
(if (eq (car j) 10)
(setq coords (cons (cdr j) coords))))
(setq length (rtos (cdr (assoc 40 pline))))
(foreach j coords
(princ (strcat (rtos (car j)) "," (rtos (cdr j)) "," length) f)
(princ "\n" f))))
(princ "Polyline data exported to polylines.csv"))

espero que funcione !
Saludos

[joaquim.moral]

Hola @sergio_gonza,
¡Gracias por participar en la Comunidad Autodesk!

¿Te ha ayudado la respuesta de @Joao-Rafael a solucionar tu duda?

Si es así, puedes hacer clic en el botón "Aceptar como solución". De esta manera ayudas a que otras personas usuarias puedan acceder y encontrar más fácilmente la información.

De lo contrario, coméntanos en este mismo hilo para que la comunidad pueda seguir ayudándote. 

Gracias y esperamos tu respuesta,

[sergio_gonza]

Muchas gracias por tu tiempo, pero no me funciona el codigo, me muestra un mensaje de error como que la funcion "F" no esta definida.

He intentado guardar el codigo como .lsp, le he metido tambien en la barra de comandos, y tambien en el visual lisp y no funciona de ninguna manera.