Code Archive

Enclosed Visual Lisp and VBA routines have proven useful to me and are offered free.

Code provided as is with no warranties or guaranties.

AUTONUM.zip Autonumber. I first developed this for numbering pieces on a drawing. It inserts a letter prefix of your choosing and appends with a number which auto-increments with the provision of repeating the same number.
Binder.zip This code detaches unloaded xrefs and then binds the attached xrefs. Very usefull when packaging drawings and the Bind All will not run because of unloaded xrefs.
BlockLay.zip Fixes inserted blocks by changing entities to layer 0 while maintaining the layer the block was inserted on.
cd.zip Routine is written in VB 6.0 . It opens and closes the CD tray.
JOIN.zip Joins two lines together and converts to polyline
Note.zip Puts your customizable standard notes in a dialog box for inserting into drawing. Saves typing and time and is the most useful code on this archive. Two versions are enclosed. with a Leader and without.
PROTECT.zip Old routine (not written by me) which will scramble the visual appearance of your lisp routine so prying eyes cannot read your code. Note this was easily broken and is only a first line of defense, then anyone good enough to break this can write their own code.
lander.zip This is a Lunar Lander game. Do not run in a valuable drawing. There is some risk of corrupting information. For entertainment only.
ZT.zip Zoom Trim. Select a window for the trim operation, than allows multiple trims in the same command