Unir Polilineas abiertas

Esta utilidad pide que selecciones todas las lineas arcos y 2dpol y las une. Estaría bien incorporar algo parecido al menú de polilineas. Mi petición vá mas allá. Sería estupendo que ademas, antes de proceder, uniera todos esos vertices separados por muy poca distancia y que parecen estar unidos pero que con un gran zoom se comprueba que no.

; -- Orden PolJoin
; Forma 2Dpolilíneas por la unión de líneas, arcos y 2Dpolilíneas.
; ©2004/7 scaner, Spain
; Notas:
; Ninguna
;
(defun c:PolJoin (/ ss1)
(setq old_cmdecho (getvar "cmdecho")
old_peditaccept (getvar "peditaccept")
)
(setvar "cmdecho" 0)
(setvar "peditaccept" 1)
(prompt "\nSeleccione objetos para formar polilínea/s:")
(while (not (setq ss1
(ssget '((-4 . "<OR") (0 . "LINE") (0 . "LWPOLYLINE") (0 . "ARC") (-4 . "OR>"))
)
)
)
)
(command "_.pedit" "_multiple" ss1 "" "_join" 0 "")
(setvar "peditaccept" old_peditaccept)
(setvar "cmdecho" old_cmdecho)
(princ)
)
(prompt "\nNueva orden PolJoin definida en AutoCAD - ©2004/7 scaner, Spain.")
(princ)

Hola,

Estaría bien que nos mandaras un archivo con algún ejemplo para trabajar sobre él.

Puedes mandar el archivo a tecnico@arkiplan.es