• Skip to main content
  • Skip to primary sidebar
  • Skip to footer
blog.draftsperson.net

blog.draftsperson.net

the art of technical drawing

blog.draftsperson.net

Best of LISP Collection: 13 Free AutoLISP Routines

September 18, 2020

Last updated July 27, 2026

The Best of LISP Collection is a grab-bag of thirteen AutoLISP files from different authors, bundled into a single free download. The copyright dates in the file headers run from 1990 to 2001, and the routines cover a spread of everyday drafting chores: flattening stray 3D geometry back to Z=0, mending broken lines and arcs, repeat-copying at a set spacing, rotating objects to match another entity, and a handful of layer utilities. It is one of many free downloads in our LISP routine library.

Because it is a compilation rather than one program, you can cherry-pick. Most files stand alone, and each one that carries an author credit is listed below, since these are third-party routines collected together rather than a single author’s work.

What it does in practice

The stand-outs are the repair tools. FLATTEN, by Mark Middlebrook of Daedalus Consulting, sets the Z coordinates of lines, polylines, circles, arcs, text, block inserts, points and solids to zero, which fixes drawings where round-off errors or a stray elevation stop object snaps from finding intersections. HEAL, by Andrew Bichard, rejoins two collinear lines into one, merges two concentric arcs of the same radius, and if you pick the same arc twice it closes it into a full circle. It refuses to heal entities that differ in type, layer, linetype, colour or thickness, and tells you why.

The productivity side includes CC, a continuous-copy command that repeats a copy at a fixed angle and distance every time you press Enter, and ROT from TimeSavers for CAD, which rotates a selection so a baseline you pick takes on the angle of another line. INSUL1, written by Andrew Nielsen of Melbourne, draws a batt insulation symbol as a joined polyline on an INSULATION layer, sized between three picked points. EXDWG simply opens Windows Explorer at the current drawing’s folder.

Command reference

Commands below are spelt as defined in the source; AutoCAD does not care about case when you type them.

FileCommand(s)PurposeCredited author
SUBROUT1.LSPnone (support library)Shared subroutines (error handling, system-variable save and restore, layer creation) loaded by HEAL.LSPUncredited
cc.lspcc, s0, s15, s20, s30, s45, s60, s75, s160, on, offContinuous copy at a set angle and spacing; snap-angle presets; turn all layers on or offUncredited
Dimcl.lspdimclReplaces a dimension extension line with a line in a centreline linetype (options for linetype and ltscale)TimeSavers for CAD (2001)
EXDWG.LSPExDWGOpens Windows Explorer at the current drawing folderUncredited
Flatten$.lspFLATTENSets Z coordinates of common entity types to zero (v2.1, 1994)Mark Middlebrook, Daedalus Consulting
flatten.lspnoneFragment defining a PP_FLATTEN function; depends on helper functions not included, so it will not run as suppliedUncredited
HEAL.LSPhealRejoins broken collinear lines, concentric arcs and elliptical arcs; closes an arc into a circleAndrew Bichard (1997–98)
Insul1.lspINSUL1Draws a batt insulation symbol as a joined polyline on an INSULATION layerAndrew Nielsen, Melbourne
KillStates.lspkillstatesStrips saved layer-state data (extended data registered to “RAK”) from every layerUncredited
layfil.lsplayfil (an rlf alias is defined but calls a function the file does not contain)Deletes all layer filters from the drawingUncredited
Rot2ent.lsprotRotates a selection so a picked baseline matches the angle of another lineTimeSavers for CAD (2001)
oxref0.fasunknownCompiled FAS file; cannot be read, purpose unknownUncredited
Spacer.VLXunknownCompiled VLX; internal strings show only that it loads a compiled module named spacer2, purpose unknownUncredited

How to load it

Extract the zip to a folder on your AutoCAD support file search path, then load whichever files you want with APPLOAD. Add the ones you use daily to the APPLOAD Startup Suite so they load with every drawing. Two wrinkles specific to this collection:

  • HEAL.LSP loads SUBROUT1.LSP automatically. Keep both files together; if SUBROUT1.LSP is not on the search path, HEAL asks you to locate it manually.
  • cc.lsp ends by trying to load two files, midpick and match, that are not in the archive. Its commands still define correctly, but expect a load error message afterwards.

If loading LISP files is new to you, the AutoLISP guide covers APPLOAD and the Startup Suite in more detail.

Step-by-step usage

FLATTEN

Type FLATTEN. It explains itself, then asks “Do you want to continue <Y>:”. Accept, then “Choose entities to FLATTEN” – press Enter to select everything in the drawing. It reports how many entities were flattened, how many were skipped, and highlights any skipped entities that still have a non-zero Z. Type U to undo the lot if you change your mind.

HEAL

Type HEAL, then answer “Select first side of heal:” and “Select second side of heal:”. If the two picks are aligned lines or matching concentric arcs on the same layer with the same properties, they become one entity; otherwise the routine reports exactly what differs.

CC (continuous copy)

Type CC, select objects, then give an angle and a distance. Each press of Enter at the “Distance to Copy/Exit” prompt places another copy offset from the last one, so you can march a detail across a drawing; enter a new distance to change the spacing, or E to finish.

Compatibility notes

These routines were written for Release 12 through 2001-era AutoCAD (the FLATTEN header states it requires Release 12). AutoLISP has shipped with every full version of AutoCAD for decades, so the plain .lsp files should still load, but treat “written for” as exactly that – they have not been tested on current releases. Other points worth knowing:

  • AutoCAD LT only gained AutoLISP in LT 2024, and DCL dialog boxes are not supported on LT. The support library in this collection references a dialog file (supp.dcl) that is not even included in the archive, so run this collection on full AutoCAD. See what runs on AutoCAD LT for the detail.
  • ExDWG calls Windows Explorer, so it is Windows-only.
  • The off command turns off every layer except the current one — the routine accepts AutoCAD’s default No when asked whether to turn the current layer off.
  • oxref0.fas and Spacer.VLX are compiled and cannot be inspected before running; load them only if you are comfortable doing so.

Download

Name: The Best of LISP Collection
Description: This is a “Best of Lisp” collection containing 13 lisp routines.
Various different Lisp routines from a lisp that opens windows
explorer to the current drawing directory, to a lisp routine that
rotates a selection to a entity of your choosing.
Type: AutoCAD AutoLISP Routine
Author: Anon
File Size: 19 Kb
Cost: Free
Worked on: AutoCAD
Download File: BestOfLisp.zip

Related routines

  • Zero Elevation – another approach to forcing geometry back to Z=0, if FLATTEN does not cover your entity types.
  • Numbering LISP Routine Collection – another multi-routine bundle, this one focused on sequential numbering.
  • Draw Architectural Walls – pairs naturally with INSUL1 when drawing wall and roof sections.

References

  • AutoLISP programming guide
  • Free LISP routine library
  • What runs on AutoCAD LT

Filed Under: AutoLISP Routines

Primary Sidebar

Subscribe to our Youtube Channel

Post CAD drafting jobs on Freelancer.com. and get some free money to do this.

Categories

  • American Steel Industry (4)
  • AutoCAD Articles & Reference (30)
  • AutoCAD Bugs & Problems (19)
  • AutoCAD Tips (29)
  • AutoCAD Tutorials (54)
  • AutoLISP Routines (328)
  • AutoLISP Tutorials (15)
  • CAD Standards (7)
  • Civil 3D (7)
  • Civil Drafting (4)
  • Dimensions (2)
  • Drafting Funnies (71)
  • Drafting History (9)
  • Drafting Standards (84)
  • Electrical Drafting (2)
  • General IT reference (7)
  • Geometry (15)
  • GIS (2)
  • Hatch Patterns (12)
  • Office Life Hacks (3)
  • PT (1)
  • Revit Tutorials (54)
  • Steel Detailing (14)
  • Structural Drafting (26)
  • Technical Dictionary (61)
  • Useful Website Links (19)

Footer

Free downloads

  • Free AutoLISP routines
  • Free hatch patterns
  • SHX fonts & text styles
  • Numbering LISP collection
  • ISO 3098B font

Reference charts

  • AWS weld symbols chart
  • Steel detailing chart
  • Hole & slot sizes
  • Bolt edge distance
  • ANSI & ARCH paper sizes
  • How to fold an A1 drawing

Useful links

  • CAD blocks (DWG)
  • Revit families
  • structuraldrafter.com
  • cad-corner.com
  • About
  • Privacy policy

Provided for free with no warranty · Log in