Free Lisp Programs

Auto labeling of Z values.

LISP -Divide a circle into equal parts
Origianly Written By Lee Mac and can be found here.
Sometimes you get this tedious task to Divide a circle into equal parts.
As you know the angle dimension of the arc created by the division is: 360°\(number of divisions) and sometimes refer as V.The circumference of a circle is 2*π*r so each new arc length created by the division is \frac{2*\pi*r}{n}

Your final product should look like a pizza pie shape. if you need to copy or move one segment as a closed polyline you can use the BOUNDARY command . (keyboard shortcut BO)
I attached this lisp for those of you who search for a fast solution . it works great and will save you hours of work like LISP does .

There are two lisp files in the download link :

1. CBRK-Break up a circle into equal parts
2. CBRKA-Break up an arc into equal parts

Download the file and load it with APPLOAD command and type : CBRK or CBRKA in the command line to start the program

looking for a way to sum up your length of polylines ?

Here is the lisp for you , Not just it will do the summation for you, it will also label it as text . ( normally i move the text labels to a different layer that mark as “Un-Plot” so later i will double check it according to my BOM )

The Command LPL will work for LINE, SPLINE, LWPOLYLINE, POLYLINE, ARC, CIRCLE, ELLIPSE so you are fully covered   🙂

just download the file and load it with APPLOAD command and type : LPL in the command line to start the program

Count Rectangle Dimension LISP can be useful for many things . take it your own field .
For example, you can use it in construction plan , when you need to count different columns to create BOM ( Bill Of Material ) and pricing according to the sketch .
Others can use it for mapping or even to assure what is your general model space dimension , so you can estimate quickly the sheet size you will print on. (especially if you are working on 1:1 scale )
The command will create a table (according to your table style -TABLESTYLE and text style. Annotative as well 🙂 ) and arrange the objects by size and quantity.

Select Similar LISP works in a similar manner like Autocad SELECTSIMILAR with Awesome additions, and the best thing is that you can execute the command during another command (Erase, Move, Copy etc..) by typing ‘ss. (see the video below), and also always specify the desired area so it wont work on the whole drawing.
SS -the objects are filtered by object type, layer, color, and linetype.
SSL -will select an object on the same layer, ignoring object type, color or line type.
SST- will select similar TEXT (not mtext.) You will be asked to select a source object. If you do that, the lisp will ask for the other texts containing the exact same text. If not and you just click enter, it will prompt for a text pattern. The good part is that it will accept wildcards. for example, if you type “A#” it will select any of A0 A1 … A9. “A#*” will select any text stating with A, number, followed by any character(s). “A[123]” for selecting A1 A2 or A3 text (watch the video to make it clearer)
SSB- will select blocks with the same name as the source blocks.
SSD- will select all the dimensions in the selected area.

Originally Written By ASME (Cadtutor User) and can be found here
3D Piping Autocad LISP , its been online for a long time so any piper in 3D should have it
The LISP saves hours of work! a really useful replacement for the standard SWEEP command.
The Command will create a pipe as 3D Solid based on the user input for Diameter.

06.04.16

A major improvement for this lisp came from Stefan M.

1. Wall thickness option added
2. The path stays if you choose so
3. option to create the pipe without any path, user choose 2 points and 3D pipe will be created
4. If you use the option above, you now have the option to create the path post 3D pipe has been created
5. To call the command type CSS (after loading the VLX file)

Sum Numbers Autocad LISP, as simple as it sounds.
Choose your TEXT Entities (Not Mtext), Hit enter twice to and place the results or replace existing text with the result.

The LISP was found here : http://www.turvill.com/t2/free_stuff/
The Command will locate a block (user-specified by Name) ,at a specified distance from an edge . works on Polyline, Line , Spline & Arc.
See The Video Below For Quick Example

Originally Written By Lee Mac.

The lisp toggle between black and white colors works very fast (that’s why I choose this one from many others out there

Type TBG in AutoCAD Command Line to run the command

Sometimes you need to create Legend based on the layer in the drawing . one way is to create it manually (we are against it ofcourse!)
other way is to use this LISP written by Stefan M.
after loading the lisp (APPLOAD) type at the command line LEGEND.
you need select the objects that represent your layers to make Legend from , and it will create it automatically for you
check out the video below

Originally written By Alan J. Thompson’s and can found Here (theswamp.org)
Load the LISP to Autocad , Type BAD at the command line.
Click on the line, polyline, spline or arc.
The LISP will locate the breakpoint according to a numeric value closer to the endpoint where you clicked.
you can create multiple breakpoints one after the other, by just typing the desired distance, until you exit the command.
check out the video below for a short description
If its your first time using LISP please check this one for simple instruction: http://www.ellenfinkelstein.com/acadblog/how-to-load-an-autolisp-program/

The lisp creates an automatic table based on the selected entities, the table contains two columns, the first is the layer name and the second is the sum polyline length for that layer.
This “Sum Polyline Length lisp” was created by Stefan M. one of the most talented programmer lispers out there. (Thank you, Stefan)
The lisp works on Lines, Polylines, Splines, Arc, Circles, and more ..
After loading the lisp (APPLOAD) type at the command line LAYLENGTH

The lisp create an automatic table based on the selected entities , the table contains two columns , the first is the diameter and the second is the sum of 3d pipes length.
the lisp will ignore any object beside cylindrical entities
This Pipes Lisp was created by Stefan M. one of the most talented programmer lispers out there . (Thank you Stefan-Again!!)
After loading the lisp (APPLOAD) type at the command line PIPES
Check out the video below

Simple break lisp created to skip over AutoCAD default settings that ask for 1st and 2nd points,
just execute the command by typing JB, and chose the break point. That’s it.

The lisp will label a line/polyline with its own Layer name.
just execute the command by typing LL, and chose your objects. will work great for annotative text also.

Another Great LISP , AD (Automatic Dimension Autocad) is designed to automate the task of dimensions multiple lines, Polylines and polylines with arcs (the real Arc length)
Execute the Command by typing AD And choose your objects. Users have the OPTION (Dialog Box) to choose where you want your dimension to be. “Local Linear Dimension” Position can be located above or below line. “Arc Dimension Position” have similar location options.
The command work well for any Text Style, including Annotative Styles.

Sweep Rectangular Profile LISP will probably stay in the history of lisp users as a favorite. it uses the function of the sweep command with a design that help the user create RHS (Rectangular Hollow Section) profiles in 3D based on input in a dialog box.
inspiration came from the old XPIPE lisp by ASMI that released many other useful ones,(can be googled under ASMITOOLS)
it will not be possible without the help of our great coder Stefan M. that every time surprising us with another awesome code.
This lisp is called by typing SRE at the command line, (SweepRectangle) and is used to create simple rectangular hollow section 3D Solids without the need to sketch anything (besides the path of course)
The dialog box will let the user type input for width, height, wall thickness, and fillet (as most rectangular steel profiles have some)

Another Great LISP Written By Stefan M.
BOXCOUNT is designed to sum-up total length of extruded rectangles based on their section dimension (in Autocad Properties the Length of Extruded Shapes shown as “Height”)
The lisp Create A Data Table (Based on your current table style), and contain Width,Height and total Length of the selected objects
Execute the Command by typing BOXCOUNT And choose your objects. other objects then 3D solid rectangles will be ignored , the lisp also doesn’t count sliced object, so if you are counting Beams , do the cutting later.
Now you can create fast BOM of your model and export the table to Excel.

Creating a new layer has never been faster, this ‘ New Layer Lisp ‘ will create a new layer on the fly and make it the current layer , so you will not waste time with layer manager .

Load the lisp routine, Type NL, give it a name, choose color and you are ready to go.

*if the name you typed already exist, the program will stop with no results.

although you will not change Lineweight, linetype and other properties of the layer, you will find it very productive while working.

Autocad callout lisp: The lisp creates a comics style callout by clipping or creating a frame around the chosen object (Image Xref, Pdf Xref etc..).
Definitely, a powerful lisp that helps to crop image much faster and secondly adding some art to your drawing
how to use Autocad callout lisp:
load the VLX (same like you load lisp) , if your Anti-Virus give you a threat warning , please ignore. this file is safe exactly like lisp
call the command by typing CX and hit Enter.
user have two option:

Rectangular
object
if you choose the Rectangular option you will create the callout without clipping any object, just the bubble.
Callout lisp

simple comics style callout

if you choose the object option you will have the ability to clip (AKA crop) the object

Autocad callout lisp

Image Clip Callout (Xref, Not OLE)

Dirt Jump LISP
As one of my goals this year was to build a dirt jump park. I started to investigate the subject. seems like the trajectory of a projectile is a nice way to calculate your jump and land. im not going to get into the physics of that so take a look at Wikipedia and collect some info.

So here is a quick “how To use”:

load the lisp to Autocad > Type “Speed” > Enter Velocity (km/h only! sorry US&A Greatest Country)> Enter The Horizontal Angle as you see in the animation>Hit Enter and that’s it. now you have a rough estimation of where you are going to land.

You can use this lisp for any other rocket launching project (considering no extra propulsion after launch from the ground..)

If you are into designing dirt jump (or looking for dirt jump plans) or generally bike ramps, ping us with a message as we are currently working on something for all the woodworkers out there looking for a parametric solution (modeling in Inventor).

Note: there’s no recommendation on performing dirt jump with this type of bike

Rotate Multiple Objects Around Center LISP for Autocad
The routine is designed to rotate/align selected objects to a user specified direction.

The Objects that can be rotated Automatically are TEXT, MTEXT, BLOCK or ACAD-TABLE.

Rotation point is the middle of the bounding box for Text, Mtext, and Tables. For blocks, the rotation point is the insertion point of the block.

For the alignment, there are three options: WCS, UCS, and 2Points. For the first two, the alignment direction is the X direction of the selected Coordinate System. Selecting 2Points will allow you to pick the alignment on screen.

The lisp can be used to fix messy drawings, (we got this requests from few clients) each user will find the benefit of this Automation.

To call the Command Type: RMO

while selecting with windows selection method, the program will ignore object that isn’t mentioned above.

Hope you Enjoy the LISP and as always, please leave your comment.

Dog Bone CNC Router
This page was created for educational use to grasp the concept of Dog Bone Transition on a CNC router.
for those of you started with CNC routing, probably after you create the model you will prepare the sheet for cutting and create the tool path (as G-CODE) , There’s a very common issue you will stumble upon . the bit is round and you sure want a flat surface for your connection : one part will seat on\inisde another in a perfect flat match.
see the images

so what is this page about …
assuming you work on 3D, you can do the dog bone CNC transition as part of the model. there’s a guy named “caseycrogers” on GitHub that already publish a free plug-in https://github.com/caseycrogers/Dogbone for ‘fusion 360’.
Another way is to use the lisp program we have here that will automatically create the dogbone transition for all inner corners of a polygon on the dxf before sending to your “Maker”
the shortcut for the command is DBN . load the lisp and call the command>Select a polyline>type your CNC bit diameter (e.g. 8mm) and hit Enter.
now you have a dog-bone transition for all the inner corners.Dog Bone Lisp In Action – Autocad ,
We hope it helps 🙂 as always , leave your commnents or email us for custom LISP program devlepoment .

Set Global Width To 0 For All Entities
sometimes when importing data from other software (GIS In this example) you get messy drawing with different global width to different entities. this will reset everything back to 0.

After loading the lisp (APPLOAD) type at the command line GW

Check out the video below
If its your first time using LISP please check this one for simple instruction: http://www.ellenfinkelstein.com/acadblog/how-to-load-an-autolisp-program/

Originally the lisp was found on CADALYST july 2008, rewritten from scratch, expanded & improved by Kent Cooper

Another outstanding lisp was written by Stefan M.