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.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |