Freebies

(Updated 11/15/2007 )

This is a small compendium of AutoLisp and VisualLisp widgets that may serve some purpose to someone, somewhere, at some time or another, plus a couple of Leroy font files.

To download a file, Right-Click and "Save Target As..."

A2C.LSP (R14+)  A simple utility to change Arcs to Circles.

Add_CGPoint.lsp (R15+LDT)  Example ActiveX function to add an LDT CogoPoint object.

Cancel.LSP (R15+)  Example code for reactor and callback function to cancel most AutoCAD commands.  Note that commands such as "Quit" can not be cancelled as they require no further user input.

Clear-Atoms.LSP (R15+)  Function to remove from memory any AutoLisp symbols and VLA-OBJECTS matching the given input string (not case-sensitive)

CloneBlock.LSP (R15+)  A function dedicated to Mike Evans to duplicate a block definition. A small example of using the ActiveX CopyObjects method in VisualLisp

Collinear.LSP (R15+)  A function to test if two Lines are collinear given a fuzz factor.

Color2Layer.LSP (R12+)  A function to change all objects whose color is hard-wired to a layer whose name matches the color.  Creates layer names if they don't exist; changes the object's color to "BYLayer", and makes the layer's color to match its name.

CopyText.LSP (R15+) 
Original Program Name: C:CA
Description: Match text values in attributes or text strings. Pick Source entity (Attribute or Text) then pick multiple destination entities; it will copy the text value from the source to the destination.
Date: 4-23-99  Version: 1.00  Author: Micah Nerren (714) 556-4454
New Program Name: C:CopyText
Overhauled 06-19-02 by John Uhden, Cadlantic, based on request by jducharme@reid-crowther.com in the AutoCAD Customization Newsgroup.
Note: Since there's almost nothing left of the original code, this is donated as public domain, aka "Freeware"

Digital.LSP (R12+)  A function to create screen vector representations of numeric strings with characters appearing like a digital (LCD) clock.

EastNorthToXY.LSP (Land Desktop R2 and higher) An ActiveX AutoLisp function to convert a Land Desktop coordinate to AutoCAD XYZ.

ExtensionDictExample.LSP (R14+) An example of two ways to attach an extension dictionary to a layer.  Can be used for any drawing object.

FindFiles.lsp (R15+) A Program dedicated to the DOS-challenged Mark Propst.
It's purpose is to find files within a directory and/or subdirectories given the user's choice of file specification and string to search within the files found (case-insensitive).
It will write the results to a file of the user's choice in the format
  File Name
  <tab> Line containing search word
  <tab> Line containing search word
  etc.
Requires DOSLIB2K from McNeel.com (many thanks to Dale Fugier)

FixDwgDfm.LSP (Land Desktop R2 and higher) Functions to add to you ACADDOC.LSP file to repair the Symbol Manager path in a drawing's DFM file.  Includes a function to automatically maximize the drawing window.

GetMidpoint.LSP (R15+) A simple function to return the coordinates of the midpoint of any graphical VLA-Object

GripLayer.LSP (R15+) A simple program to select one object and grip and report the layer's name and the number of objects on that layer in the current layout/viewport.

KILLDOTS.LSP (R12+) Recovered from the archives of the Compuserve ACAD Forum by the ever jocular Tracy Lincoln, and returned to its author, we present this "New and Improved" version (02-13-02). This utility (for R12-R15) aims to delete all single-vertex polylines, zero-length lines/polylines, and text with empty strings or just spaces from a drawing. ENJOY, or else!
NOTE: It bypasses, but does not stumble on locked layers.

Limmax.lsp (R15+) Function to permit changing the value of "LIMMAX" in a Paper Space layout whose Paper, Margins, or Shadow are turned ON. An example of using Visual Lisp with ActiveX, R15+. Dedicated to Jim Dean

LEROY.SHX  (any release) Font file emulating the Leroy template with proportionally spaced characters with true arced segments.

MLEROY.SHX  (any release) Font file emulating the Leroy template with mono-spaced characters with true arced segments.

MsgBox.lsp (R15+) A cute little function to invoke a VBA message box and return a value to AutoLisp.
 Requires AutoCAD 2000 (R15) or higher.

PolyDir.LSP (R15+) Function to compute the direction of a LWPOLYLINE, POLYLINE, or AECC_CONTOUR. It returns either "CW" for clockwise, "CCW" for counterclockwise, or nil if a non-qualifying entity is selected.

RenameBlock.lsp (R15+) Function to rename a block from 'Old to 'New.  Plain AutoLisp.

ssgetends.lsp (R12+) Function to create a selection set of Lines within a fuzz distance of either end of a Line given the 'ENAME of the selected line and the fuzz distance as a real or integer.

Str2List.LSP (R15+) Function to parse a string into a list of strings, distinguishing where to separate the string by a given delimiter.

TrimLineInside.lsp (R15+) An example of ActiveX methods to trim a line inside a boundary without the use of the (command) function.

vlax-remove-vertex.lsp (R15+) Function to delete a vertex of any POLYLINE given either the 'ENAME or VLA-OBJECT name of the entity and either an index number or the coordinate of the vertex

VlistAX.lsp (R15+) Function to return 2DPolyline data as a list in the format (v1 bulge1 v2 bulge2 ... vn bulgen)

ZEall.lsp (R15+) Program to Zoom Extents in all Model Space Viewports.  An example of using Visual Lisp with ActiveX, R15+. Dedicated to Richard Chalmers

There will be more to come as time permits.

Top | Home | john.uhden@cadlantic.com | Hits