# Free Lisp Programs

This page is dedicated to Free Autocad LISP programs, some were found online and others are written by KIM talented programmers.
Some LISP will be in.FAS or.VLX format and others in readable.LSP. anyway, they are all loaded through APPLOAD command.

Command Name
What it does?
Name and description
ZLABEL
Auto labeling of z values
ZLABEL
Auto labeling of z values
Autocad lisp z value labeling Works with annotative text

Auto labeling of Z values.

Sale

Sale

Sale

CBRK CBRKA
Divide a circle (or an arc) into equal parts
CBRK CBRKA
Divide a circle (or an arc) into equal parts
LISP – Divide a circle into equal parts

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 .

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

Sale

Sale

#### Inventor Work Plane Visibility

LPL
Sum polyline length & create text label for the summation
LPL
Sum polyline length & create text label for the summation

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   🙂

Sale

Sale

Sale

RECDIMS
Count Rectangle Dimension & arrange them in a table
RECDIMS
Count Rectangle Dimension & arrange them in a table
Count Rectangle Dimension LISP

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.

Sale

Sale

Sale

SS
Select Similar by Object Type, Layer, Color and linetype
SS
Select Similar by Object Type, Layer, Color and linetype
A much Better Select Similar ! Autocad

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.

Sale

Sale

Sale

XPIPE
Create pipes in 3D based on Diameter Input
XPIPE
Create pipes in 3D based on Diameter Input

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.

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)

Sale

Sale

Sale

S2
Sum Numbers (Text Entities) place the Result
S2
Sum Numbers (Text Entities) place the Result

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.

Sale

#### Inventor Work Plane Visibility

Sale

PUT
Insert Block At Specified Distance works on Polyline, Line , Spline & Arc.
PUT
Insert Block At Specified Distance works on Polyline, Line , Spline & Arc.
Insert Block At Specified Distance Autocad LISP

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

Sale

Sale

Sale

TBG
Change Autocad Background Color (Black To White and Vice Versa)
TBG
Change Autocad Background Color (Black To White and Vice Versa)

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

Sale

Sale

Sale

LEGEND
Create Automatic Legend Based on user selected layers
LEGEND
Create Automatic Legend Based on user selected layers

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.
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

Sale

Sale

Sale

Break Polyline At Specified Distance
Break Polyline At Specified Distance
Break Polyline at specified Distance LISP

Originally written By Alan J. Thompson’s and can found Here (theswamp.org)
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

Sale

Sale

Sale

LAYLENGTH
Sum Polyline Length , Create Table Containing The Sum For Each Layer
LAYLENGTH
Sum Polyline Length , Create Table Containing The Sum For Each Layer
Sum Polyline Length Lisp And Arrange In Table

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 ..

Sale

Sale

Sale

PIPES
Sum up 3D Pipes Length Based On Diameter
PIPES
Sum up 3D Pipes Length Based On Diameter
3D Pipes Sum Length Autocad Lisp

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!!)
Check out the video below

Sale

Sale

Sale

JB
Simple Break LISP
JB
Simple Break LISP

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.

Sale

Sale

Sale

LL
Label Line / Polyline With Layer Name
LL
Label Line / Polyline With Layer Name
Label Line With Layer Name Autocad LISP

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.

Sale

Sale

Sale

SRE
Sweep Rectangular Profile Lisp
SRE
Sweep Rectangular Profile Lisp
Faster and More Efficient Way To Sweep Command Autocad

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)

Sale

Sale

#### Inventor Work Plane Visibility

BOXCOUNT
Sum Length Of Extruded Rectangles 3D Solid
BOXCOUNT
Sum Length Of Extruded Rectangles 3D Solid
Extruded Shapes Length

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.

Sale

Sale

Sale

NL
Create New Layer Very Very Fast!
NL
Create New Layer Very Very Fast!
New Layer Lisp

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.

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

Sale

Sale

Sale

CX
Crop any Xref (image, pdf, dwg) and create a comics style bubble (callout)
CX
Crop any Xref (image, pdf, dwg) and create a comics style bubble (callout)

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

Image Clip Callout (Xref, Not OLE)

Sale

Sale

Sale

SPEED
Calculate Dirt Jump -Trajectory of a projectile
SPEED
Calculate Dirt Jump -Trajectory of a projectile
Trajectory of a projectile-Dirt Jump MTB Calculation using Autocad and LISP

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

Sale

Sale

Sale

RMO
Rotate Multiple Objects Around Their Center
RMO
Rotate Multiple Objects Around Their Center
Rotate Multiple Objects Around Center LISP

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.

Sale

Sale

Sale

DBN
‘Dog Bone’ Transition For CNC Router
DBN
‘Dog Bone’ Transition For CNC Router
Dog Bone CNC

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

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 .

Sale

Sale

GW
Set Global Width To 0 For All Entities
GW
Set Global Width To 0 For All Entities
Set Global Width To 0 For All Entities

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.

Check out the video below

Sale

Sale

Sale

MM
Quickly Create Entities based on your selection. Super Productive
MM
Quickly Create Entities based on your selection. Super Productive
MM-Make more of the same object

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

Sale

Sale

Sale

UNIP
Join outer permieter of different shapes into a single joined Polyline
UNIP
Join outer permieter of different shapes into a single joined Polyline
Join outer permieter of different shapes into a single frame.

Another outstanding lisp was written by Stefan M.

Sale

Sale

Sale

QB
Create block quicky with computer generated name.
QB
Create block quicky with computer generated name.
Create block quicky with computer generated name.
Sale