@ruiz.angel.86 @calderg1000 @bc.chiquito Buenos días os traigo un problema que me ocurre. Al intentar unir 2 polilineas separadas con el comando PEDIT, Multiple, Join, Enter fuzz distance (0,000) y no me junta las polilineas separadas. Os adjunto un video para demostraros como lo ejecuto, alguien me puede ayudar por favor?
¡Resuelto! Ir a solución.
Resuelto por ruiz.angel.86. Ir a solución.
Hola @prieto_moas , cuando le das a juntar, te pide una distancia. Dicha distancia se consigue haciendo clic en el primer punto hasta el segundo punto (donde no existe el segmento). Automáticamente te genera el trozo que falta para unir ambas:
Mira, también, en las opciones de tipo de juntas que tengas la opción de o Añadir o Ambas.
Yo lo tengo puesto siempre en añadir.
Y este es el resultado:
Hola Daniel. Realmente debería ser así, pero AutoCAD considera que si el ángulo que forman esas polilíneas es de 0º, no te va a dejar utilizar el comando alargar para unirlas o, por lo menos, para prolongar una de ellas hasta la otra. En el momento en que varías una de las 2 polilíneas con un pequeño ángulo, ya podrás utilizar dicho comando.
Lo que se suele hacer cuando su ángulo es 0 y no quieres utilizar unir, es seleccionar una de ellas y arrastrar el pinzamiento para llevarlo hasta el punto que quieras. O utilizar estirar vértice.
Saludos @prieto_moas
Hice esta rutina autolisp, para responder tu consulta, espero te sea de ayuda.
;Rutina autolisp, une 2 polilineas alineadas en una sola.
;By calderg1000, 18-02-23, para el foro Acad en español.
;_
(defun c:up (/ s i sn lp lpt lpo)
(princ"\nSeleccione dos Polilineas alineadas:")
(setq s (ssget '((0 . "lwpolyline"))))
(setq lp ())
(repeat (setq i (sslength s))
(setq sn (entget (ssname s (setq i (1- i))))
lp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) sn))
lpt (append lpt lp)
)
)
(setq lpo (vl-sort lpt '(lambda (x y) (< (car x) (car y))))
)
(entmakex (list '(0 . "lwpolyline")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 2)
(cons 10 (car lpo))
(cons 10 (cadddr lpo))
)
)
(command "_erase" s "")
(princ)
)
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Saludos @prieto_moas
Aqui tienes otra rutina para unir polilineas alineadas, insertando un punto en el punto medio de la distancia de separación.
Espero te sea de ayuda.
;Rutina autolisp, une 2 polilineas alineadas insertando un vertice
;en el punto medio de la distancia de separacion.
;By calderg1000, 19-02-23, para el foro Acad en español.
;_
(defun c:UpP (/ s i sn lp lpt lpo pm)
(princ "\nSeleccione dos Polilineas alineadas:")
(setq s (ssget '((0 . "lwpolyline"))))
(setq lp ())
(repeat (setq i (sslength s))
(setq sn (entget (ssname s (setq i (1- i))))
lp (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) sn))
lpt (append lpt lp)
)
)
(setq lpo (vl-sort lpt '(lambda (x y) (< (car x) (car y))))
pm (mapcar '(lambda (j k) (/ (+ j k) 2)) (car (cdr lpo)) (cadr (cdr lpo)))
)
(entmakex (list '(0 . "lwpolyline")
(cons 100 "AcDbEntity")
(cons 100 "AcDbPolyline")
(cons 90 2)
(cons 10 (car lpo))
(cons 10 pm)
(cons 10 (cadddr lpo))
)
)
(command "_erase" s "")
(princ)
)
.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
¿No encontraste lo que buscabas? Pregúntale a la comunidad o comparte tus conocimientos.