![autocad lisp routine autocad lisp routine](https://autocadtips.files.wordpress.com/2014/09/exb2c-3-extrim.gif)
Under Interpolate, you can interpolate at a midpoint, at a given point and N values between a given points and interpolate at given distance. Under Select, you can initiate a jump to the text of the same layer and other text. Also, you can scale and change blocks in the drawing.
![autocad lisp routine autocad lisp routine](http://www.lee-mac.com/tutorials/debugvlide3.png)
Under Blocks, you can insert block at the end point or the intersection or between selected points. You can show layer by layer and use layer manager to accomplish other tasks. Under Layer, you can pick the text for layer name, move each text of the specified layer individually. Also, you can remove the z value of all the vertex of a polyline (Convert 3d polyline into 2D polyline). Under 3D Polyline, you can create a 3D line by selecting elevation texts in different combinations. Also, find the total length of the selected line and put the gradient. Under Polylines, you can convert connected lines to polyline, reverse and measure each segment and cumulative distance of polyline, mark chainages and each node and measure clockwise / anticlockwise bearing. Also, mark intersecting lines of different layers. Under Lines, you can join points or blocks and find overlapping lines. Also, you can divide, increment, add special value, concatenate and finally insert the sequential numbers to text. Under Text Value Modification, you can interchange text, create new text and copy reference text to all other selected text. Also, you can change the case and justification of text. Please wait a few minutes and refresh this page.Under Text categories, you can rotate, change the angle or align texts with respect to selected text or parallel to the line.
![autocad lisp routine autocad lisp routine](http://i.ytimg.com/vi/DipL9WrVBfM/hqdefault.jpg)
* 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.
![autocad lisp routine autocad lisp routine](http://www.cadtutor.net/tutorials/autolisp/quick_start/qs-101.gif)
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