topic Re: Batch Align multiple objects in Visual LISP, AutoLISP and General Customization Forum

Batch Align multiple objects

rponsell — Wed, 28 Oct 2020 22:24:22 GMT

Is there a way to use LISP or macro to align multiple objects to multiple other objects?

In the Sample.dwg I have 6 rectangles: 1, 2, 3, A, B, and C. I have shown what I would be starting with and what I would like to to look like when finished (rectangles A, B, C on top of 1, 2, 3).

Essentially, I want to use the align command multiple times without the need to repeat the command. Pick one point on each object and give them each a separate destination.

Any ideas?

Thanks,

Ryan

Re: Batch Align multiple objects

Sea-Haven — Wed, 28 Oct 2020 23:50:49 GMT

This is a simple approach say as a start. I can see a real dwg being a lot more complex than just 1=A and so on this could be done but what happens when no B ?

(defun c:stack ( / obj point1min point2min point2max point2max ss) (while (setq ent1 (entsel "\nPick 1st object Enter to exit")) (setq obj (vlax-ename->vla-object (car ent1))) (vla-GetBoundingBox obj 'minpoint 'maxpoint) (setq point1min (vlax-safearray->list minpoint)) (setq point1max (vlax-safearray->list maxpoint)) (setq ent2 (entsel "\nPick object to move ")) (setq obj (vlax-ename->vla-object (car ent2))) (vla-GetBoundingBox obj 'minpoint 'maxpoint) (setq point2min (vlax-safearray->list minpoint)) (setq point2max (vlax-safearray->list maxpoint)) (setq ss (ssget "W" point2min point2max)) (command "move" ss "" point2min (list (car point1min)(cadr point1max))) ) (princ) )

Re: Batch Align multiple objects

pbejse — Thu, 29 Oct 2020 06:02:12 GMT

@rponsell wrote:

Essentially, I want to use the align command multiple times without the need to repeat the command. Pick one point on each object and give them each a separate destination.

Command: MULTIPLE
Enter command name to repeat: align

it will start the command immediately and continue until you done want it anymore

Try it

Re: Batch Align multiple objects

ВeekeeCZ — Thu, 29 Oct 2020 07:37:09 GMT

Not sure whether your sample drawing is just too much simplified, but I would simply MOVE the objects.

Re: Batch Align multiple objects

JTBWorld — Thu, 29 Oct 2020 13:09:45 GMT

You might find our app JTB Align Plus helpful.

Re: Batch Align multiple objects

rponsell — Thu, 29 Oct 2020 13:48:20 GMT

I forgot all about the MULTIPLE command. It does increase my workflow, and I'm going to count this as a solution. I am still interested in finding a way to select all the objects at once, then using the ALIGN or MOVE commands on each item in the selection set separately rather than the whole set. I basically want to eliminate the step when using MULTIPLE -> ALIGN/MOVE and having to select a new object each time.

That may be being too picky though, lol. MULTIPLE works great. Thanks for the reminder!

Ryan

Re: Batch Align multiple objects

rponsell — Thu, 29 Oct 2020 13:47:31 GMT

Re: Batch Align multiple objects

ВeekeeCZ — Thu, 29 Oct 2020 14:09:05 GMT

How about something like this.

(defun c:MoveR ( / p e) (while (setq p (getpoint "\nSource ref point: ")) (if (or (setq e (car (nentselp p))) (and (setq e (car (entsel "\nNOT SELECTED, select manually: "))) (setq p (getpoint "\nSource ref point: ")))) (command-s "_.move" e "" p))) (princ) )

This will work if your ref. points are laying ON an object to move. Then the object is selected automatically.

Re: Batch Align multiple objects

Kent1Cooper — Thu, 29 Oct 2020 14:27:27 GMT

@rponsell wrote:

... I want to use the align command multiple times without the need to repeat the command. Pick one point on each object and give them each a separate destination.

....

I am still interested in finding a way to select all the objects at once, then using the ALIGN or MOVE commands on each item in the selection set separately rather than the whole set. ....

If they're already oriented correctly as in the sample drawing, so that MOVE will do instead of ALIGN, and if those letters are only for identification and not part of what you want to reposition, then here's another way:

(defun C:MultiMove (/ ss n) (prompt "\nTo Move a selected set of objects, each individually,") (if (setq ss (ssget "_:L")); [reject things on locked Layers] (repeat (setq n (sslength ss)) (command "_.move" (ssname ss (setq n (1- n))) "" pause pause) ); repeat ); if (princ) ); defun

Each one is selected/highlighted so you can see which one it's Moving as it steps through. Pick your "one point on each object" and then its "separate destination."