topic Move Blocks to insertion point of another Block in Visual LISP, AutoLISP and General Customization Forum

Move Blocks to insertion point of another Block

Designer_1E — Wed, 17 Jul 2019 20:08:03 GMT

Hello,

Does anyone have a LISP that can move a selection of blocks so that they all meet together at their insertion points, or a given coordinate?

I am cleaning up my cooworkers drawings and they don't bother placing their blocks neatly. For example: I've got 5 blocks in a cluster that should all be inserted at the same point, but they are scattered about. I've got endless clusters to clean.

Re: Move Blocks to insertion point of another Block

dlanorh — Wed, 17 Jul 2019 21:23:11 GMT

Try this

(rh:get_blks ( / ss)
  (prompt "\nSelect Blocks to align : ")
  (setq ss (ssget '((0 . "INSERT"))))
);end_defun

(defun c:ab ( / osm ss a_pt cnt ent i_pt)

  (setq osm (getvar 'osmode))
  
  (while (setq ss (rh:get_blks))
    (setvar 'osmode 64)
    (setq a_pt (getpoint "\nSelect Alignment Point : "))
    (repeat (setq cnt (sslength ss))
      (setq ent (ssname ss (setq cnt (1- cnt)))
            i_pt (cdr (assoc 10 (entget ent)))
      );end_setq
      (setvar 'osmode 0)
      (vl-cmdf "move" ent i_pt a_pt)
      (setvar 'osmode 64)
    );end_repeat
    (setq ss nil)
    (gc)
  );end_while
  (setvar 'osmode osm)
  (princ)
);end_defun

No error checking. Everything happens in a while loop, so you can process multiple groups without restarting the lisp. Too quit press return when asked to select blocks. Only select blocks in groups required.

OSMODE is set to (insertion) when asked to select the alignment point then off when the blocks are moved.

Its not ideal but should speed things up.

Re: Move Blocks to insertion point of another Block

dlanorh — Wed, 17 Jul 2019 22:00:39 GMT

Sorry, code didn't update properly. Try This

(defun rh:get_blks ( / ss)
  (prompt "\nSelect Blocks to align : ")
  (setq ss (ssget '((0 . "INSERT"))))
);end_defun

(defun c:ab ( / osm ss a_pt cnt ent i_pt)

  (setq osm (getvar 'osmode))
  
  (while (setq ss (rh:get_blks))
    (setvar 'osmode 64)
    (setq a_pt (getpoint "\nSelect Alignment Point : "))
    (repeat (setq cnt (sslength ss))
      (setq ent (ssname ss (setq cnt (1- cnt)))
            i_pt (cdr (assoc 10 (entget ent)))
      );end_setq
      (setvar 'osmode 0)
      (vl-cmdf "move" ent "" i_pt a_pt)
      (setvar 'osmode 64)
    );end_repeat
    (setq ss nil)
    (gc)
  );end_while
  (setvar 'osmode osm)
  (princ)
);end_defun

Re: Move Blocks to insertion point of another Block

Designer_1E — Thu, 18 Jul 2019 14:34:46 GMT

This is really close. It does group the blocks together, but not at the point selected. For some reason they are moved to -70',-70' from the selected point?

Re: Move Blocks to insertion point of another Block

Designer_1E — Thu, 18 Jul 2019 14:43:09 GMT

ok, I think it is because I changed the origin in that file... Now I need to figure out how to reset the origin.

Re: Move Blocks to insertion point of another Block

Kent1Cooper — Fri, 02 Aug 2019 17:40:47 GMT