tema Re: Como hacer que 2 polillineas separadas en Autocad de junten en AutoCAD - Todos los productos - Foro en Español

Como hacer que 2 polillineas separadas en Autocad de junten

prieto_moas — Sat, 18 Feb 2023 11:51:06 GMT

@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?

(ver en Mis vídeos)

Re: Como hacer que 2 polillineas separadas en Autocad de junten

ruiz.angel.86 — Sat, 18 Feb 2023 12:07:45 GMT

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:

Re: Como hacer que 2 polillineas separadas en Autocad de junten

prieto_moas — Sat, 18 Feb 2023 12:20:21 GMT

@ruiz.angel.86 Ahora si me funciono, muchas gracias

Re: Como hacer que 2 polillineas separadas en Autocad de junten

ruiz.angel.86 — Sat, 18 Feb 2023 12:32:15 GMT

Un placer, como siempre, de poder ayudar.

Un saludo, Daniel. @prieto_moas .

Re: Como hacer que 2 polillineas separadas en Autocad de junten

prieto_moas — Sat, 18 Feb 2023 13:57:03 GMT

(ver en Mis vídeos)

@ruiz.angel.86

Re: Como hacer que 2 polillineas separadas en Autocad de junten

ruiz.angel.86 — Sat, 18 Feb 2023 14:19:09 GMT

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.

Re: Como hacer que 2 polillineas separadas en Autocad de junten

calderg1000 — Sat, 18 Feb 2023 22:02:40 GMT

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

Re: Como hacer que 2 polillineas separadas en Autocad de junten

calderg1000 — Sun, 19 Feb 2023 14:47:47 GMT

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