This is a small routine for changing the "Snappang" variable by selecting a line to align your pointer with. This is most useful if you are doing piping design for lines that require a fall, e.g. 1:100 fall for a steam line. By setting your pointer to be aligned with the slopping pipe you can keep "ortho" on and stretch without altering the angle of the lines. I have created a flyout that has slopes of 1:100, 1:250, 1:500, 15/30/45/60/75 degree angles as standard but this routine is really good for odd angles or quick setting to existing lines.

Note file is in .zip format so will need to be unzipped. File size = 1kb

This was one I wrote for putting coordinates on centerlines. The routine requires text layers TXT25 for 2.5mm text, TXT30 for 3mm text and TXT50 for 5mm text. Simply specify which layer you want to put the text on and select a point on the line you want a coordinate for and select the end you want the text. The lisp routine will insert a block and scale it by the text height based on the text layer and by the dimscale value. E.g. select layer TXT30 in a drawing with dimscale set at 100 will scale the block by 300 and place it on layer TXT30. The routine takes the coordinates of the two points selected and determines the common coordinate X or Y, takes this value and puts it in the form E.100.000m or similar. The routine assumes positive Y values as North, positive X values as East, negative Y values as South and negative X values as West.

Note file is in .zip format so will need to be unzipped. this .zip file contains the Location.lsp and four other .dwg files required for it's operation. File size = 12kb

This is a very simple Centerline lisp for circles. This uses the quadrants of the circle to draw center lines with no extensions outside the circle. The center lines are made "color" red and "Linetype" centre2 and placed on the same layer as the circle. The color and linetype can easily be changed to suite your standards.

Note file is in .zip format so will need to be unzipped. File size = 1kb

This is a series routines for changing a given property of many attributes in one go. You may change the height, color, style, layer or content of all attributes in a drawing or part of a drawing in one go.

ASC = Attribute Style Change

Enter the new text style required and select attributes to change individually or by window or crossing. If the text style height is set to 0 the attributes retain their current height. E.g. change text style from standard to romans.

AHC = Attribute Height Change

Enter the new Height required and select attributes to change individually or by window or crossing. E.g. change attributes of different heights all to 3mm.

AAC = Attribute Angle Change

Enter the new attribute angle required and select attributes to change individually or by window or crossing. E.g. change attributes from 90 degrees rotation to 0 degrees.

ACC = Attribute Color Change

Enter the new attribute color required and select attributes to change individually or by window or crossing. E.g. change attributes with color bylayer to red.

ALC = Attribute layer Change

Enter the new attribute layer required and select attributes to change individually or by window or crossing. E.g. change attributes from layer TXT25 to TXT30 after increasing the height.

ATTUPPER = Change Attribute Text to Upper Case

Select attributes to change individually or by window or crossing.

BADT = Block Attribute Data Transfer

Have a drawing with text you want to put in a block, for example a list of reference drawings you want in an attributed block for database linking. Insert the new block with XXX as the value for all entries then use this routine to select the text then select the attribute to put it in. Is definitely quicker than retyping the whole list.

LTATT = layer name to attribute

As I draw all pipe lines in a piping GA on there own layer using line numbers as layer names this is handy when it comes to putting in the Line Number Racetrackes. I just bring in a single racetrack with the value XXX in the attribute. Copy it around with leaders/lines to the pipe lines I want to label, then using LTATT select a line on the layer you want then select the attribute. The attribute value is then set to the layer name. It helps to use all upper case when creating the layers. Although autocad will change it to appear propercase the lisp routine uses the original values.

Note file is in .zip format so will need to be unzipped. File size = 1kb

Libraries with Lisp programs and Dialogue Boxes to select and insert:

DRDMEM - Structural Steel Member Library.

DRDPIPE - Pipe Fittings Library.

General Hints and Tips:

Things we have learned as we go.

Mass File Corruption - What happened to us.

Free Block Downloads.

Handy Lisp Routines:

Che.lsp - Snapang to match entity angle.

Location.lsp - Adding Coordinates to Centre Lines.

CL.lsp - Adds Centre Lines to Circles.

Attribute.lsp - A Series of Lisp routines for modifying Multiple Attributes.

If you have any queries please try the Help File First.