Your rotmult command works perfectly for it, but my lines change directions often and sometimes have arcs. I know this is a very old thread, but is there a way to further this lisp command so that each block that is already placed at the midpoint of a polyline can snap to the line or perpendicular to it? I’ve got a block that looks like a bubble and a leader with a number to indicate what number line segment it is so that depending on which direction the polyline is going, my block with a number 1 points to the midpoint of the line segment between the 1st and 2nd vertexes, the same block with a number 2 points to the midpoint of the next line segment and so on. (prompt “Select Entities to Mirror, for SSX.”) * Written by Matthew Hardcastle, May 2016 * allows selection by AUTOCAD selection sets or SSX. * Mirrors many entities around their respective basepoints This is defined within the lisp by the base point and 1 unit above the base point This could be easily changed for X axis mirroring by swapping for sure this could be set up to prompt the user to either enter an angle or define two points but I’ll let someone else figure that out! The below mirrors the objects in the Y axis. I too wanted to mirror multiple blocks about their base points so used the lisp posted above as a template. ( setq ename ( ssname ss x )) ( setq elist ( entget ename )) ( setq pnt ( cdr ( assoc 10 elist ))) ( command 'Rotate' ename '' pnt ang ) ( setq x ( 1+ x )) ) ) ) )īit late I’m sure but see the below, hope it can help others. ( if ( setq ang ( getreal 'Enter Rotation Angle: ' )) ( repeat num * Written by David Husch, January 1991 ( defun c:rotmult () (prompt 'Select Entities to Rotate, for SSX.' ) ( setq ss ( ssget )) ( if ( not ss ) ( setq ss ( ssx ))) ( setq num ( sslength ss )) ( setq x 0 ) ( if ss ~Enjoy * Rotate Multiple * Rotates many entities around their respective basepoints * allows selection by AUTOCAD selection sets or SSX. “Enter Rotation Angle:” enter a positive number to rotate the objects counter-clockwise (example 90) and a negative number to rotate the objects clockwise (example -90).I don’t know why, but all that I know is that I want them right-side-up. In the example below, there is a vertical column of blocks that are rotated clockwise by 90s. And instead o0f rotating everything around one base point, the object’s individual base point is used. The Routine allows you to rotate multiple objects such as blocks and text objects that have an “Insertion Point” to a user-specified angle. Rotate Multiple Lisp routine with date shown

Autocad rotate attribute lisp meme