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