South Plains AutoCAD Users Group

LISP of the Month
1999

January February March April May June July August September October November December

HOME Current LISP 2005 2003 2002 2001 2000 1999 1998 1997


 

December's Lisp of the Month

FRAD.Lsp An oldie but a goodie.

Match Fillet Radius routine
Created in 1990, and still works in any version of AutoCAD, even 2000.

Written by Chris Lovelock

 

November's Lisp of the Month

Stat.Zip Deflection and Stress Analysis of 2d Shapes on Screen

AutoLISP program for AutoCAD2000 that helps you get static values of a shape on screen. I extended its working area to deflection and stress calculation according to user's inputs.

Written by Dominique Louis

Click for Larger Image

Sqtr.Lsp

 

Draws a 3D transition from Round to Square.

Submitted by Rob Jude
Written by Mark Conner, Kelly Construction

 

 

October's Lisp of the Month

ZMT.Lsp
Ver. 1.0
ZMT - "Z-Match Text"

Changes the Elevation of an entity based on the VALUE of selected TEXT.

Requested by Harry Twomey
Original by Roy Pettitt, ZMATCH.Lsp 1992
Modified for TEXT VALUE by Jeff Tippit

UPDATED
05/23/01

TBOX.Lsp
Ver. 1.3

Text Box Routine

Draws a box around selected TEXT or MTEXT  based on a user defined scale factor.

1.3 Added MTEXT angle-support, replacement scale with offset

Original Requested by Jochem van Bruggen
Mtext modification Requested by Kevin Mortimer

written by Jeff Tippit
updated by Paul Durrer

 

September's Lisp of the Month

Xscale.Lsp Independent XYZ scaling of selected entities

Requested by Timothy Keyser
Written by Thomas Berger 1996

UPDATED
01/02/01

MRP.Lsp
Ver 1.5

Multiple Rotate by Point

1.4 Added angle entry prompt 11/06/00
1.5 Added text,mtext,rtext,attdef support 12/10/00

Rotates, by reference angle, multiple blocks toward a specified point or saved View's
camera point based on each blocks insertion point. You can select blocks by Selection
set or by Layer filtering.

Useful in renderings when you need to rotate bitmap people toward a camera source.

Requested by Ernesto Lacalle
Requested updates 1.4 & 1.5 by Tim Dougherty

created by Jeff Tippit
DupRem.Lsp
Ver 2.0
Erase Duplicate Entities

This program creates an list of entity lists for all entities in the drawing and then
compares each entity list with the total list, building a new selection set of all
duplicate entries which are then erased.

Changes to the orginal file:
    1. Modified to work with R14 & 2000
    2. Now prompts for 3 types of selection sets (normal selection, by Limits, or Entire database.)
    3. Works on all types of entities (including LWPOLYLINES)

Originally created by Dave Aguilar 1994 Onyx Software
Requested by Adam G., Jones, Edmunds & Assoc.
Updated by Jeff Tippit

 

August's Lisp of the Month

CTAN.Lsp
Ver 1.1
Draws a circle Tangent to a picked point on a Line or Arc. Allows you to flip the circle if needed.
Note: Make sure you force object snap when selecting a tangent point.

Requested by Eran Tal
created by Jeff Tippit

 

July's Lisp of the Month

BF.Lsp
Inclues 2 commands:

BF (Bring Forward) simply copies a selected entity on top of itself and erases the original. The copy will be the latest addition to the drawing database; therefore, will not be covered by other objects.

BFM (Bring Forward Multiple) allows for selection of multiple entities. Also automatically filters out SOLIDS, HATCHES, and entities on Locked Layers and reports how many of each was found.

BF originally written by JLP 07/92
BFM added by Jeff Tippit 07/99

 

June's Lisp of the Month

DDTdim11.Exe
Ver. 1.1
DDTDIM is for toggling dimension styles on existing dimensions.
Routine automatically filters for dimensions.

written by Michael E. Earl

Visibility.Lsp
Ver. Beta 0.07
Visibility - INVISIBLE and VISIBLE are for making Entities/Objects Visible or Invisible regardless of layer settings or layer lock status.

written by Frank Zander of Contract CADD

Helix.Lsp Helix - Draws 3D helical springs and coils of varying width. Note: SURFTAB1 controls resolution (number of segments/rotation) After creating the basic coil (coil width set to 0) shown to the left, you can extrude a circle along its path for a solid 3d helix, as shown to the far right. Example is shown with SURFTAB1 set to 30.

written by Tony Tanzillo 8/89

CloneV1.Zip Cloning Tool dialog box driven lisp routine which is like AutoCAD's property painter but with more features.

Works with R13, R14 & R2000.

written by Stephen Taylor

ABlk412.Zip Working 20-Blk Demo Version of the Block Catalog and Print Program

1. Process Unlimited number of Blocks and Drawings from any directory.
2. Option to Catalog & Print 1, 2, 4, 8, 12 or 20 blocks per sheet.
3. This program organizes Blocks quickly & efficiently.
4. Automated printouts show the block name, insert point & date stamp.
5. Very positive feedback from current users.

Works with ACAD versions 11/12/13/14 DOS & Windows.

written by Cad Design Services

 

May's Lisp of the Month

FilletPl.Lsp
Ver. 1.4
Fillets two parallel lines with a single line.
Selection and resultant fillet follows normal FILLET 0 convention.
Works in any version of ACAD.

written by Syd Derbyshire of Lancashire, England
modified by Jeff Tippit

Web Site - New 15.0 Version

UPDATED
06/10/99

B14.Zip
Ver. 14.9

B13.Zip
Ver. 13.9

Now this is the ULTIMATE BALLOON LEADER ROUTINE!

Features:
- Both work in R14 and 2000
- Dynamic Preview Image
- 10 Balloon Shapes (4 w/ X & Y scale factors)
- 16 Arrowhead Types (7 for B13 version)
- Without leader option
- Sequential  Numbering and Lettering
- Custom Dialog with Save INI file support
   * Layer settings
   * Text settings
   * Size settings
   * Snap settings for 1st picked point (new)
   * Allow lowercase text toggle (new)
   * Save Path to INI file (new)
   * Save and Restore INI buttons (new-restore)

written by Jeff Tippit

 

April's Lisp of the Month

BlkBrk.Zip BlkBrk.Lsp - Breaks the entity around a block.

Added LWPOLYLINE   support for R14. Zip includes instruction DWG.

written by Rick E. France, Cadalyst Mag. Tip#1026, 1994
modified by Jeff Tippit


before             after

 

March's Lisp of the Month

BlkMgr.Zip
Ver. 1.1
BlkMgr.Lsp - Creates a slide library of blocks within the current drawing only.

Tested in R13 & R14.

requested by L.T. Tan
written by Unknown
modified by Jeff Tippit

DDPurge13.Zip
Ver. 1.0

 

DDPurge14.Zip
Ver. 2.0

DDPURGE is a routine designed to take advantage of the AutoCAD R13 purge at any time feature. The user can select any of the options usual for the purge command, as well as the number of purge cycles. DDPURGE automatically purges all unreferenced objects of the type selected in the dialog box. The user has the option of selecting one to five purge cycles. Three purge cycles are usually sufficient to purge any unreferenced objects, but on occasion five may be needed.

written by Jay Garnett

DDPurge14 Version 2.0 modified  from the original DDPURGE to work with R14.

modified by Jeff Tippit

ElLead.Lsp
Ver. 1.0
Ellipse Leader - Draws Ellipse leaders with only 3 picked points. Size and angle of the Ellipse is based on your first 2 points.

written by Jeff Tippit

 

February's Lisp of the Month

LeadStat.Lsp
Ver. 1.6
 

Station Leader - Draws automatic leaders with the coordinates of the picked point. Either X & Y (2) or X, Y, & Z (3) coordinates. Formatted for Decimal Feet. Added Custom Settings - change lines 36-40 to your preferences units, precision, inch removal, ft mark addition, & divide by 12

Requested by Kevin Haulotte, written by Jeff Tippit

 

January's Lisp of the Month

Balloon.Lsp Places Balloons and Leaders with arrows.
Automatically increases the numerical value after each balloon.

Requested by Ellsworth Jenkins, written by Bob Abernethy, modified by Jeff Tippit

Reverse.Lsp Routine for reversing the drawing for plotting the entire drawing in REVERSE.
This is commonly done when plotting to enable the plot, when viewed, to be on the backside of the media.

Concept from Murray Clack's Productivity Page December 1998

Written by: Bob Abernethy & Modified/collaborated on by: Jeff Tippit

Gap.Lsp Locates and marks the ends of arcs, lines, and plines that are close but not exactly coincident.
Gaps are marked by drawing circles on the GAP layer.
You can select part of a drawing to check or press ENTER to check the whole drawing.
These are the distances to control how the gaps are located

Original by: McNeel & Assoc.  & Modified/collaborated on by: Elmer Starchuk & Jeff Tippit

 

All routines that have an author listed in the file are kept intact as to respect authorship.
Some of them may not have an author, if you recognize a routine that is yours please e-mail me so that I can acknowledge you.
If you would like to see your work archived here feel free to send it to the address below.
Any routines will be posted acknowledging you as the author. If a routine is labeled new, it means new for this site.


Powered By SGI Servers
SGI Powered Web Site
Page Maintained & Updated by Jeff Tippit
Original Page Design & Implementation By Patrick M. Slattery
Copyright © 1996-2007 SPAUG
Last Updated February 28, 2007