Saludos @softkeydigital0000028
Si estas iniciándote con Acad, es posible que lo veas algo complicado pero no lo es. Creo que tal como lo indica el compañero @Valentin_CAD, la forma mas sencilla puede ser activando los iconos de rastreo y referencia a objetos.
Pero si este procedimiento lo tienes que hacer muchas veces, entonces te recomiendo a la par que aprendes los comandos Autocad, también te inicies en el aprendizaje de la programación para Autocad con el lenguaje de programación AUTOLISP y su complemento mejorado VISUAL LISP, con ello podrás personalizar tu flujo de trabajo y crear tus propias rutinas que se adapten a tus necesidades.
En esta oportunidad, he creado una rutina e Vlisp, para alinear objetos circulos y polilíneas, que pueden optimizar un poco el procedimiento para alinear los objetos que requieres. La rutina, crea una nueva función de nombre Mobj que se puede cargar desde la barra de comandos con el comando APPLOAD. Luego la rutina se ejecutara como si fuera un comando mas de autocad, digitando en la barra de comandos Mobj.
Para una mejor explicación de su funcionamiento, te adjunto un video donde se muestra su funcionamiento. Espero que te pueda ser de ayuda y si estas interesado en la programación para Autocad en el lenguaje Autolisp-Visual Lisp,
con mucho gusto estaré por aquí para responder a tus consultas.
;;;Rutina Autolisp, alinea objetos Circle, Lwpolyline por su C,G,creada para dar
;;;respuesta en el foro Autocad en español...
;;;Mobj, by calderg1000@gmail.com; 26-11-23
;;;___
(defun c:obj (/ s1 s2 pc pp pm pn)
(setvar 'selectioncycling 0)
(while (and
(setq s1 (car (entsel "\nSelect the Base Object to reference:"))
s2 (car (entsel "\nSelect Object To Aligned: "))
)
)
(if (= (cdr (assoc 0 (entget s1))) "CIRCLE")
(mlw s1 s2)
(mC s1 s2)
)
)
)
;;__
(defun mLw (s1 s2)
(setq pc (cdr (assoc 10 (entget s1)))
pp (mapcar
'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget s2))
)
pm (prm pp) ;pto. promedio CG Lwpolyline
pn (list (car pc) (cadr pm)) ;Pto. final
)
(command "_.move" s2 "" pm pn)
)
;;__
(defun mC (s1 s2)
(setq pc (cdr (assoc 10 (entget s2)))
pp (mapcar
'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget s1))
)
pm (prm pp) ;pto. promedio CG Lwpolyline
pn (list (car pm) (cadr pc)) ;pto. final
)
(command "_.move" s2 "" pc pn)
)
;;__
(defun prm (lt)
(mapcar '(lambda (x) (/ x (length lt)))
(apply 'mapcar (cons '+ lt))
)
)
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.