My Lisp Routines

This page was created to make available Lisp routines and programs I have developed while I have been using Autocad through Rel. 10 to Rel. 14. Below are various short routines which made my work much easier and maybe they will help you. Included below are the titles of the routines, a short description of its use, the release to which the routine was created. There are two lists one with routines written by myself and are free to copy and distribute, providing the authorship is not altered. The other a list of routines which I found useful.

- Routines by Jack Walshe -
Change Entity Colour
Xreference File Multiple Copy/Save
Change Entity Linetypes
Multiple Text Change
Multiple Drawing Script Selector
Save Drawings as DWF and HTML (Ar Nova CADviewer)

Go to
Downloads

Allows the changing of colour of any number of entities to another colour that is displayed on the screen at the time. The routine uses the colour reference on the entity list or if the colour is a default then it uses the layer list for its colour.

Go to
Downloads

The purpose of the routine is to resolve the situation of having a xreference file not load because someone is using/editing it, as files are not loaded if they are already open (Filelocking enabled). Two copies co-exist, one the 'issued' copy and one the 'working' copy. These are stored in different locations and this routine gives the option to save to two locations.
This routine checks firstly if the drawing file is located in the directory assigned to 'xrefwork' and any subdirectory under it. If it is not, it is not a base file, the routine exits. If it is, the drawing is saved. Then you are prompted if you wish to save to directory assigned to 'xreforig', if you do, and it exists you are prompted if you wish to over write. This is a very useful routine, as it can be adapted for any situation.

Go to
Downloads

Allows the changing of linetype of any number of entities to another linetype that is on the screen at the time. It uses the linetype reference on the entity list or if the linetype is a default then it uses the layer list for its linetype.

Go to
Downloads

MCT this is a quick MULTIPLE text change routine. It changes a selection set of text entities to a new text. It can be used as a single text change as well.

 

Go to
Downloads

This dialogue driven routine allows you to select multiple Autocad drawing files to execute a script on. You can select drawings from any number of different directories and have that list ready at your finger tips to run a script on. Each drawing highlighted is opened in turn and a script file is executed on it. Generally script files will contain a list of commonly used groups of commands, saved as a text file.

Examples of a script file;

• Set of commands to reset all dimension variables to a standard form.
• Insert a set list of layers, setting colour and linetypes, delete any known layers which are to removed.
• Insert a plot stamp in a drawing and update it.
• Set up standard text style and amend existing styles to preferred settings. etc...

The routine saves the current drawing you are in unless the drawing is "unnamed". So if you have information in a drawing called unnamed save it as something else!.

Go to
Downloads

Allows you to save your drawing, export it as a dwf and create a html page (all to the same directory), the html file is formatted for use with IE and Netscape. This routine is an adapted routine by Autodesk for use with the Ar nova Cadviewer light. You need this software to run the html page. See the DWF section for downloads and help. The Html is formatted to have a 550X 400 window within a html page. The option for viewer file directory is the location if the viewer Java files.