This HTML document was automatically generated by lsplst.lsp from
ParaCADD

The information shown for each file was automatically extracted from the files
Many files simply do not have a description, sorry. Some files are junk or scraps.
Use "Edit/Find (on this page)" to locate files or topics.
Every effort has been made to eradicate the copyrighted works of other people from this listing unless inclusion here is permitted by the author. There are over 719 files in this list. If you discover any copyrighted work that should not be here or if you find a link is broken please contact websterparacadd.com

Drawings used by these routines are here

Updated November 28, 2005

Place "100yr Flood El=###" and symbol at station and elevation.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 2-23-99
	   Edited: 2-23-99

Requires uutils, getstyle, dimscl, gvpno, ustr, uint, mklayr, ureal

2PM.LSP	Command "2m" Returns midpoint between two points. Command "lp" Returns LASTPOINT system variable.

3dlline.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 11/28/2003 Edited: 11/28/2003

abbrlst.lsp

Adds words used in a drawing to Abbr.txt in the drawing's folder or
creates Abbr.txt if it does not exist. Does not make duplicate entries.
Run in every drawing to list all abbreviations and other words used
across a project. Cannot recognize words in Xrefs or nested blocks.

	Author: Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Edited: 11-23-2005

Requires ukword, either requires or can use Doslib, requires abbrlst, ustr

ABRKSTR.LSP

Subroutine for applying word wrap to a text string (makes multiple lines from single line).
Requires two arguments (abrkstr [string] [wrap length])
Stores resulting strings in symbol names typ_t# where # is the wrapped text line number.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Created:	10-4-98
	Edited:		7-15-99

Abstr.lsp

Apply word wrap to a text string (makes multiple lines from single line).
Uses ABRKSTR.LSP, UINT.LSP.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Created:	10-4-98
	Edited:		7-15-99

Requires uint, abrkstr

accxes.lsp

Shortcut to startup AccXESTools (Xreox tools for communication with 8825 scanner/plotter)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  3/1/2001
	   Edited:  3/1/2001

ADDNO.LSP

Quick and dirty routine to append a number to a text string.
Will work on any selectable object having an association group of 1.
Fails if object selected does not have an association group of 1.
The number will have the current precision.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  3/31/00
	   Edited:  3/31/00

Requires ureal

ADGRID.LSP

Place a standard Profile Grid array
beginning at the point you specify and terminating at
the north and east distances you specify.
Uses UPOINT.LSP

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-28-96
	Edited:		5-28-96

Requires upoint

adjnum.lsp

Change the first number in a text string by the user specified value. The
new number is conformed to the units if precision specified by the user.

If specified units of precision are greater than the precision of the original
number zeros are added to the string to display them.  Actual digits reflecting
the precise number intended by the user cannot be determined by this routine.

If precision is reduced by the user it cannot be regained by this routine.
The prior digits of higher precision are discarded and cannot be recovered
except by the method they were originally obtained or other equal method.

(uses UINT USTR)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-27-2005

Requires uint, ustr

adjsta.lsp

Changes station numbers by specified amount.  Station format, "+" in
in the number, is read and edited.  The new number is conformed to the
station format to the user specified linear units of precision.

Metric stations are sensed by the presence of three digits after the
'+' and before the decimal.

If precision is reduced by the user it cannot be regained by this routine.
The prior digits of higher precision are discarded and cannot be recovered
except by the method they were originally obtained or other equal method.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	9-02-94
	Edited:		9-27-2005

Requires stait, ustr, uint

AHGT.LSP

Modify the text height of a selection
set of text entities.  The only input required is the desired
text height factor and selection of the text to modify.  There
is no need to worry about not selecting non-text entities
because they will be automatically filtered out of the
selection set.
Uses TXTSIZE.LSP and USTR.LSP

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	1994-2001
	Edited:		3-2-2001

Requires txtsize

AL.LSP

Label the area of a closed polyline in ac., sq. yds., sq. ft.
in either Acres, Square Yards or Square Feet.
(It will also label open polylines according to the area
that AutoCAD returns for them.)  All polylines to be measured
for area should be closed to ensure the values obtained are
actually the area intended.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	2-4-92
	Edited:		6-18-94

Requires dimscl, getstyle, ukword

ALARM.LSP

Turn AutoCAD and AutoLisp into an alarm clock. Use Doslib.
Cannot use AutoCAD while alarm clock is running.
(the idea is to wake yourself after a little sleep during those all nighters).
Be sure not to charge for the time you were sleeping.
Your PC speaker or external speakers must be functional and on.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires uint, either requires or can use Doslib

ALL.LSP

Make all lines vertical.  End with lowest Y is held, other end assumes X of held point.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

ALLBND.LSP

Create script to draw Plines of plan viewport boundaries.
Appends to existing script file so delete ALLBND.SCR and
run ALLBND again in all sheets to update.
*** ALLBND has been superceded by SHTBND.LSP ***

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

alndata.lsp

Used with GPDGN alignments (gravity or pressure pipelines) to output takeoff data.
Requires Doslib

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 8-30-1999
	   Edited: 8-30-1999

Requires or can use Doslib

AMORL.LSP	Reloads AMO after batch plots.

ANGL.lsp

Construct a line at an angle from selected line. UANGLE and ROTX are defun'd within.


	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	5-14-93
	Edited:		12-16-04

Requires rotx, upoint, uangle

ANGLINE.LSP

C:ANGL - place line at an angle to selection. Requires ROTX.LSP, UPOINT.LSP, UANGLE.LSP.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	5-14-93
	Edited:		5-4-00

Requires rotx, upoint, uangle

ARCHDIMS.lsp

ARCHLDRS.LSP

arclineinters.lsp

ARCTOPL.LSP

Change arcs into polylines.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	10-1-98
	Edited:		10-1-98

AROS.LSP

Entmakes the blocks DIMARO and LDRARO if they do not exist.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	8-18-99
	Edited:		8-18-99

ASCII.LSP	Writes ASCII character set to the screen and to a file.

ASE.LSP

asin.lsp	subroutine for arcsine. requires a sine value as input with the function call COND traps for limits of function (0, 1, -1) and returns the correct value.

ASKIP.LSP

ASTA.LSP	Insert vertical LINES at MH stations in profile. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. Copyright: 1-8-97 Edited: 1-11-97
Requires upoint

atext.lsp	Append TEXT to strings AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 9/9/98 Edited: 9/9/98
Requires uutils, ustr, ukword

attcol.lsp

Change attribute's thickness (attributes and text with thickness other than zero may
be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  3-16-2001
	   Edited:  9-26-2002

Requires ustr, uint

atthk.lsp

Change attribute's thickness (attributes and text with thickness other than zero may
be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  3-16-2001
	   Edited:  3-16-2001

Requires ustr, ureal

attht.lsp	Change attribute's height Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3-16-2001 Edited: 7-20-2001
Requires ustr, ureal

attincr.lsp	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. email: hfrancis[at-sign]paracadd.com web: http://paracadd.com/ Copyright: Edited:

ATTLAY.LSP

Change a selection of attributes to user-specified layer.

 WRITTEN FOR STEVE AT RKA TO BE ABLE TO CHANGE THE LAYER OF A SET OF 
 ATTRIBUES TO A USER-SPECIFIED LAYER.


 IT CAN BE EASILY MODIFIED TO CHANGE ANY OTHER PROPERTY ALTHOUGH LAYER IS 
 PROBABLY THE MOST PRACTICAL ONE.
  
 Written by:    Kanwar Anand
                KETIV Technologies, Inc.  Fullerton
                June 1989

 Modified for Cooper at CDM   September 1990

ATTR2TXT.LSP

Convert attribute definition entities (attdef) into text entities.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis@paracadd.com
	All rights reserved.

ATTREDEF.LSP

Redefine a block and update its attributes
 *******************************************************************
                          ATTREDEF.LSP

 This program allows you to redefine a Block and update the
 Attributes associated with any previous insertions of that Block.
 All new Attributes are added to the old Blocks and given their
 default values. All old Attributes with equal tag values to the new
 Attributes are redefined but retain their old value. And all old
 Attributes not included in the new Block are deleted.

 Note that if handles are enabled, new handles will be assigned to
 each redefined block.

 Written by Karry Layden - May 1988
 *******************************************************************

ATTREPLC.LSP

KETIV - Globally change the value of an attribute

 ATTREPLC.LSP

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C2
 Portland, OR  97218

 Layer Group: NONE

 Menu Location:

 Purpose:  To globally change the value of an attribute

 Prompts:  Old attribute value:
           New attribute value:
           Case sensitive? :

 Assumptions/Limitations: NONE

======================================================================================================
 Initialize memory and important system variables

ATTUPD.lsp

Attribute update subroutine (attupd [blockname] [attribname] [newvalue])
Used extensively in scripts to rapidly change title block fill-ins.

	1-15-2004 added var [testvalue] - user must (setq testvalue ).
	If [testvalue] is not NIL AND not eq current [attribname] value the current
	[attribname] value remains unchanged.
	If [testvalue] is NIL the program will update [attribname] to [newvalue]

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      1997-2004
       Edited:         1-15-2004

ATTUPDM.LSP

Multiple attribute update subroutine (attupd [blockname] [attribname] [newvalue])

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-22-97
       Edited:         10-1-98

ATTUPDT.lsp

Attribute update subroutine (attupdt [blockname] [attribname] [newvalue] [testvalue])
Used extensively in scripts to rapidly change title block fill-ins.

	1-15-2004 added var [testvalue] - user must (setq testvalue ).
	If [testvalue] is not NIL AND not eq current [attribname] value the current
	[attribname] value remains unchanged.
	If [testvalue] is NIL the program will update [attribname] to [newvalue]

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      1997-2004
       Edited:         1-15-2004

ATTXTJ.LSP

Modify the text justification of a selection set of attributes. (uses UKWORD UPOINT)
The only input required is the desired text justification and selection of the
attributes to modify.  There is no need to worry about selecting non-attribute
entities because they will be automatically filtered out of the selection set.
DO NOT select more than one "common note group".  All of the attributes selected
are assumed to belong to such a group and they ALL will be justified to the same
reference position.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-12-94
	Edited:		11-26-95

Requires ukword, upoint

AUTOD.LSP

Collect survey points from *.PRN files which have two digit numbers as description keys
for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
overwrite mode to update point descriptions

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright: 1/19/94

Requires ustr

AUTODSI.LSP

Collect survey points from *.TXT files which have two digit numbers as description keys
for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
overwrite mode to update point descriptions.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright: 1/19/94

Requires ustr

AUTOLOAD.LSP	Customized Section of "AutoLoad LISP Applications" from ACADr14.LSP
Requires AUTOLOAD

backup.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires CHECK_FOR_DOSLIB

BANDJ.lsp	Automatic placement of bore & jack casing pipe in profile. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 1-30-96 Edited: 1-30-96
Requires dimscl, uint, upoint

basevars.lsp

BATP.LSP	Batch Purge drawings via BWBP, a WBLOCK technique. AUTHOR: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 4-30-96 Edited: 4-30-96
Requires ustr, ukword

bcen.lsp

Exercise in polyline bulge (arc) math to determin a point for text
on the arc and the angle tangent to that point.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

bflg.LSP

Place a block named BFLG near the end of a line. (flange, a pipe fitting part)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 8-6-00
	   Edited: 8-6-00

Requires dimscl, mklayr

bi.lsp

BJPLN.LSP	Automatic placement of bore & jack casing pipe in plan. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 1-30-96 Edited: 1-30-96
Requires upoint, uint

BL.LSP

Place a detail call bubble with a leader and text description
in the drawing.  The leader may be single or multiple lines
at any angle.  The bubble will be placed with the center along
the line and the edge of the bubble coincident with the end of
the leader.  If a description is given a description line will
be added horizontally in line with the center of the bubble and
opposite of the leader.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-23-93
	Edited:		9-2-99

Requires gvpno, txtsize, getstyle, upoint, ustr, bub

BLH.LSP	Toggle heavy/light "Bill Lester" PE Seal, BLHeavy BLLight

BLKCOLT.LSP

Force all block definition entities whose color or linetype is neither BYLAYER or BYBLOCK
to have their nonconforming color and/or linetype set to BYLAYER.

Force all embedded text without thickness to have a thickness of 1.  (So it can be hidden)

Blocks exempt from processing are: XREFs, "ADCADD_ZZ", and "DWG-EDIT-LOG"

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  1/04/2001
	   Edited:  1/04/2001

blkguts.lsp
Requires ustr

BLKLAY.LSP

Writes a listing of block names and the layers they use to BLKLAY.LST

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

BLKLST.LSP	Construct a list of entity lists contained in a block. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ustr

BLKSCL.LSP	Scale Block occurances, one or many. AUTHOR: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 12-22-94 Edited: 12-22-94
Requires ureal, ustr

BLWS.LSP

bplxl.lsp	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. email: hfrancis[at-sign]paracadd.com web: http://paracadd.com/ Copyright: Edited:

BPROJ.lsp

Sets the list of files to plot based on CDMNDX.TXT for the project.
Calls BPLOT once the list is made.  (CDMNDX.TXT is written by CDMNDX.LSP)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2-13-2001
	   Edited:  10-1-2003

BPURGE.LSP

This program will purge files in batch using a script file.
The user specifies the [path\]filename search string (wildcards OK).

	AUTHOR: Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	Copyright:	10-13-95
	Edited:		10-13-95

Requires ustr, ukword

BR@.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

BRAN.LSP

Modify the rotation angle of a selection of block entities.
The only input required is the desired
rotation angle and selection of the blocks to modify.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
 
		All rights reserved without prejudice.
       Copyright:  8-30-95
          Edited:  8-30-95

Requires ureal

BRAT.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires upoint

breal.lsp

Change a number in (m)any text string(s) by a numeric value and
specify or change precision (decimal places).
(uses UINT.LSP, USTR.LSP)

Note: Reduced precision cannot be restored to greater precision
      except with UNDO immediately after it has been reduced.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		7-23-2001

Requires uint, ustr

brkl.lsp	Place breakline symbol as a polyline. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 6-16-94 Edited: 8-28-2003
Requires mklayr, dimscl, upoint

browser_help.lsp	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. email: hfrancis[at-sign]paracadd.com web: http://paracadd.com/ Copyright: 1/27/2002 Edited: 1/27/2002

bs.lsp	Rescale occurances of a block about insertion points. AUTHOR: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 12-22-94 Edited: 3-17-95
Requires ureal, ustr

BSALL.LSP

Rescale occurances of all POINT blocks about insertion points.

	AUTHOR: Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	12-22-94
	Edited:		3-17-95

Requires ureal, ustr

bscl.lsp

Place engineering or architectural bar scales by dimscale.

	Uses blocks named nBARS where n=dimscale as integer.
	for Decimal (Engineering) linear units.

	Creates the U.S. Army Corps of Engineers standard
	bar scale for Architectural units based upon dimscale.


	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	2-4-92
	Edited:		11-7-2003

Requires mklayr, dimscl, txtsize, upoint

BSR.LSP

Place a Block in the drawing at any orientation (scaled to dimscale).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-27-94
	Edited:		10-3-96

Requires upoint, rotx

bstr.lsp

Break a text string into two strings and automatically.
Places the 'cut' string above or below the first at the same
justification, etc. with 1/2 text height space between.
Optionally: Adds a line of text above or below existing text.


	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387
              
		All rights reserved without prejudice.

     Copyright: 1995
        Edited: 1-17-01

Requires dimscl, ukword, ustr

BUB.LSP	Place a detail bubble, single or multiple references. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 7-17-95 Edited: 7-17-95
Requires dimscl, gvpno, getstyle, mklayr, ukword

bubfix.lsp

Replaces dumb "circle-line-text" CDM bubbles with block versions of CDM bubbles.
Retains existing fill-in info.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  
	   Edited:

Requires dimscl

BUBN.lsp

Place a Magnetic North Symbol (block) in the drawing at any orientation.
(uses UPOINT)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-27-94
	Edited:		2-23-96

Requires dimscl, gvpno, upoint

bubupd.lsp

bubble update subroutine (bubupd [blockname] [old_sdname] [new_sdname] [old_callon] [new_callon])

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis > paracadd.com
	All rights reserved.

       Copyright:      2-19-2004
       Edited:         2-19-2004

BWBP.LSP	Batch Wblock Purge, used by BATP.LSP, uses LBL and DLOG
Requires stat, undefs, dlog

CALPT.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

CASEPIPE.LSP
Requires ureal, ukword

CDFCON.LSP

Tool for converting a windows 3.1 card file (in prode.txt) to Comma Delimited Format (CDF)
for import to other applications.  Options for fields are:
"Loctn Proj DEsc Client DAte Engr DGnr DWgsz Nodwgs noTes"

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      3-17-97
       Edited:         3-17-97

Requires ukword

cdmndx.lsp

Lisp function: (huandx)
     and other supporting lisp subroutines are included in this file.

     (huandx) Creates/Updates HUANDX.TXT - a sorted index of project
     drawing names, sheet nos., titles, and area info for viewports.
     This information is used by the commands below.

Requirements:
     Block named *TTBAT.  It can be
     customized but it must contain all attributes in the original
     HUATTBAT and be named as indicated.  Unneeded attributes can be
     left blank or "parked" outside the sheet area.  Attributes are
     for Title block fill-in. Only drawings containing one of these
     blocks are considered to be sheets in the project document set.

Commands: Shtndx, Shtbnd, Viewsht, Esbnd, Bproj

Use SHTNDX to create a complete drawing index from CDMNDX.TXT.
Use SHTBND to create sheet number labels and rectangles outlining all
    viewport areas for all sheets.
Use VIEWSHT to zoom to any viewport area of any sheet.  Examine
    coordinate values to help select plan, profile or detail views.
Use ESBND to erase all labels and rectangles created by SHTBND.
Use BPROJ to automatically compile the ordered list of project sheets
    for plotting and start BPLOT ready to plot them all.

CDMNDX.TXT Notes:

       Use EDTXT to open HUANDX.TXT in Notepad.  Open HUANDX.TXT to
       view drawing names and their associated sheet numbers (a very
       handy reference).

       HUANDX should be manually sorted after new sheets are added.
       Once the list is complete and has been sorted it will not need
       sorting again.

       Do not use word wrap! Sheet info must occupy only one line in
       the file.

       Sheets that belong to the project but are kept elsewhere can
       be manually added (vport info may be omitted) so SHTNDX will
       produce the complete sheet index.

       Add BOGUS drawing names and titles to provide section headings
       such as CIVIL, MECHANICAL, STRUCTURAL, ELECTRICAL, etc.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-22-97
       Edited:         6-15-2003

Requires or can use Doslib, requires uutils, uint, getstyle, gvpno, txtsize, abrkstr, SHTBND

CE.LSP	Change selection set color and linetype to BYLAYER AUTHOR: Henry C. Francis 425 N. ASHE ST. SOUTHERN PINES, N.C. 28387 All rights reserved without prejudice. Copyright: 6-7-94 Edited: 6-5-96

CEC.LSP	Change entity color, one or many
Requires uint

CESCS.LSP

Place a US Army Corps of Engineers or a "Standard" Section Cut Symbol
in the drawing at any orientation.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:	3-10-93
	Edited:		6-17-94

Requires ukword, dimscl, upoint, mklayr

cfrancis-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, saveas, open, quit, ded, textscrnmem, either requires or can use Doslib

check_for_doslib.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

CHGPLW1.LSP

Change the width of a selected set of polylines as a group
with only one command sequence.


	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	7-22-91
	Edited:		7-22-91

chkapps.lsp

chklasp.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

CHKLST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ukword

CHKQSAVE.lsp
Requires MYQSAVE.LSP

CIRAD.LSP

Modify the radius of a selection set of circles. (uses UREAL)
The only input required is the desired radius and selection.
There is no need to worry about not selecting non-circle entities
because they will be automatically filtered out of the
selection set.

	AUTHOR: HENRY C. FRANCIS
	        425 N. Ashe Street
	        Southern Pines, NC 28387
              
	All rights reserved without prejudice.

	Copyright:	6-7-94
	Edited:	5-14-98

Requires ureal, dimscl

CL.LSP

Constructs a pair of center lines through the center of a circle.
 ******************************************************************
                          CL.LSP

    By Simon Jones    Autodesk Ltd , London      March 1987

  This macro constructs a pair of center lines through the
  center of a circle. The lines are put on a layer "CL".

 ******************************************************************

cl_f_sheet.lsp

CLAB.lsp

Place formatted northing and easting coordinates with a leader
at the selected point.  The coordinates are first placed on
the selected point and then selected to be moved to the desired location.
Only two entry points are required, the point to label and the "move to"
location for the label.  The coordinates may be placed to the right or left
of the point and a leader will be placed to correspond.

To place coordinate labels horizontal to the WCS while using values from
a UCS just save your UCS to a name and make it active.

Limitations:
	OSNAP should be set to NONE, single overides may be used.
	Decimal places are set by UNITS
	Text size is set by current value of sys variable TEXTSIZE.
	Style must have "0" as the text height
		
	AUTHOR:    Henry C. Francis
	COPYRIGHT: 3-11-1992
	EDITED:	   10-31-2003

Requires txtsize, dimscl, getstyle, uint, ukword, upoint

CLBL.lsp	Label contour polylines with their elevation. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-16-96 Edited: 5-1-2000
Requires uint, dimscl, upoint, gvpno

clfen.lsp

Place a custom linetype as an anonymous block. (I call it chain-link fence) 
It allows linear as well as curved sections.  The user toggles
between the two during placement.  The block entity is not placed in
the drawing until the user terminates the input with a return
supplied to the "next point" prompt.  Size of the graphic elements
is determined by the dimscale.  If the user matches the dimscale
with the drawing scale the graphics will scale the same on all
drawings.  The linetype consists of equally spaced circles (nearest
to 1/2" spacing at scale for the length of arc or line) and lines
between them that do not touch.  If the variable modf = "EXST" the
circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-7-95
	Edited:		11-24-98

Requires dimscl, upoint, ureal

clg.lsp

CLG Doctor main lsp file (a dialog CLG management tool).

	Author:	Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	Copyright: 1997-2004

	http://paracadd.com
	e-mail hfrancis@pparacadd.com
	All rights reserved.

***************************** NOTICE *******************************
Use of this software is NOT free!  License to use this software
may be obtained by paying $12.95 to the author at the above address.
If you obtained this file by download from the internet after
registering with the author, you may use it according to the terms
of that agreement.  If you have a licensed copy of PARAPIPE this
software is also licensed to you under your license to use PARAPIPE.
Unlicensed use is forbidden and subject to severe penalties of law!

Requires browser_help, ASCII, either requires or can use Doslib, requires ukword

clg_color.lsp

C:CLG_COLOR sets the CLG (modified) color field of the layer name from a dialog.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6-30-99
	   Edited:  6-30-99

Requires ASCII

clg2.lsp

CLG Doctor main lsp file (a dialog CLG management tool).

	Author:	Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	Copyright: 1997-2004

	http://paracadd.com
	e-mail hfrancis@pparacadd.com
	All rights reserved.

***************************** NOTICE *******************************
Use of this software is NOT free!  License to use this software
may be obtained by paying $12.95 to the author at the above address.
If you obtained this file by download from the internet after
registering with the author, you may use it according to the terms
of that agreement.  If you have a licensed copy of PARAPIPE this
software is also licensed to you under your license to use PARAPIPE.
Unlicensed use is forbidden and subject to severe penalties of law!

Requires browser_help, ASCII, either requires or can use Doslib, requires ukword

CLGENTOF.LSP	Layer on/off/freeze/thaw tool keyed to CLG fields. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 7-10-94 Edited: 7-10-94
Requires ustr

CLOUD.LSP	Place a revision cloud. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires MKLAYR, upoint

CLPLT.LSP

Make a selection set of entities on *NPLT* layers. (junk?)
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

cmdopen.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
  (SETQ DEFUN-Q DEFUN)
  nil
) ;_ end of IF

Requires dlog

cmdwait.lsp

CNL-TMP.LSP

Place a construction note bubble with a leader in the drawing.
The leader may be single or multiple lines at any angle.
The bubble will be placed with the center along the line and the
edge of the bubble coincident with the end of the leader.
The bubble number may be optionally incremented or held the same
for subsequent placements.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-23-93
	Edited:		6-17-94

Requires txtsize, gvpno, dimscl, mklayr, ukword, upoint, archldrs, uint

CNL.lsp

Place a construction note bubble with a leader in the drawing.
The leader may be single or multiple lines at any angle.
The bubble will be placed with the center along the line and the
edge of the bubble coincident with the end of the leader.
The bubble number may be optionally incremented or held the same
for subsequent placements.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-23-93
	Edited:		3-19-2004

Requires browser_help, txtsize, gvpno, dimscl, mklayr, ukword, upoint, archldrs, uint

CNTAG.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl, upoint, ustr

color.lsp

condattupd.lsp

Conditional Attribute update subroutine (attupd [blockname] [attribname] [newvalue] [condition] [testvalue])
checks current attrib value for [condition] against [testvalue].  If True, attrib is updated with [newvalue]
Used extensively in scripts to rapidly change title block fill-ins.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-22-97
       Edited:         10-7-2002

CONOTE.lsp

Formats and places individualized construction notes.

Requirements:
	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.
	    both CNL.LSP and CNTAG.LSP insert this block.;
	(B) Text file named CONOTE.TXT with ALL of the construction notes.
		1st line of file contains a number,
		2nd line of file contains that number's note,
		3rd line of file contains another number,
		4th line of file contains that number's note,
		etc.

	Use only one line for each entire note text. Line wrapping is
	handled by the program.


	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	8-31-98
	Edited:		9-29-98

Requires uint, dimscl, mklayr, abrkstr

Conoted.lsp

Formats and places individualized construction notes.

Requirements:
	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.;
	(B) Text file named CONOTE.TXT with ALL of the construction notes.
		1st line of file contains a number,
		2nd line of file contains that number's note,
		3rd line of file contains another number,
		4th line of file contains that number's note,
		etc.

	Use only one line for each entire note text.


	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires uint, dimscl, mklayr, abrkstr

consolpl.lsp
Requires ureal

consolpt.lsp
Requires ureal

cpl.lsp

Copy most entities from Blocks or XREFs.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 1996-2000
	Edited:	   7-25-2003

	Requirements: ukword.lsp, transpt.lsp

Requires ukword, ustr, transpt

CPYRT.LSP

cstmp.lsp

Custom Info, Date & Time stamp dialog routine.
Uses Doslib14 or Doslib2k depending upon Acad version.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 2-2-2000
	   Edited: 5-12-2001

Requires dimscl, browser_help, either requires or can use Doslib, requires ustr, cstmp

CSTMP2.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 2-2-2000 Edited: 2-2-2000
Requires or can use Doslib, requires cstmp

ct.lsp

ctc.lsp

Sets case of selected text and of attributes in selected blocks.
Default is all uppercase.


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-7-94
	Edited:		6-18-99

Requires UKWORD

CTOL.LSP	Copy a selection set to a specified layer. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-19-96 Edited: 3-19-96
Requires ustr

CURVTBL.lsp

Format and place a curve table using current style settings
to fix the size of the table.  The number of decimal 
places is hard coded. Locate (RTOS ... 2 2) to change
		
	AUTHOR: Henry C. Francis
               425 N. Ashe Street
               Southern Pines, NC 28387

	Copyright: 3-11-1992
	Edited:	   4-8-2001

Requires dimscl, txtsize, getstyle, ukword, upoint

custom-init.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires log_it, dlog

CUSTOMLOAD.lsp

(princ "\nLoading CUSTOMLOAD.LSP ")
(princ)
==================================================================================================
INITANDSDICHK function moved to separate lisp file
==================================================================================================
CHECK_FOR_DOSLIB function moved to separate lisp file
==================================================================================================

Requires dlog, CUSTOMLOAD

da.lsp

Places direction arrow

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  4-16-98
	   Edited:  4-16-98

Requires mklayr, dimscl, upoint

DARROW.lsp

Places direction arrow

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  4-16-98
	   Edited:  4-16-98

Requires mklayr, dimscl, upoint

DATA.LSP
Requires error

DATTOCDF.LSP

Export RNLAY.DAT (rename layers data file) to comma-delimited format.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	12-5-96
	Edited:		12-5-96

DAYSTAMP.LSP

DBL.LSP

Replace ARCS with any block at their center point. (for Eddie Staley)

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	12-20-94
	Edited:		12-20-94

DC.LSP

Output Depth Cut + LF info for MHP generated gravity sewers.
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

dcrawford-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, textscrnmem

DCSAVE.LSP

Output Depth Cut + LF info for MHP generated gravity sewers. (saved version)
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

DCTEST.LSP
Requires maplist

DDUPENT.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

debugsetvar.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

ded.lsp

Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
       INSERT w/attrib. It will report the type of entity selected
       if it cannot be edited via the above commands and prompt to
       select again.

	It was initially intended to be a command, hence the function name
       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
	pstr is simply the prompt string.  It is set in redefinition
	of the commands that are affected in order to give the expected
	prompts.  Invoke this routine from the redefined ddedit and ddatte.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	1995-2005
	Edited:		2-28-2005

       Changed selection window to set after each entsel pick.
       Fixes unexpected selections following transparent zooms.

Requires ustr

DELDUPLIN.LSP

DELIMIN.LSP

KETIV - Insert delimited ascii text files into a drawing.
 DELIMIN.LSP

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C-2
 Portland, OR 97218

 Layer Group: KTEXT

 Menu Location: Text I/O Pull down

 Purpose:Insert delimited ascii text files into a drawing

 Prompts:
    Enter filename :
        [if the file is not found]
        ERROR: File " fn " not found - try again
        Enter filename :
    Enter column delimiter <,>:
    Scanning file for # of rows/columns . . .
        [if the text height is not set in the style]
        Enter text height :
        [Else show current text style height]
        Your current style is "style", which has a fixed text height of "height"
    Enter line spacing :
    Enter text point:
    Enter first column width :
    Enter text justification: Center/Right/:
    Set column width automatically from 1st line? :
    Enter text justification: Center/Right/:

 Assumptions/Limitations: None

======================================================================================================
 Text importing utility for bringing Columnar data into AutoCAD.
 Requires an ASCII text file with column delimiter.

 FEATURES:  --Scans 1st line of file for # of columns
            --Scans entire file for # of lines
            --Adjusts for fixed or variable text height
            --Read-out of current row/col # (in screen menu area)
            --Read-out of percent done (in screen menu area)
            --Scans 1st line for default width of columns
            --Allows auto column width based on 1st line of text
            --Auto column width makes each column left-justified
            --Displays 1st text line when asking for delimiter
            --If manual column width, can choose justification
                 for each column (Left, Center, Right).

----------------------------------------------------------------------------
 Initialize memory and important system variables
--------------------------------------------------

Requires ASCII

DELLAYER.LSP

Deletes all entities on specified layers.  Accepts wildcards.
 --------------------------------------------------------------------------;
   DELLAYER.lsp
   Copyright (C) 1990 - 1992 by Autodesk, Inc.

   Permission to use, copy, modify, and distribute this software
   for any purpose and without fee is hereby granted, provided
   that the above copyright notice appears in all copies and that
   both that copyright notice and this permission notice appear in
   all supporting documentation.

   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
   WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
   PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.

   Version 2.0
 --------------------------------------------------------------------------;
   DESCRIPTION

   This program deletes all entities on specified layers.  Wildcards
   can be specified.

   Version 2.0 has been updated to delete entities in both paper
   space and modelspace. An additional prompt has been added to
   prepare a layer for purging. If desired, the layer(s) will be
   thawed and turned off, to make purging possible.
   Script files using earlier versions of this routine must be
   updated to accomodate the extra prompt.

 --------------------------------------------------------------------------;

Requires *error*

DEPTH.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

DEPTHOUT.LSP

C:DC - Output Depth Cut + LF for MHP sewers. (commented - latest?) also C:NPL

	THIS PROGRAM WILL CREATE A NEW POLYLINE FROM AN OLD POLYLINE
	AND REVERSE THE ORDER OF THE VERTICES.  IT USES A SCRIPT FILE
	CONTAINING THE VERTEX POINTS SORTED IN DECENDING ORDER.
	THE ORIGINAL POLYLINE MUST ADVANCE CONTINUALLY IN EITHER DIRECTION
       ALONG THE X AXIS IN THE COORDINATE SYSTEM USED.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	9-23-93
	Edited:		3-17-94

Requires ustr, ukword

dfwilt-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, textscrnmem

DHPLOTS.LSP

       This program will plot HP Laser plots in batch using a script file.
       The user specifies the DWG filename search string (wildcards OK).

	AUTHOR: Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

		All rights reserved without prejudice.

	Copyright:	7-20-94
	Edited:		8-19-94

Requires plbl, ustr, ukword, AMORL, *error*

DICTFUNS.LSP

--- How to save Lisp values with drawing? ---


We have two possibilities in R14 -- dictionaries
and EED, extended entity data. Both provide us with
a means of storing information in a DWG persistently.
We can store a series of code pairs in EED, as usual,
only the codes are 1000, 1040 etc. BUT -- in a real
Lisp programs we often have variables that are a *lists*
of data, and in Lisp a list is actually a tree in that it
can contain another list and so on.

So how can we store lists in EED (or in Xrecords to be
put into dictionary)? We must have some way to encode it
into the possible code groups, and later to decode it back
while retrieving the info.

Both EED and Xrecords are very similar in that, and in both
cases we must use this en/decoding.

How can we do that? We need to use some special marker
to mark a beginning/ending of a lists. Let's use LB
as a List Begin marker and LE as a list end.

This all means that we need to find a way to convert e.g.
 (1 (2 (3 "4") 5)) into
 LB 1 LB 2 LB 3 "4" LE 5 LE LE
and vice versa. In other words, we want to find
the conversion between Lisp tree-like lists
and this special one-dimentional list representation.

For that we can use something similar to that RE-LIST
function that I have posted several times in its various
modifications.

Let's use here "{" as LB and "}" as LE.

RE-LIST is decoding a list back into its original LISP form
and may be done like this:

 all functions here are (C.) 1997 by Vladimir Nesterovsky,
  vnestr@netvision.net.il, All Rights Reserved
 please keep this notice intact

Requires re-list-aux, x-relist-aux, x-relist

DIESEL.LSP	Diesel test function (see customization manual) Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

DIMARO.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

DIMS.lsp

Put hiding solids over dimension text.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		8-5-03 ;disabled creation of 3Dfaces - now makes HDBOX inserts only

Fixed problem where dims in both spaces were processed and
resulting hiding objects were all in one space.  Now only dims
in the specified space are processed.

DIMSCL.LSP

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com

     Copyright: 1/26/96
	   Edited: 7/21/99
	All rights reserved.

	Fixed prev selection set from getting wiped by viewport selection.

Requires UREAL, gvpno

dimseg.lsp

Sets dimstyles ENGRDIMS and ENGRLDRS and updates all dimensions to zero decimal places.
All dimensions greater than max. distance for dimension leaders are updated to be
regular dimensions (text above dimension line between arrows).  All other dimensions
are updated to be dimension leaders.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Requires ureal, ENGRLDRS, ENGRDIMS

DIMSTD.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl

DIMUCS.LSP

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

	Copyright:  
	   Edited:  
****************************************************************************

Requires *error* ,, upoint

DIP.LSP	Old MHP version modified to draw Storm Drains.
Requires ureal, upoint, ustr

DIPH.LSP

Semi-auto placement of D.I.P. Hatch pattern in profile. (on MHP sewers)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	1-30-96
	Edited:		1-30-96

Requires ukword, upoint, ureal

DIRS.LSP

Generates a directory and file listing for the specified drive-directory string.
Note: drvdirstr must be in the form returned by (getvar"dwgprefix").
Creates DOSDIR.BAT to create DOSDIR.LST which is read to capture directories and
filenames to write to dir_lst (was to file DIRS.LST) and to fil_lst
(was to file FILES.LST) respectively.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 1/28/98
	Edited:    5/20/01

dis.lsp

disoff.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3-12-2002 Edited: 3-12-2002
Requires DIS

DIV.LSP	Divides entities with block named TIC.
Requires uint

dlog.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

	Copyright:  1991-2001
	   Edited:  6-3-2005

Writes activity lines to C:\ACAD\DWG_EDIT.LOG

Requires or can use Doslib, requires proj

dmlt.lsp

Places demolish (double hatch) or abandon (single hatch) linetype
Requires Linetypes ABAN and DEMOL to be added into ACAD.LIN
Requires shapes ABAN and DEMOL in Ltypeshp.shp compiled into Ltypeshp.shx

LINETYPE DEFINITIONS:

*ABAN,Abandon \\\\\\\\\\\\\\\\\\\\\
A,0,-.15,[ABAN,ltypeshp.shx,x=-.15,y=-.1,s=.2]
*DEMOL,Demolish XXXXXXXXXXXXXXXXXXXX
A,0,-.15,[ABAN,ltypeshp.shx,x=-.1,y=-.1,s=.2],0,[DEMOL,ltypeshp.shx,x=-.1,y=.1,s=.2]

SHAPE DEFINITIONS: (Your numbers may need to be something other than 139 and 140)

*139,2,ABAN
012,0

*140,2,DEMOL
01E,0


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	3-5-96
	Edited:		10-21-2002

Requires dimscl, ukword

DO_PLOTS.LSP

Plot in batch using a script file. (commented to aid customization)
       The user specifies the DWG filename search string (wildcards OK).

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	7-20-94
	Edited:		11-12-95


There is a string in this program that, when properly laid in (lines 263-265)
,will configure this program for your plotter.  Also, be sure the proper LPT
port is referenced.  Unless you use Norton Editor you'll need to substitute
the call for it with your editor (line 159).  Set a 3 character system variable
called LGN to the users initials.  I do this in our novell login script.
Once these things are done this routine will plot from a single plot to....
I have done over 80 before, unattended.  I'm sure it will do many more.
Be sure to cut files into their separate filenames before using.

Requires ukword, ustr

DOGL.LSP	Dogleg existing vertical leaders and text in profiles. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-16-95 Edited: 3-16-95
Requires upoint

DP.LSP	Dynamic Zoom/Pan trick. Best for simpler drawings. Modified from a tip in Cadylst or Cadence (don't remember which). Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
Requires error ,, uint, ukword

draweroc.lsp
Requires error ,, mklayr, dimscl, gvpno, ukword, stait

driveway.lsp

Creates 3D breakline between selected AECC_POINT objects

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  12/15/2004
	   Edited:  12/15/2004

Requires *error* ,, upoint, uutils, uint, ukword

DRTL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 10-23-2002 Edited: 10-3-2002

dtlnote.lsp

Formats and places individualized construction notes.

Requirements:
	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.;
	(B) Text file named CONOTE.TXT with ALL of the construction notes.
		1st line of file contains a number,
		2nd line of file contains that number's note,
		3rd line of file contains another number,
		4th line of file contains that number's note,
		etc.

	Use only one line for each entire note text.


	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires getstyle, uint, txtsize, dimscl, mklayr, upoint, abrkstr

DTTL.lsp

Place a detail title bubble with title text, underline and scale text.
       Uses DIMSCALE and LUNITS to format scale string and scale bubble
       and text.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-30-93
	Edited:		3-24-2004

       Requirements:   GETSTYLE.LSP (gets current style values and changes
                                     them as req'd for this function only.)

Requires dimscl, ukword, ustr, gvpno, getstyle

dtxt.lsp

Custom DTEXT. Auto sets layer attribs and text size. LINE-under-last option.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-23-96
	Edited:		6-13-2005

Added explicit load for upoint, ukword, uangle (no longer dependent upon external load).

Requires txtsize, upoint, ukword, uangle, dimscl, gvpno

DUDECD.LSP	Play a CD while in AutoCAD (DOS) Substitute your CD playing utility (and path)

DUMP.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

DUMPLST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

dv0.lsp	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires tsnap

DWGNDX.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires delimin

DXFIX.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

dynpan.lsp	Dynamic Zoom/Pan trick. Best for simpler drawings. Modified from a tip in Cadylst or Cadence (don't remember which). Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
Requires error ,, uint, ukword

ed.lsp

Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
       INSERT w/attrib. It will report the type of entity selected
       if it cannot be edited via the above commands and prompt to
       select again.

	It was initially intended to be a command, hence the function name
       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
	pstr is simply the prompt string.  It is set in redefinition
	of the commands that are affected in order to give the expected
	prompts.  Invoke this routine from the redefined ddedit and ddatte.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	10-3-95
	Edited:		4-11-97

       Changed selection window to set after each entsel pick.
       Fixes unexpected selections following transparent zooms.

Requires ded, dimscl, ustr

ED2.LSP

Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
       INSERT w/attrib. It will report the type of entity selected
       if it cannot be edited via the above commands and prompt to
       select again.

	It was initially intended to be a command, hence the function name
       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
	pstr is simply the prompt string.  It is set in redefinition
	of the commands that are affected in order to give the expected
	prompts.  Invoke this routine from the redefined ddedit and ddatte.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	10-3-95
	Edited:		4-11-97

       Changed selection window to set after each entsel pick.
       Fixes unexpected selections following transparent zooms.

Requires ded, dimscl, ustr

ed2000.lsp	Edit *.LSP files Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1994 Edited: 1-28-2001
Requires or can use Doslib

edaln.lsp	Edit *.GRD files

EDANY.LSP

Edit any annotation entity based upon filtered pick.
	Automatically invokes DDATTE, DDEDIT or DIM NEW depending
	on entity type picked.  Routine will only select MTEXT,
	TEXT, ATTRIB, DIMENSION or INSERT w/attrib. It will report
	the type of entity selected.  If it cannot be edited via the
	above commands it will prompt to select again.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	10-3-95
	Edited:		4-12-97

       Changed selection window to set after each entsel pick.
       Fixes unexpected selections following transparent zooms.

==================================================================================================

Requires ustr

EDBAT.LSP	Edit *.BAT files

edbka.lsp	Edit *.BKA files Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1994 Edited: 1-28-2001

EDC.LSP	Edit *.C files

edcdf.lsp	Edit *.GRD files

EDDAT.lsp	Edit *.DAT files

EDDCL.LSP	Edit *.DCL files

EDDXF.LSP	Edit *.DXF files

edecs.lsp	Edit *.GRD files

EDGRD.LSP	Edit *.GRD files

EDHLP.LSP	Edit *.HLP files

EDIDX.LSP	Edit *.IDX files

editdates.lsp

edld2i.lsp	Edit *.LSP files Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1994 Edited: 1-28-2001
Requires or can use Doslib

EDLIN.lsp	Edit *.LIN files

edlisp.lsp	Edit *.LSP files Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1994 Edited: 1-28-2001
Requires or can use Doslib

EDLOG.LSP	Edit *.LOG files

EDLST.lsp	Edit *.LST files

EDMENU.lsp	Edit *.MNU files

EDMNS.LSP	Edit *.MNS files

EDOUT.LSP	Edit *.OUT files

EDPGP.LSP	Edit *.PGP files

edr14.lsp	Edit *.LSP files
Requires or can use Doslib

EDR14LSP.LSP	Edit ACADR14.LSP file
Requires or can use Doslib

EDSCR.LSP	Edit *.SCR files
Requires or can use Doslib

EDSHP.LSP	Edit *.shp files

EDSVW.LSP	Edit *.SVW files (Saved Views)

EDSVX.lsp	Edit *.txt files

EDT.LSP

C:EDT - s.weidemann revision 88.10.18 - Original version Courtesy of Cadence, August 1988
  EDT.LSP
  s.weidemann
  revision 88.10.18 - Original version
  Courtesy of Cadence, August 1988

  AutoCAD text editor

  Key Definitions
    F2 - Rotate              Ctrl ->
    F3 - Move                Ctrl <-
    F4 - Copy                Delete
    F5 - New Ht.             Insert (press twice to toggle)
    Backspace

  ----------------------------------------------------------------

edtxt.lsp	Edit *.txt files

edxrl.lsp	Edit *.txt files

eed-ss.lsp	File EED_SS.LSP Copyright (C) Ben Olasov 1995 olasov@cs.columbia.edu
Requires userstr

EJECT.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

ELPT.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

EMAKE.LSP	Test func to make anonymous blocks. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

endz-1.lsp

Sets 3D elevation of pipe end points and sets layer for different utilities

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2000
	   Edited:  10/19/2004

Requires *error* ,, uutils, ukword, ustr, ureal

endz-save.lsp

Sets 3D elevation of pipe end points and sets layer for different utilities

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2000
	   Edited:  10/19/2004

Requires *error* ,, uutils, ukword, ustr, ureal

endz.lsp

Sets 3D elevation of pipe end points and sets layer for different utilities

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2000
	   Edited:  10/19/2004

Requires *error* ,, uutils, ukword, ustr, ureal

ENGRANGS.lsp

ENGRDIMS.lsp

ENGRLDRS.lsp

ENTEXP.LSP

KETIV - Export entity data to a comma or space delimited file.
 ENTEXP.LSP

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C-2
 Portland, OR 97218

 Layer Group: None

 Menu Location: Tablet T1

 Purpose: To write a file containing info ,such as ,layer ,color ,starting point,
            etc.., on all or part of the entities in the drawing into a comma or
            a space delimited file.

 Prompts: Loading program ....
          SDF or CDF entity extract format: 
          File name: 
          Select objects or return for all:
          Select objects:
          Writing file.  Please Wait.
          Entity count ?

 Assumptions/Limitations:
          No Quotes (") are allowed in text strings for comma delimited files.
          Polylines are broken into seperate polyline segments.
          Uses current drawing name with ".exp" as filename

======================================================================================================
 Initialize memory and important system variables

ENTLST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

ENTS.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

EPNT.LSP

Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN

		copyright 1995  Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387

	Block name must be POINT.  To adapt for use with other
	block names just replace the string "POINT" below with
	the quoted block name desired (in caps).

etlt2cont.lsp

Finds layers having linetypes with embedded text and changes their
linetype to continuous.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved.
	email: hfrancis[at-sign]paracadd.com
	web: http://paracadd.com/

  Copyright: 5/25/01
     Edited: 5/25/01

Requires wipeprom

EXGRD.LSP

FIND.LSP

Dialog - Find files by name.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	7-30-97
	Edited:		7-30-97

********************************************************************

Requires or can use Doslib

FINDLA.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

fixbars.lsp

FIXBM.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3-16-2001 Edited: 3-16-2001
Requires ustr, ureal

FIXBY.LSP

FIXDCA.LSP	Find and remove extra Softdesk PROJ_NAM blocks. AUTHOR: Henry C. Francis 425 N. ASHE ST. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 12-22-94 Edited: 3-17-95
Requires ureal, ustr, uint

fixpattlayers.lsp

FIXRAW.LSP	This was written to create a batch file to make folders from CST 2004 Masterformat listing. 7/8/2004

FIXTNDAT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

FLIP.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 7-9-1999 Edited: 7-9-1999

FLIPA.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 7-9-1999 Edited: 10-3-2002
Requires uangle

flipdim.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

FLOG.LSP	Reads DWG_EDIT.LOG and writes parts to FILE1.LOG Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

FMLAY.LSP	Construct a line at an angle from selected line. AUTHOR: Henry C. Francis 425 N. ASHE ST. SOUTHERN PINES, N.C. 28387 All rights reserved without prejudice. Copyright: 5-14-93 Edited: 9-19-95
Requires ureal, upoint

GENT.LSP	Get entity data. EDUMP, ASO or UCSC the data. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

GENT2.LSP	Get entity data. EDUMP or ASO the data. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

GETEL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 2/10/00 Edited: 2/10/00
Requires ureal, stait, upoint, tnote

getprop.lsp

getstyle.lsp

Text style util. Style text ht=0 (getstyle "A"), restore ht (getstyle "").

       This is necessary to insure the entries following the text
       command call (command ".text"....) will always require text
       height to be entered so that any height may be specified by
       the function.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	6-18-94
	Edited:		3-11-2005

glbl.lsp	label grid lines and a viewport. Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com e-mail hfrancis@paracadd.com All rights reserved. Copyright: 1991-2004
Requires lamacs, mklayr, gvpno, txtsize

grackl-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, open, textscrnmem

gradebreak.lsp

Creates 3D breakline between selected AECC_POINT objects

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  12/15/2004
	   Edited:  12/15/2004

Requires *error* ,, uutils, ureal

GST.LSP	"Glue" text strings. All adopt first's properties. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

GSTR.LSP	"Glue" text strings. All adopt first's properties. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice.
Requires dimscl

GVPNO.LSP

Get current user specified (by layername) model space viewport number.

Layer name must contain "VI##" where ## is a two digit user specified
view number.  Otherwise you are prompted for the view number.
the variable prod is set to "VI##".  (C:MKLAYR) is used to preserve and
then restore the current layer after this function.  Use (C:SVLAYR) before
this function, (C:MKLAYER) during this function and (C:RSLAYR) after.
If the current space is Paper space then prod is not set.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires uint, ukword

hatbnd.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: 2005 Edited: 2005

hbcmud.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires upoint, mklayr, dimscl, gvpno

HCLNDX.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 4-22-97 Edited: 4-22-97

hdang.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires upoint, mklayr, dimscl, gvpno, pttxt

hdarc.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires upoint, mklayr, dimscl, gvpno, ukword, pttxt

hdarea.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires upoint, mklayr, dimscl, gvpno, pttxt

hdbox.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires *error* ,, upoint, mklayr, dimscl, gvpno, pttxt

HDCHAR.LSP	Create 3DFACEs under CMUD title block. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl

HDCIRC.lsp

Place a "hiding" object over an elliptical area (on layer *7HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		6-13-2003

Requires upoint, mklayr, dimscl, gvpno, pttxt

hdcmud.lsp	Create 3DFACEs under CMUD title block. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl

HDDO.lsp

hdpipe.lsp

Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		2-7-2002

Requires upoint, mklayr, dimscl, gvpno, pttxt

HDREC.LSP

Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		6-4-97

Requires mklayr, dimscl, gvpno, upoint

HDRECT.LSP

Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:      1-26-96
	Edited:		1-29-98

Requires mklayr, dimscl, gvpno, upoint

hdtext.lsp

Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
Adjust spacing using HDSPACE for numeric and HDMATCH for matched text.

Added exclusion of text with thickness = 1.0

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		10-25-01

Requires uutils, ukword, pttxt, dims, ustr

HDTEXTN.LSP

Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		10-7-98

Requires mklayr, uutils, ukword, dimscl

HDTTMP.LSP

Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
Adjust spacing using HDSPACE for numeric and HDNORM for other text.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		7-26-99

Requires uutils, ukword, dims

HEAD.LSP

Place HEADING text (ht=0.175 x dimscale, color=bylayer[yellow])

	This program will place a detail subtitle text string at the standard
	size (175 template) and color on the standard layer.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	4-15-94
	Edited:		6-17-94

Requires dimscl, ustr, getstyle, mklayr

HOP.lsp	Set temp. UCS before Bhatch to control hatch origin. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl

HPWB.LSP	Special auto Wblock for Camp Lejeune, HP area drawings. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

HRAIL.lsp

Draws Hiding Handrail

Requires: MKLAYR.LSP, UUTILS.LSP
Hiding requires: HDCIRC.DWG, HDBOX.DWG, 1X1.BMP

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	8-22-96
	Edited:		6-12-2003

Requires *error* , mklayr, uutils, ukword, ureal, upoint, pttxt

hrail_edit.lsp

Draws Hiding Handrail

Requires: MKLAYR.LSP, UUTILS.LSP
Hiding requires: HDCIRC.DWG, HDBOX.DWG, 1X1.BMP

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	8-22-96
	Edited:		6-12-2003

Requires *error* , mklayr, uutils, ukword, ureal, upoint, ddhtext

HRAILP.LSP
Requires ureal, upoint

HSTXT.LSP

Place house number text at point location.  (requires PTDCL run first).


	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires gvpno, dimscl

hua_d_sheet.lsp

hua_sheets.lsp

huandx.lsp

Lisp function: (huandx)
     and other supporting lisp subroutines are included in this file.

     (huandx) Creates/Updates HUANDX.TXT - a sorted index of project
     drawing names, sheet nos., titles, and area info for viewports.
     This information is used by the commands below.

Requirements:
     Block named *TTBAT.  It can be
     customized but it must contain all attributes in the original
     HUATTBAT and be named as indicated.  Unneeded attributes can be
     left blank or "parked" outside the sheet area.  Attributes are
     for Title block fill-in. Only drawings containing one of these
     blocks are considered to be sheets in the project document set.

Commands: Shtndx, Shtbnd, Viewsht, Esbnd, Bproj

Use SHTNDX to create a complete drawing index from HUANDX.TXT.
Use SHTBND to create sheet number labels and rectangles outlining all
    viewport areas for all sheets.
Use VIEWSHT to zoom to any viewport area of any sheet.  Examine
    coordinate values to help select plan, profile or detail views.
Use ESBND to erase all labels and rectangles created by SHTBND.
Use BPROJ to automatically compile the ordered list of project sheets
    for plotting and start BPLOT ready to plot them all.

HUANDX.TXT Notes:

       Use EDTXT to open HUANDX.TXT in Notepad.  Open HUANDX.TXT to
       view drawing names and their associated sheet numbers (a very
       handy reference).

       HUANDX should be manually sorted after new sheets are added.
       Once the list is complete and has been sorted it will not need
       sorting again.

       Do not use word wrap! Sheet info must occupy only one line in
       the file.

       Sheets that belong to the project but are kept elsewhere can
       be manually added (vport info may be omitted) so SHTNDX will
       produce the complete sheet index.

       Add BOGUS drawing names and titles to provide section headings
       such as CIVIL, MECHANICAL, STRUCTURAL, ELECTRICAL, etc.

       Corrected vpbnd subroutine to translate viewport bounds from UCS
       to WCS

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-22-97
       Edited:         1-23-2005

Requires or can use Doslib, requires SHTBND

iblk.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Scaled block insertion routine (dimscale)
Requires dimscl, ustr

ids_edit.lsp

Dialog utility for storing, editing and retrieving/placing Typical Notes into a drawing.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2/1995
	   Edited:  6/7/2001

Requires *error* ,, getstyle, browser_help

ii.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3-3-2001 Edited: 3-3-2001

IMAGETILE.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

img.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: 2004 Edited: 2005
Requires upoint, uangle, ureal, ukword, gvpno

imgclip.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires upoint, ureal, uangle, uint

INCTXT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

initandsdichk.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

INSLAY.LSP

Display all layers containing specified block inserts.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires ustr

inslayr.lsp

C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6-30-99
	   Edited:  6-30-99

INT.LSP

Projected intersection point of lines and polylines. (transparent too)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-13-96
	Edited:		2-13-96

INVD.LSP	Place sewer invert line (profile) from station to station.

invdisp.lsp

Reverse/Restore the display status of all layers (C:INVDISP, C:RSTDISP).
	When first called it writes script files to
       both Invert the display and Restore it and then executes the 
       function C:INVDISP.  To restore the layers as they were
       prior to the inversion execute the function C:RSTDISP or run the
       script file named RST?????.SCR (where ????? is an extraction
       from the drawing name.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	12-8-95
	Edited:		5-16-96

Requires ustr

ISOVP.LSP

Isolate current Vport annotation (freeze other layers *vi0#* using VPLAYER)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-28-96
	Edited:		5-28-96

Requires gvpno, uint

itom.lsp

Converts a number in (m)any text string(s) from Feet to Meters.
Adds parenthesis around number.  (uses UINT USTR)
Specify or change precision (decimal places) too.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-29-98

Requires uint, ukword

ITR.LSP

EAGLE POINT and DCA point block usage subroutine. (see PTSYM, PTLIN, ITREE)

		AUTHOR: Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387
		All rights reserved

	Copyright:	12-14-94
	Edited:		11-13-96

Requires ukword

ITREE.LSP

EAGLE POINT and DCA scaled tree (symbol) placement at points. (reads POINT blocks)

	AUTHOR: Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387
		All rights reserved

	Copyright:	12-14-94
	Edited:		 5-13-96

Requires itr, ustr, uint

JSL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

JUNK.LSP

kbnd.lsp

Create Pline in Mspace matching current Vport boundary and hatch inside.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis@paracadd.com
	All rights reserved.

	Copyright: 1991-2004

Requires mklayr, vpset, isovp

KKELV.LSP

Writes MYKELV.DEF to protect all atoms in ATOMS-FAMILY.
For use with Kelvinator - autolisp symbol scrambling tool.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

LAFRZ.LSP	Freeze layers of a selection set of entities. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 4-26-95 Edited: 4-26-95

lamacs.lsp

Layer macros
"GOF" "GON" "PGOF" "PGON" "GROF" "GRON" "PTOF" PTON" "PTFRX" "PTTHW" "TOPON" "TOPOF"
"WDLNOF" "WDLNON" "WDON" "WDOF" "XRON" "XROF" "SVOF" "SVON" "PATOF" "PATON" "RWOF"
"EASOF" "EPOF" "TPOF" "EXOF" "TXTOF" "INSOF" "EROF" "CTOF" "PPOF" "HDOF" "AOF" "AON"
"RWON" "EASON" "EPON" "TPON" "EXON" "TXTON" "INSON" "ERON" "CTON" "PPON" "HDON"
"ALTON" "ALTOF" "ISOALT" "VLOCK"
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires uint, lamacs_act

LAPSET.lsp

Set layer color and linetype for selected entity.
If entity colors and linetypes are bylayer the effect is to change the
color and linetype of entities on the selected entity's layer.

Specifically: This routine allows changing of Xref layer color and linetype
		 by a simple selection of a visible xref entity.

	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387

		All rights reserved without prejudice.

	Copyright:	2-5-96
	Edited:		1-31-2004

Requires mklayr, ukword

LAYBENT.lsp

Turn off layers, freeze layers, or set to a layer by entity selection.


	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387

		All rights reserved without prejudice.

	Copyright:	2-5-96
	Edited:		2-21-2004

	Made C:SHOLAY a separate file

Requires mklayr, ukword, either requires or can use Doslib

layerlist.lsp
Requires ukword

LAYLST.LSP

Generate a sorted list of layer names in the drawing.

	The list is written to a
	file named .LAY in the current directory.
	The list can be viewed in AutoCAD by entering
	!newlist at the command prompt.  A page by page
	listing can be viewed by entering LLIST after the
	lay_list routine has been run.


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	4-28-96
	Edited:		1-31-2003

LBL.lsp

Automatically stamp drawing with file/user/time/scale information.
	as a string in an attribute called FILSPEC in a block
	named DWGSTAMP.  This block must exist in the drawing or the
        drawing must exist in a directory included in the ACAD= environment
        variable and it must contain an attribute with the tag FILSPEC.
        The attribute is positioned and rotated to fit just inside the
        "binding edge" of any standard sheet size.  Currently all sheet
        sizes except 8.5" x 11" will be stamped	along the short side of
        the sheet in all cases.  The 8.5" x 11"	sheet will be stamped
        along the long side of the sheet.  The "sheet" is defined by
        setting AutoCAD's "limits".
		
	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	LBL.LSP	Copyright:  1991-1995
                   Edited:  11-28-95
                The items are, in order,
       Filespec:          (path\filename)          (dwgprefix + dwgname + .DWG)
       Edited By:         user login name          (environment var.)
       Date:              mm/dd/yy                 (from cdate)
       Time:              hh:mm	                  (from cdate)
       Scale:             nn"=1'-0" or 1"=nn'      (from dimscale and lunits)
       Xref names:        name1, name2, etc.       (from table search)

Requires dimscl, mklayr, either requires or can use Doslib, requires clg

LBL2.lsp

Automatically stamp drawing with file/user/time/scale information.
	as a string in an attribute called FILSPEC in a block
	named DWGSTAMP.  This block must exist in the drawing or the
       drawing must exist in a directory included in the ACAD= environment
       variable and it must contain an attribute with the tag FILSPEC.
       The attribute is positioned and rotated to fit just inside the
       "binding edge" of any standard sheet size.  Currently all sheet
       sizes except 8.5" x 11" will be stamped	along the short side of
       the sheet in all cases.  The 8.5" x 11"	sheet will be stamped
       along the long side of the sheet.  The "sheet" is defined by
       setting AutoCAD's "limits".
		
	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	LBL.LSP	Copyright:  1991-1995
                  Edited:  11-28-95
               The items are, in order,
      Company:           HUA                      (hard coded)
      Filespec:          (path\filename)          (dwgprefix + dwgname + .DWG)
      Edited By:         user login name          (environment var.)
      Date:              mm/dd/yy                 (from cdate)
      Time:              hh:mm	                  (from cdate)
      Scale:             nn"=1'-0" or 1"=nn'      (from dimscale and lunits)
      Xref names:        name1, name2, etc.       (from table search)

Requires mklayr, either requires or can use Doslib

LBLD.lsp	Label lines and polylines with segment distance. AUTHOR: HENRY C. FRANCIS 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 1996-2001 Edited: 2-20-2001
Requires mklayr, dimscl, uutils, ukword, ureal, getstyle, txtsize, gvpno, uint, srvang, survang

lbnd.lsp	Place a block named LTIC at end of a line. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl, mklayr

LCLT.LSP	save layer name, color, linetype. AUTHOR: HENRY C. FRANCIS 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 4-28-96 Edited: 9-11-97
Requires ustr

LDLSP.LSP	File dialog for loading lisp files. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

LDRFIX.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires mklayr, dimscl, transpt

LINEMELD.LSP

KETIV - "glue" two lines together, keeps properties of first selection.
 LINEMELD.LSP

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C2
 Portland, OR  97218

 Layer Group: None

 Menu Location: Edit2 pull down, Tablet Y20

 Purpose:  To "glue" two lines together as one line keeping the properties of
           the first line selected.


 Prompts:  Select first line:
           Select second line:
              [If entities are not lines]
              The entities selected are not LINE entities.

 Assumptions / Limitations:
           1) Works for lines only

======================================================================================================
 Initialize memory and important system variables

linesum.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: 4-8-2005 Edited: 4-8-2005

LLSP.LSP

Dialog to display/print/save list or load/edit lisp files.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

loadpagesetups.lsp

Loads standard page setups from PAGESETUP.DWT template file.
Match list of page setup names below, (setq setupslst ...), to setups
named in PAGESETUP.DWT  Changes to PAGESETUP.DWT require changes here.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2-8-2002
	   Edited:  2-8-2002

******************************************************************************

Requires loadpagesetups

LOADX.LSP

Load any *.EXP file (specifically for Automanager Organizer).
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

log_it.lsp	Add or create Log data (EED) in a drawing. (log_it) AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 1-18-96 Edited: 6-7-2005
Requires or can use Doslib

LPRJMGMT.LSP
Requires v:/util/lsp/ustr, either requires or can use Doslib, requires ukword

LPT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ukword

LSLBL.LSP

Custom Dialog routine written for Dennis Facia to label landscape plantings.
Requirements:
      MKLAYR.LSP, MLT.LSP, UUTILS.LSP, GETSTYLE.LSP
      (preexisting routines by H.C. Francis)

      Author:  Henry C. Francis
               425 N. Ashe Street
               Southern Pines, NC 28387
      e-mail:  hfrancis[at-sign]paracadd.com

     Created:  3/13/97

      All rights reserved without prejudice.

Requires mlt, lstbl, *error*

lspcomp.lsp
Requires or can use Doslib, requires uint

lsplst.lsp

Automatically generates complete HTML listing all autolisp files in the
H:/UTIL/LSP/ folder.  You may edit for your location but you must leave
the heading with credits to LSPLST.LSP from ParaCADD.

Only those functions that have an explicit (load ) statement
or are included in the list represented by the symbol myfuns_lst will
be included in the "Requires" line in the resulting HTML.

Doslib useage is accounted for separately.

The existence of myfuns_lst can significantly slow the HTML generation
process.  It is best to include conditional load statements for external
functions in your autolisp files.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  5-5-2001
	   Edited:  2-1-2004

Requires or can use Doslib

LSTBL.LSP	Tabulate Planting Text; copyright 1997, H.C. Francis AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-14-97
Requires upoint, mklayr

LSTR.LSP

Place text above or below a line or polyline segment. ("above" breaks @ 107^-287^)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	4-7-95
	Edited:		4-7-95

Requires mklayr, dimscl, getstyle, ustr, ukwprd, ukword

lstsample.lsp	List processing example

LTERM.lsp

Place an arrowhead (block name LDRARO) at end of a line.
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires dimscl, mklayr

LTGEN.LSP

Modify linetype generation on a selection set of polyline entities.
	The only input
       required is the selection of the polylines to modify.  There
       is no need to worry about not selecting non-polyline entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-17-94
	Edited:		6-7-94

Requires ukword

LTIC.LSP	Place a block named LTIC at end of a line. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires dimscl, mklayr

LTO.LSP

Place an arrowhead (block name LDRARO) at end of a line.
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires dimscl, mklayr

LTOPL.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 10-1-98 Edited: 10-1-98

LTP.LSP	Convert lines into a polyline. AUTHOR: Henry C. Francis 425 N. ASHE ST. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 12-20-94 Edited: 11-13-96

LTSCL.LSP

Modify the LTSCALE of a selection set of entities. (uses UREAL
       The only input required is the desired ltscale
       and selection of the entities to modify.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	6-15-00
	Edited:		6-16-00

Requires ureal

LTWID.LSP

Modify linetype width of a selection set polyline entities.
       The only input
       required is the selection of the polylines to modify.  There
       is no need to worry about not selecting non-polyline entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-17-94
	Edited:		3-13-96

Requires ureal

LTXT.lsp	Place text on polyline or line. (uses MKLAYR GETSTYLE USTR) AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 6-16-94 Edited: 6-16-94
Requires getstyle, ustr, mklayr, gvpno, dimscl, ukword

LVNDX.LSP

Customized version of CDMNDX just for Las Vegas CDM.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-22-97
       Edited:         7-20-97

MASFEN.LSP	Place masonry fence linear symbol as anonymous block.
Requires dimscl, upoint

MDDATTE.LSP	Multiple block attribute edits Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

MEASD.LSP	Measure distance and preserve variables for use with commands.
Requires upoint, survang

MEE.lsp

Geometric CALCULATOR macro for MEE (midpoint endpoint endpoint)
Can be called transparently.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at]paracadd.com
	All rights reserved.

MENU3.LSP	-- Mode: LISP -- Syntax: AutoLISP (C) Benjamin Olasov 1988, 1989
Requires color

MESH2PL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

MGN.LSP

Place a Magnetic North Symbol (block) in the drawing at any orientation.
(uses UPOINT)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-27-94
	Edited:		2-23-96

Requires dimscl, gvpno, upoint

MH.LSP	Insert a single manhole (profile, for use w/ MHP)
Requires upoint, ustr

mhang.lsp

Place a fixed radius DMS angle dim. (w/o DIM). Fills in leading zeros.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
	
		All rights reserved without prejudice.

	Copyright:	5-28-96
	Edited:		11-26-96

Requires dimscl, ukword, txtsize, ureal, gvpno

MHD.LSP	Place vertical line @ MH sta. and invert for sewer profile design.
Requires upoint

MHE.LSP

Place a sized ellipse to scale at the station and invert supplied to it.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	3-2-95
	Edited:		6-20-96

       PURPOSE:        This program will place a sized ellipse to scale at
                       the station and invert supplied to it.  It is for
                       profiles with a vertical scale 10x the horizontal
                       scale.

Requires mklayr, upoint, ureal, uint

MHEL.LSP

modify RIM ELEV. text to match SDSK point value (rnd to 10th).
Requires SDSK point block with correct elevation and
existing RIM ELEV. text string

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

MHELSUB.LSP

modify RIM ELEV. text to match SDSK point value (rnd to 10th).
Requires SDSK point block with correct elevation and
existing RIM ELEV. text string

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires ureal

MHLBL.lsp	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires stait, gvpno, dimscl, ustr, ureal, uint

MHP.lsp	Automatically draws full sewer profile by pick or key-in of sta./elevs.
Requires uint, ureal, ukword, ustr, upoint, getstyle

MHPL.lsp

Autolabel Manholes along a gravity sewer alignment (plan).
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires gvpno, ustr, uint, ureal, ukword, dimscl, mhelsub, upoint

MHSL.LSP	Insert vertical LINES at MH stations in profile. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. Copyright: 1-8-97 Edited: 1-15-97
Requires mklayr, upoint

MIDI.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires or can use Doslib

MIDIS.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires or can use Doslib

MIR.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires uutils, upoint

MIRPLT.LSP	Mirror routine for batch plot limits (if plotter won't do it). QUIT AFTER!!!

MKLAYR.LSP

Save, Restore and Make layer utilities.  (uses modified CLG format)

       This function is to save layer settings before running a utility
       that sets its own layer so that the previous condition can be
       restored.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	5-18-95
	Edited:		4-23-2004

Requires *error* ,, uint, ustr

ml.lsp

Place a leader with a vertical line for height of multiline notes
       in the drawing.  The leader may be single or multiple lines
	at any angle.  The vertical will be placed with the center at the
       edge of the last leader line coincident with the end of the leader.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	4-14-94
	Edited:		7-23-95

Requires mklayr, dimscl, uint, upoint

MLINS.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires uint

MLT.LSP

Place leader and single or multiple line text notes. ~ reissues last note text for that line.

	This program will place a leader with a vertical line for multiline
	notes in the drawing.  the leader may be single or multiple lines
	at any angle.  A vertical line will be placed at the end of the last
	leader line if you input points for its Y values.  After the vertical
	line is placed the notes and line are repositioned so that the vertical
     line is centered on the end of the last leader line.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
	
		All rights reserved without prejudice.
	Copyright:	4-14-94
	Edited:		10-6-2005

	Requires Lisp files: uutils, getstyle, dimscl, gvpno, mklayr, txtsize
	Requires DWG file: Ldraro

Requires uutils, mklayr, getstyle, dimscl, gvpno, txtsize, ukword, upoint, ustr, archldrs

MLTUPD.LSP

	This program will place a leader with a vertical line for multiline
	notes in the drawing.  the leader may be single or multiple lines
	at any angle.  A vertical line will be placed at the end of the last
       leader line if you input points for its Y values.  After the vertical
       line is placed the notes and line are repositioned so that the vertical
       line is centered on the end of the last leader line.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	4-14-94
	Edited:		5-26-94

Requires txtsize, getstyle, upoint, ustr

MMKR.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 9-19-95 Edited: 11-12-97
Requires uint, ustr

MNUCMD.LSP	Sets POP0 menu to either POPPIPE or the active CLG Major Group. Define submenus in the MNS file and swap them in this fashion.

movez.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 9-3-2002 Edited: 9-3-2002
Requires ureal

MPE.LSP

Place pvmt edge blocks on 'right' side of polyline beginning at nearest end.
          Requires blocks PE and PEO (Pvmt Edge and Pvmt Edge Other side).

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires dimscl

MPN.LSP

Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:	5-27-94
	Edited:		11-16-2005

Requires dimscl, gvpno, upoint

MSS.lsp	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ukword, uint, ustr, ureal

MT6.LSP
Requires MT1Ql

MTOI.LSP

Convert a number in (m)any text string(s) from meters to feet.
Adds parenthesis around number.  (uses UINT USTR)
Specify or change precision (decimal places) too.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-29-98

Requires uint

MTOL.LSP	Move a selection set to a specified layer. (uses USTR) AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice.
Requires ustr

myautoload.lsp
Requires AUTOLOAD

myopencmd.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
  (SETQ DEFUN-Q DEFUN)
  nil
) ;_ end of IF

Requires dlog

MYQSAVE.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires lbl, dlog, lvndx, huandx, either requires or can use Doslib

mytmp.lsp

MYUCS.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:
Requires UPOINT.LSP

NC.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

NEWY.LSP

NEWY: Set "Y"; MATY: match "Y"; SHOWY Display "Y"; OFFZ Set "Y" +- reference "Y"


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      8-20-2000
	Edited:		8-20-2000

Requires ureal

newz.lsp

NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		8-28-96

Requires ureal

next.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires uint, initandsdichk, save_file_chk, check_for_doslib, MYOPENCMD, proj

nilbns.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

NINT.lsp

Change the first number in a text string by the user specified value. The
new number is conformed to the units if precision specified by the user.

If specified units of precision are greater than the precision of the original
number zeros are added to the string to display them.  Actual digits reflecting
the precise number intended by the user cannot be determined by this routine.

If precision is reduced by the user it cannot be regained by this routine.
The prior digits of higher precision are discarded and cannot be recovered
except by the method they were originally obtained or other equal method.

(uses UINT USTR)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-27-2005

Requires uint, ustr

NMHN.LSP	Specifically changes integers in "..MH #?" strings by 'value'. (uses UINT )
Requires uint

nn.lsp

Changes numbers by specified amount.  If text is in Station format, "+" is
kept in the number which is still properly read and edited.  The new number
is conformed to the current linear units precision setting (LUPREC).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	9-02-94
	Edited:		9-14-2005

Requires stait, ustr, uint

nnunn-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, textscrnmem

NOdims.lsp

Put hiding solids over dimension text.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		8-5-03 ;disabled creation of 3Dfaces - now makes HDBOX inserts only

Fixed problem where dims in both spaces were processed and
resulting hiding objects were all in one space.  Now only dims
in the specified space are processed.

NOTBY.LSP	Select everything that is NOT layer and color BYBLOCK. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

NOZ.LSP	SET "Z" VALUES OF ANY LINE TO ZERO. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 11-9-93 Edited: 1-6-94

nozline.lsp	Draws a line with current elevation for Z regardless of elevation of points snapped to.

NPL.LSP

CREATE A NEW POLYLINE FROM AN OLD POLYLINE W/ REVERSED ORDER VERTICES.

       IT USES A SCRIPT FILE
	CONTAINING THE VERTEX POINTS SORTED IN DECENDING ORDER.
	THE ORIGINAL POLYLINE MUST ADVANCE CONTINUALLY ALONG THE X AXIS
	IN THE COORDINATE SYSTEM USED.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:	9-23-93
	Edited:		1-6-94

NSANG.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: Edited:
Requires uint, ukword

NTEST.LSP	Test function for ParaPIPE variable lists.
Requires pttxt, uint

NTREE.LSP	Place woodline linear symbol as an anonymous block. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-20-96 Edited: 3-20-96
Requires upoint

OG.LSP

OHDP.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

oherbert-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, textscrnmem

OP.LSP

open.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Prior to DEFUN below (COMMAND ".undefine" "open") is required or this DEFUN will not
redefuine QSAVE (COMMAND ".undefine" "open") can be executed from here or anywhere
else as long as it is called before this DEFUN

Requires save_file_chk, initandsdichk, check_for_doslib, proj, myopencmd

openpl.lsp

P5TEST.LSP

 AutoLISP File for
   Inside AutoCAD Release 13 - IAW Disk (c) 1995 New Riders Publ.
           Version 13.00 for Release 13 for Windows and NT
                 Developed by Rusty Gesner.
                  See the UPDATE.TXT file.
 
  This program tests your Pentium chip for a floating-point division bug.
  To use this test, enter (load "p5test") at the Command: prompt.

panpnt.lsp

Made for use with voice commands. returns a pan displacement

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

	Copyright:  6/2004
	   Edited:  6/2004

PARNO.LSP

Change a number in (m)any text string(s) by a value.
Adds parenthesis around number.  (uses UINT USTR)
Specify or change precision (decimal places) too.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-19-95

PBRK.LSP

Place pipe break symbol automatically by selecting sides.
(uses PBRK.DWG)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-18-94
	Edited:		6-6-99

PBRKD.LSP

Place double-line pipe break symbol automatically by selecting outside walls.
(uses PBRK.DWG)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-18-94
	Edited:		6-6-99

PBS.LSP

Place a sized ellipse to scale at the station and invert supplied.
It is for profiles with a vertical scale 10x the horizontal scale.

	AUTHOR: Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

		All rights reserved without prejudice.

	Copyright:	8-18-95
	Edited:		12-18-97

Requires ureal, uint, upoint

PCD.LSP

PD.LSP
Requires ustr, open

PESEAL.lsp

 Xref attachment function for PE seal.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 1991-2001
	Edited:	10-19-2005

Requires ukword, dimscl, ustr

pgl.lsp

Place a standard Plan Grid array beginning at the point you specify
       and terminating at the north and east
       distances you specify.  The grid will be divided into 100', 500'
       and 1000'grid lines on separate layers so that you can easily
       change between display of these intervals without editing the grid.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	5-31-94
	Edited:		6-15-99

Requires upoint, ureal

PLAYCD.LSP

PLAYMIDIS.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires or can use Doslib

PLBAT.LSP
Requires open, either requires or can use Doslib

PLBL.LSP

Plot label utility.  Written By: Henry C. Francis	7/22/91

	This routine will automatically place several informational
	items as a string in an attribute called FILSPEC in a block
	named pltstamp.  The attribute is positioned and rotated to
	fit just inside the binding edge of any standard sheet size.
	Currently all sheet sizes except 8.5" x 11" will be stamped
	along the short side of the sheet in all cases.  The 8.5" x 11"
	sheet will be stamped along the long side of the sheet.
		
               The items are, in order,
	       Filespec:	(path\filename)	         (dwgprefix + dwgname + .DWG)
	      Edited By:	user login name		 (reads from environment)
		   Date:	mm/dd/yy	         (extracted from cdate)
		   Time:	hh:mm		         (extracted from cdate)
		  Scale:	nn"=1'-0" or 1"=nn'	 (calculated from dimscale)

Requires dimscl, mklayr, either requires or can use Doslib, requires open

PLCONT.LSP

Place polyline with small-angle-deflection segments instead of arcs.
Useful for generating TINs that will follow curves.  (see PLXL for
converting existing polylines w/ arcs).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	5-10-96
	Edited:		5-10-96

Requires upoint, ureal

plends.lsp	Requires and processes LWPOLYLINES. No other entities should be displayed.
Requires ureal

PLGRID.LSP

Place a standard Plan Grid array beginning at the point you specify
       and terminating at the north and east
       distances you specify. The grid will be divided into 100', 500'
       and 1000'grid lines on separate layers so that you can easily
       change between display of these intervals without editing the grid.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-28-96
	Edited:		4-22-2004

Requires upoint

Pli2.lsp

Create a new Polyline with additional vertices at LINE intersections.

Polylines should not have ARC segments.  If they do the routine
will will find intersections on their chords.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved.

	Copyright:	1-8-97
	Edited:		1-13-97

PLINT.LSP

Create a new Polyline with additional vertices at LINE intersections.

Polylines should not have ARC segments.  If they do the routine
will will find intersections on their chords.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved.

	Copyright:	1-8-97
	Edited:		1-13-97

plints.lsp
Requires ureal

PLINTST.LSP

pln.lsp

Place a Plan North Symbol in the drawing at any orientation. (uses UPOINT)
Also uses NA1.DWG (static horizontal part) and NA2.DWG (pointer, set to 
any rotation)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-27-94
	Edited:		6-18-94

Requires dimscl, gvpno, mklayr, upoint

PLOC.LSP

Open/Close a selection set of polyline entities.
	The only input
       required is the selection of the polylines to modify.  There
       is no need to worry about not selecting non-polyline entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-17-94
	Edited:		6-7-94

Requires ukword

PLREV.lsp

This routine will reverse the order of vertices in any polyline.  It
creates a new polyline at the end of the existing one that has just two
vertices occupying the same point as the existing end.  It then uses
PEDIT JOIN to accomplish the reversal.  If your polylines must not have
more than one vertex occupying the origin point of the newly ordered
polyline then don't use this routine or PEDIT the result to remove the
extra vertices created by this routine.


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	12-3-95
	Edited:		12-3-95

PLSEG.LSP

Convert polyline w/ arcs to small-angle-deflection segments instead of arcs.
Useful for generating TINs that will follow curves.  (see PLCONT for
placing new polylines w/ small-angle-deflection segments).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

PLTHK.LSP

Modifies thickness of a selection set of entities.
	The only input
       required is the selection of the entities to modify.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	8-4-97
	Edited:		8-4-97

Requires ureal

PLTL.lsp

Place title text, underline and scale text.
       Uses DIMSCALE and LUNITS to format scale string and scale bubble
       and text.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-30-93
	Edited:		6-17-2003

       Requirements:   GETSTYLE.LSP (gets current style values and changes
                                     them as req'd for this function only.)

Requires dimscl, gvpno, ustr, ukword, getstyle

pltsiz.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires or can use Doslib, requires open

plwid.lsp

Modifies width of a selection set of polyline entities.
	The only input
       required is the selection of the polylines to modify.  There
       is no need to worry about not selecting non-polyline entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-17-94
	Edited:		6-7-94

Requires ukword, ureal

PLXL.LSP

Translate plines w/ arcs to plines w/ mult. straight segments for use
with DTM TIN's for contouring.  Rounds out pline arcs via a suitable no.
of straight segments.  The determiner is based on small angle deflection.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	5-10-96
	Edited:		10-6-2005

Requires ureal

PLZERO.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. copyright: 4-13-97 edited: 4-13-97

PNEUMSIG.LSP

pntel.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: 5-17-2004 Edited: 5-17-2004
Requires ureal

POPTL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 10-23-2002 Edited: 10-3-2002

ppdisp.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires uint

ppgrid.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: 5-21-2004 Edited: 5-21-2004
Requires ukword

pppset.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

PPS.LSP

Place a sized ellipse to scale at the station and invert supplied.
It is for profiles with a vertical scale 10x the horizontal scale.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	8-18-95
	Edited:		8-18-95

Requires uint, ureal, upoint

prculv.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 9-27-2001 Edited: 9-27-2001
Requires mklayr, ukword, ustr, ureal

primedwg.lsp

PRJMGMT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1997-1999 Edited: 3-19-99
Requires ustr, either requires or can use Doslib, requires ukword

PROCP.LSP	****************************************************************************
Requires error ,, getstyle, ureal, ukword

PROF.LSP
Requires ustr, open

proj.lsp

Dialog - Create, Select or Delete Project listings (delete has no effect on files
or folders, it just removes from list of available projects).
Sort projects by Client #, Project #, Client Name, or Project description.
Explorer window and Open dialog start in the project folder.  No need to browse and
find the correct folder.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	1999-2002
	Edited:		2-8-2002

********************************************************************

Requires initandsdichk, browser_help, save_file_chk, either requires or can use Doslib, requires open, myopencmd, ukword, log_it, dlog

PROPNO.LSP

Place property number block (triangle with number as attribute)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6/19/2001
	   Edited:  6/19/2001

Requires dimscl, mklayr, gvpno, uint

PROV.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires open

PSCT.lsp

Place a pipe section symbol (yin-yan, sans the dots) in an arc or circle.
(uses YINYAN.DWG)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-18-94
	Edited:		7-10-2003

psets.lsp

Sets ParaPIPE parameters to match previously drawn ParaPIPE entities

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  4/2003
	   Edited:  6/2003

PSLAY.LSP

pspace.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. If tilemode must be 0 then why don't we just set it?

psviews.lsp
Requires vpset

PT3LIN.LSP

EAGLE POINT and DCA 3D Pline placement at points. (reads DOT or POINT blocks)

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	5-13-96
	Edited:		11-13-96

Requires ustr, itr

PTANK.LSP
Requires ukword, upoint, ureal

PTDAT.LSP

EAGLE POINT and DCA point block usage subroutine. (see PTSYM, PTLIN, ITREE)

		AUTHOR: Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	12-14-94
	Edited:		11-13-96

Requires ukword, open, ustr, uint

PTLIN.LSP	EAGLE POINT and DCA Pline placement at points. (reads DOT or POINT blocks) AUTHOR: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved Copyright: 5-13-96 Edited: 11-13-96
Requires ustr, itr

ptnos.lsp
Requires uint, ureal

PTSYM.LSP	EAGLE POINT and DCA symbol placement at points. (reads DOT or POINT blocks) AUTHOR: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved Copyright: 5-13-96 Edited: 11-13-96
Requires ustr, itr

PTTXT.LSP	(subroutine) Place text at points.

PUCS.LSP	Set a UCS to match a profile grid (Y is exagerated 10X). AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice.
Requires upoint, ureal, ustr

purgeall.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:

QLAY.LSP	Quick "set to existing layer" dialog. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 4-28-96 Edited: 9-11-97
Requires open

qsave.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Prior to DEFUN below (COMMAND ".undefine" "qsave") is required or this DEFUN will not
redefuine QSAVE (COMMAND ".undefine" "qsave") can be executed from here or anywhere
else as long as it is called before this DEFUN

Requires lbl, dlog, lvndx, huandx, backup

QSORT.LSP	An exercise in recursive sorting (use ACAD_STRLSORT, not this)
Requires QSORT, qsort

quit.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Logs the quit.

Prior to DEFUN below (COMMAND ".undefine" "quit") is required or this DEFUN will not
redefuine QSAVE (COMMAND ".undefine" "quit") can be executed from here or anywhere
else as long as it is called before this DEFUN

Requires or can use Doslib, requires dlog

rattr.lsp

Search and Replace ATTRIBUTE values; copyright 1997, H.C. Francis

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.
	Copyright:	8-8-97
	Edited:		2-5-01

Requires uutils, ustr, ukword

Rblk.lsp

Update or Replace an existing block. (uses USTR UKWORD)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

	Copyright:  1991 - 2005
	   Edited:  2-28-2005

Requires uutils, ustr, ukword, mklayr

RBLKA.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

RBRKL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail: hfrancis > paracadd.com All rights reserved. Copyright: 2-18-2004 Edited: 2-18-2004
Requires upoint

reacs.lsp
Requires ListAllReactors

REATTR.LSP

Reformat and reposition/reinsert multiline text notes (not MTEXT).
Copies text and attributes from Xrefs to format new notes.

          AUTHOR: HENRY C. FRANCIS
                  425 N. Ashe Street
                  Southern Pines, NC 28387
              
          All rights reserved without prejudice.

       Copyright:      
       Edited:         2-17-2005

When Text size is specified, it is in Leroy template sizes.  Leroy template
sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
dimscale of 1.  It is 3.00" high at a dimscale of 30.

The following are required:
GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP


****************************************************************************

Requires mklayr, uutils, dimscl, gvpno, getstyle, txtsize, upoint, ukword, uangle

REBAR.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires ureal, MKLAYR, upoint, ukword

RECTANG.LSP

RECURS.LSP

REF.LSP	REF.LSP
Requires REF

rehd.lsp	Replaces old hd??? block definitions with new ones. Requires new hd??? drawings. 2005

RELAY.LSP

Change all entities on a layer to another layer (or a new layer).

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
             
 		All rights reserved without prejudice.

	Copyright:	2-6-96
	Edited:		11-26-96

RELAYV.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 9-3-1999 Edited: 9-3-1999

remlt.lsp

Places leader, line(s) of text and a vertical line w/ multiple lines of text.
    The leader may include a single line segment or multiple line segments
    at any angle.  A vertical line will be placed at the end of the last
    leader line if there is more than one line of text.  After the vertical
    line is placed the notes and line are repositioned so that the vertical
    line is centered on the end of the last leader line.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	1996 - 2005
	Edited:		2-28-2005

Requires mklayr, getstyle, txtsize, gvpno, uutils, dimscl, ukword, upoint, archldrs

renot.lsp

Reformat and reposition/reinsert multiline text notes (not MTEXT).
Also, copies text and attributes from Xrefs to fromat new notes.

          AUTHOR: HENRY C. FRANCIS
                  425 N. Ashe Street
                  Southern Pines, NC 28387
              
          All rights reserved without prejudice.

       Copyright:      
       Edited:         5-11-2001

When Text size is specified, it is in Leroy template sizes.  Leroy template
sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
dimscale of 1.  It is 3.00" high at a dimscale of 30.

The following are required:
GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP

Requires mklayr, uutils, dimscl, getstyle, ukword, txtsize, upoint, uangle

renote.lsp

Reformat and relocate/reinsert multiline text notes (pre-MTEXT). 

          AUTHOR: HENRY C. FRANCIS
                  425 N. Ashe Street
                  Southern Pines, NC 28387
              
          All rights reserved without prejudice.

       Copyright:      
       Edited:         5-8-98

     Requirements:
       Dimscale must be set to drawing scale, e.g., if drawing scale is
       1/4" = 1'-0" set dimscale to 48, if dimscale is 1" = 30' set
       dimscale to 30.  (Note: dimscale=0 is equivalent to dimscale=1
       within this function).  Dimscale is a multiplier in this function.
       A Leroy 100 template is 0.10" high with no scale multiplier or a
       dimscale of 1.  It is 3.00" high with a scale multiplier of 30 on a
       1" = 30' full scale drawing.  If your drawing is not drawn full
       scale then adjust dimscale to match.

       The following function's path must be in your SET ACAD= statement:
       GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP

 
****************************************************************************

Requires mklayr, upoint, ukword, dimscl, getstyle, txtsize

renumdwg.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  
	   Edited:
***************************************  WARNING  **************************************************

       Add code to ensure no overwrites of existing files.  Until then use with caution!

***************************************  WARNING  **************************************************

Requires ustr, uint, either requires or can use Doslib

REROT.LSP

Rerotate a selection set of entities to be horiz to the view.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	8-31-95
	Edited:		8-22-05

Requires upoint.lsp

REROTS.LSP

Rerotate a selection set of entities to be horiz to the view.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	8-31-95
	Edited:		8-22-05

revlay.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1999-2002 Edited: 2-22-2002

REVS.LSP

Revision Box layer management by number, i.e., 1, 2, 3... (uses REVTXUR.DWG)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://parqacadd.com
	e-mail hfrancis@paracadd.com
	All rights reserved.

Requires ureal

REVTXT.lsp

Inserts REVTXLR.DWG, Revision Box for Lower Right corner of sheet.  (see REVS)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-19-96
	Edited:		6-19-96

Requires dimscl, upoint, ukword

REVXLAY.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1999-2002 Edited: 2-22-2002
Requires ustr

RLAYC.LSP

Revert Layer colors to CLG Colors.  Will set colors by character #7
of any layer name.  Character must be a (color)number or a letter A-F.
I.e., 1 2 3 4 5 6 7 8 9 A B C D E F correspond to colors:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

!!!CAUTION!!! ANY Layer with these characters as their 7th char. WILL BE
MODIFIED by this routine, AS WILL LAYERS from XREF's with names 8
characters long. (9th char is checked for "|" and then 16th char. is
checked for color key as above.)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
            
		All rights reserved without prejudice.
	Copyright:	10-11-96
	Edited:		10-11-96

RLCLT.LSP	save layer name, color, linetype. AUTHOR: HENRY C. FRANCIS 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 4-28-96 Edited: 9-11-97
Requires ustr

RNL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

ROF.LSP	Relative offset by distance Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires upoint, ureal

ROTX.LSP	Set X-hairs and optionally viewtwist.
Requires rotx, ukword

RRCHANL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3/29/00 Edited: 3/29/00
Requires mklayr.lsp

RRECT.lsp	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires mklayr, dimscl

RRRTEXT.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 2-21-96 Edited: 2-21-96

RRTEXT.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 2-21-96 Edited: 2-21-96

RRTXT.LSP

This program will standardize text orientation of a selection set of text entities.
       There is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387
             
		All rights reserved without prejudice.

	Copyright:	6-7-94
	Edited:		11-26-95

Requires uutils, ukword

RTEXT.LSP

Search and Replace TEXT within strings; copyright 1996, H.C. Francis

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	2-21-96
	Edited:		7-15-99

Requires uutils, ustr, ukword

RXACT.LSP	Search and Replace TEXT; copyright 1996, H.C. Francis AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 8-8-97 Edited: 8-8-97
Requires ustr, ukword

RXREF.LSP

Convert block to XREF.  (Filename must be on search path and = block name)

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
		All rights reserved without prejudice.

	Copyright:	12-20-94
	Edited:	        11-10-95

S7MNU.LSP
Requires ustr, ukword

S8MNU.LSP
Requires ustr, ukword

save.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Stamps the drawing and logs the save.
Prior to DEFUN below (COMMAND ".undefine" "save") is required or this DEFUN will not
redefuine QSAVE (COMMAND ".undefine" "save") can be executed from here or anywhere
else as long as it is called before this DEFUN

Requires initandsdichk, either requires or can use Doslib, requires cstmp, lbl, dlog, lvndx, huandx

save_file_chk.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires or can use Doslib

saveas.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Stamps the drawing and logs the saveas.

Prior to DEFUN below (COMMAND ".undefine" "saveas") is required or this DEFUN will not
redefuine QSAVE (COMMAND ".undefine" "saveas") can be executed from here or anywhere
else as long as it is called before this DEFUN

Requires initandsdichk, either requires or can use Doslib, requires backup, dlog

SAVPLOTS.LSP

       This program will plot HP Laser plots in batch using a script file.
       The user specifies the DWG filename search string (wildcards OK).

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-20-94
	Edited:		8-19-94

Requires plbl, ustr, ukword

SBREST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3/29/00 Edited: 3/29/00
Requires mklayr.lsp

SCD.LSP	Start a CD while in AutoCAD (DOS) Substitute your CD playing utility (and path)

scs.lsp

Place a Section Cut Symbol in the drawing at any orientation.
Either one of US Army Corps of Engr or our standard.
Uses UKWORD UPOINT MKLAYR SECLIN.DWG ELVCUT.DWG SECCUT.DWG

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.
	Copyright:	3-10-93
	Edited:		4-7-01

Requires ukword, upoint, dimscl, mklayr, gvpno

SDLBL.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires gvpno, dimscl

SDLL.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 01-13-2000 Edited: 01-13-2000
Requires gvpno, dimscl, txtsize

searchfiles.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires ustr, either requires or can use Doslib

SEED.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

SERVER.LSP
Requires or can use Doslib

SETCOLR.LSP	Standalone tool for setting color in (modified) CLG layernames. (uses USTR MKLAYR)
Requires ustr

SETMINR.LSP	Standalone tool for setting minor group in CLG layernames. (uses USTR MKLAYR)
Requires ustr, mklayr

SETMODF.LSP	Standalone tool for setting modifier in CLG layernames. (uses USTR MKLAYR)
Requires ustr

SETUSER.LSP	Standalone tool for setting modifier in CLG layernames. (uses USTR MKLAYR)
Requires ustr

sfill.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires mklayr

SHADOW.LSP

 WBOX.LSP

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C-2
 Portland, OR 97218

 Layer Group: WBOX

 Menu Location: Draw1 pull down, Tablet J4

 Purpose: To create a box by picking two points on the screen

 Prompts: Entities drawn will be POLYLINES
          Toggle to lines/:
          Other corner:

 Assumptions/Limitations: None

======================================================================================================
 Initialize memory and important system variables

Requires pick

SHATR.LSP	Show attribute tag and value of picked attribute. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

sholay.lsp

Tuis is asrn off layers, freeze layers, or set to a layer by entity selection.
C:SHOLAY displays entity properties and associated layers so the correct layer
can be selected for action.

	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387

		All rights reserved without prejudice.

	Copyright:	2-5-96
	Edited:		2-20-2004

SHOTXT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 4-7-99 Edited: 7-23-99
Requires GENT

show_log.lsp

SHOW_LOG Shows Drawing log (EED) PRINTLOG to print.  (uses LOG_IT to make log)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

SHTBND.LSP

Draws vport bounds plines from info in HUANDX.TXT which is written by HUANDX.LSP.
Commands: ESBND, erases vport bounds drawn by SHTBND; and
          VIEWSHT, zooms (and dview twists if necessary) the selected
                   sheet vport area in view.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 9/16/99
	   Edited: 2/4/2000

Requires ukword, getstyle, gvpno, ustr, uint, ureal, txtsize, tsnap, upoint, stait

SHTFIX.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

shtgen.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 10-19-1999 Edited: 10-19-1999
Requires ustr, uint, attupd

shtndx.lsp

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis@paracadd.com
	copyright and all other rights reserved.
     Edited: 11/17/2005

"Bogus" lines may be used in the Index text file to create section headers
but they must contain a tab for every column that normal lines have,
(i.e., include a blank the description).

Requires uutils, uint, getstyle, gvpno, txtsize

SILTFEN.LSP	Place silt fence linear symbol as an anonymous block. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://www.paracadd.com/ e-mail hfrancis@paracadd.com All rights reserved.
Requires dimscl, upoint

SIZEMH.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3/29/00 Edited: 3/29/00
Requires ureal, stait, ukword

SLAY.LSP

SLENT.LSP
Requires mklayr

SLOG.LSP

SLOG2.LSP
Requires lbl, dlog, hpwb

SLOPE.lsp	Label lines and polylines with segment distance. AUTHOR: HENRY C. FRANCIS 425 N. Ashe St. Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 2-24-96 Edited: 2-17-99
Requires mklayr, dimscl, getstyle, ureal, uint, ustr, ukword, gvpno

SLOT.LSP

 **********************************************************************
                            SLOT.LSP

 This routine uses 3dfaces to construct "slots" and "holes"
 in presentation models that will be rendered with AutoShade.
 It generates a rectangular edge of invisible faces around
 the top and bottom of the slot or hole.  This edge makes it
 much easier to attach adjoining faces to the slot.  To see
 this rectangular edge set the system variable "splframe" to 1.

 Written by Training Department - 3/01/88
 **********************************************************************

SLPB.lsp

Place a single line pipe break symbol (polyline) at the end of a line.

       Requirements: transpt.lsp (point translator used with the list
                                  returned by an nentsel selection)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	4-16-95
	Edited:		10-31-2005

Requires mklayr, dimscl, transpt, gvpno

sof.lsp

SOFTSIG.LSP

SOL2FACE.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

SOLARO.LSP

Check all selected solids, find only autocad solid arrows and replace them with arrow blocks, extend lines to their point.  (uses LDRARO.DWG MKLAYR)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires mklayr, dimscl

soldier.lsp

Place soldier course on 'right' side of polyline or spline beginning at nearest end.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires ureal

SORT.LSP

SPAN12.LSP

SPLITMNU.LSP

splitvp.lsp

Requirements:

This Drawing (block) must exist on AutoCAD's search path (or in the drawing):
	##ppgridlbl
		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
		These blocks must contain specific attribute tags for elevations,
	i.e.:

	left side attribute tags (ordered before right side tags)
		MLB+0, MLB+5, MLB+10, etc. but ordered from highest MLB+## to MLB+0;
		Space these vertically at 1" unscaled (english), unit distance (metric)
		(The total number of these tags is unlimited)

	right side attribute tags
		MRB+0, MRB+5, MRB+10, etc. also ordered from highest MRB+## to MRB+0;
		(The total number of these tags is unlimited)

Drawing must contain:
	The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
	The profile grid block named "##ppgrid" or "##spclgrid" or "##spfbgrid"
		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
		These profile grid blocks must contain specific attribute tags for stations and elevations,
	i.e.:

	left side attribute tags (ordered before right side tags)
		LB+0, LB+5, LB+10, etc. but ordered from highest LB+## to LB+0;
		(The total number of these tags is unlimited)

	right side attribute tags
		RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
		(The total number of these tags is unlimited)

	station attribute tags
		0, +0, 1, +1, 2, +2, etc. from left to right as many as are required
		place these in pairs at scaled 100' increments (english), 50m increments (metric).
		integer tags are right justified and +integer tags are left justified so that the first character,
		typically a plus sign (+), will lay directly under the grid line.  This solves justification related
		misalignment of labels.
		(The total number of these tags is unlimited)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

Requires upoint

SPOT.lsp

Place spot elevation X's and text. (uses GETSTYLE UPOINT USTR)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires getstyle, dimscl, txtsize, upoint, ustr

SPT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:

SRCHT.LSP	"Display Text Found by Search" dialog. AUTHOR: HENRY C. FRANCIS 425 N. Ashe Street Southern Pines, NC 28387 All rights reserved without prejudice. Copyright: 12-22-97 Edited: 12-22-97
Requires ustr

srext.lsp	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. email: hfrancis[at-sign]paracadd.com web: http://paracadd.com/ Copyright: Edited:
Requires ustr

SRTEXT.lsp

Search and Replace strings within TEXT, DIMENSIONS, MTEXT, ATTRIBS, and ATTDEFS
copyright 1996-2003 by H.C. Francis

Original command name RTEXT changed to SRTEXT 12/20/01

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-21-96
	Edited:		6-27-03

Requires uutils, ustr, ukword

SRVANG.LSP

Format supplied radian angle in Northing and Easting format.
Degree symbol is specified using either (CHR 176) or %%221 depending upon
current style font.  Also, pads zeros in minutes and seconds for
2 digit zero to 9 readings.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

SSLN.LSP

Label line length (decimal feet).  (XREFs Blocks or current drawing, plines too.)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

ssnap.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Sets sysvars SNAPANG and SNAPBASE from picked points
Requires upoint

STADJ.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 9-02-94 Edited: 9-02-94
Requires ustr

stairpl.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:
Requires mklayr, uutils, ureal, ukword, upoint

STAIT.LSP

Subroutine to convert a real no into a station string.  If m_units=T then string is metric.

		Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

stap.lsp	place sewer tap on a single run. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 6-1-2001 Edited: 6-1-2001
Requires pick, ureal, ukword

stat.lsp	Modemacro - shows full Ortho Snap Tablet Pspace Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

STDLAYR.LSP

Convert layer names to Standard CLG (as modified for color and linetype). (PER OUR STANDARD)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-6-96
	Edited:		11-26-96

Requires mklayr, ustr, ukword

STDSTYLE.LSP

Written by:	Henry C. Francis
		francishc@cdm.com

	 Date:	11/1/2001

	  For:	Camp Dresser & McKee

Purpose:	To convert drawing contents from old font/style standard to new
		font/style standard. This is accomplished by replacing the old
		fonts and styles with the new standard AutoCAD fonts in new
		CDM standard styles (RomanS, Arial). The old unreferenced styles
		are then purged from the drawing.

	Old Font	Old Style	New Style	New Font
-----------------------------------------------------------------------------
	CDMLROY.SHX		RomanS		RomanS.shx
	CDMLROYC.SHX	ditto		RomanS		RomanS.shx
	CDMLROYS.SHX	ditto		RomanS		RomanS.shx
	CDMHELV.SHX	ditto		Arial		Arial.ttf

	(old 15^ oblique that was built into CDMLROYS is made part of existing
	text/mtext entity definitions by this routine. The RomanS style has an
	oblique angle of zero).

STEPZ.LSP

NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"


	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
		All rights reserved without prejudice.

	Copyright:      1-26-96
	Edited:		8-28-96

Requires ureal, ukword, either requires or can use Doslib

STLAYR.LSP
Requires mklayr

STREV.LSP

stripcdm.lsp

stript.lsp

STYINF.LSP	Show current style NAME, FONT, HEIGHT Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

SUBT.lsp

Place a detail subtitle text string at 'our' standard size (175 leroy template, 0.175" @ 1:1) and color (cyan) on the standard layer (?-????4NOTE) (uses GETSTYLE MKLAYR)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	4-15-94
	Edited:		2-17-2004

Requires dimscl, ustr, getstyle, mklayr

SUMLINES.LSP

SURVANG.LSP

Format supplied radian angle in Northing and Easting format.
Degree symbol is specified using (char 176) OR %%221 (custom font character) depending on the font.
Also, pads zeros in minutes and seconds for 2 digit zero to 9 readings.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

SV-ENV.LSP	-- Mode: LISP -- Syntax: AutoLISP (C) Benjamin Olasov 1988 environment writing function Release 9

SVDSP.LSP

Save Views including layer on/off/thaw/freeze/lock for a particular view in a
       new script file which the user specifies.  Invoking the script file
       will return the layers to the same condition they were in when the
       script was made.  In addition, a commented line is placed at the top
	of the script file indicating the file the script file was made from
       and date the script file was made on followed by the description the
       user specifies.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	3-23-94
	Edited:		3-23-94

Requires ustr

sview.lsp

Dialog - Save and Restore views by name.  Preserves layer settings and view area as EED. (uses SVIEW.DCL)

	Requires: TSNAP.LSP

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, N.C. 28387
		All rights reserved without prejudice.

	Copyright:	12-8-95
	Edited:		8-14-2001

********************************************************************

Requires tsnap

SXEL.lsp

Place a sized ellipse to scale at the station and invert specified.  Also places a leader line and formatted text
beginning with the size of the pipe represented.  It is for profiles with a
vertical scale 10x the horizontal scale.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.

	Copyright:	3-2-95
	Edited:		3-2-95

Requires dimscl, getstyle, uint, upoint, mklayr

SYMBLT.lsp

Place a user supplied block name near the end of a line. (bend part, tee, gv, bfv)
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com
	e-mail hfrancis@paracadd.com
	All rights reserved.

	Copyright: 8-6-2000
	Edited:   8-22-2001

Requires dimscl, mklayr

table_cnt.lsp	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved. email: hfrancis[at-sign]paracadd.com web: http://paracadd.com/ Copyright: Edited:

TAGS.LSP

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
     http://paracadd.com
	All rights reserved.

	Copyright:  
	   Edited:  
****************************************************************************

Requires txtsize, dimscl, getstyle, gvpno, ukword, upoint

tblfix.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis@paracadd.com All rights reserved. Copyright: 3/27/2004 Edited: 3/27/2004

TBLK.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

TCL.LSP	Raw graphic construction tool for square-to-round transitions (sheet metal)
Requires upoint

TDLT.LSP

Set custom linetypes (command-ltype) TDLT-TDL, TDRT-TDR, and SEDF-SEDFENCE
Use TDLT to point left and TDRT to point right, then use PLREV.LSP to reverse them if they point the wrong way.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://www.paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires MKLAYR

teelt.lsp

Place a block named TEELT near the end of a line. (a bend part)
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires dimscl, svlayr

TEMP.LSP

TEST.LSP

TEXTIN.LSP

 TEXTIN.LSP - KETIV

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C-2
 Portland, OR 97218

 Layer Group: KTEXT

 Menu Location: Text I/O pull down

 Purpose: To import text strings from an ascii text file.

 Prompts: Filename 
             [If file not found]
             ERROR: File not found !
          Text justification (Left/Centered/Right) :
          Text height :
          Text angle <0.0>:
          Line spacing or RETURN for default:
          Text point:

 Assumptions/Limitations:
          Uses current text style

======================================================================================================
 Initialize memory and important system variables

TEXTOUT.LSP

 TEXTOUT.LSP - KETIV

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C-2
 Portland, OR 97218

 Layer Group: None

 Menu Location: Text I/O pull down

 Purpose: To export text strings from a drawing to an ascii text file.

 Prompts: Filename to write 
          Pick the text in the order in which it will be written to the file:
          Select objects:
          XX Lines of text written to "file"

 Assumptions/Limitations: None

======================================================================================================
 Initialize memory and important system variables

textscrnmem.lsp	Author: John McCullough DTI Technologies, Inc. e-mail JMcCullough@dtitech.com Created: July 8, 2002

thgt.lsp

Modify the text height of a selection set of text entities. (uses USTR)
       The only input required is the desired
       text width factor and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-7-94
	Edited:		11-26-95

Requires ustr, dimscl

THGTS.lsp

Modify the text height of a related selection set of text entities by scaling to the ratio NEW/EXIST or by factor Xnn.nnn (uses USTR UPOINT)
       The only input required is the desired text width factor and selection
       of the text to modify.  There is no need to worry about selecting
       non-text entities because they will be automatically filtered out of
       the selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-13-94
	Edited:		10-31-2005

Requires ustr, upoint, dimscl

THINPL.LSP

Thin Polyline vertices based on user specified angles and distances. (uses UANGLE UDIST)

	Requires: UUTILS.LSP  (uangle, udist)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	5-14-96
	Edited:		9-6-2005

Requires uangle, udist

thkfix.lsp

Finds entities on layers having linetypes with embedded text and
entities whose linetypes have embedded text and changes their
thickness to 1.0 so they will hide properly with hidden line removal.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved.
	email: hfrancis[at-sign]paracadd.com
	web: http://paracadd.com/

  Copyright: 5/25/01
     Edited: 5/25/01

Requires wipeprom

tincr.lsp

Place text with incremented numbers.
Requires uutils.lsp, dimscl.lsp getstyle.lsp mklayr.lsp
(and maybe some I didn't catch)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  
	   Edited:

Requires uutils, dimscl, getstyle, upoint, ukword, txtsize, ustr, uint

tmp.lsp
Requires dimscl, uutils, stait

TMP1.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

tmppgen.lsp
Requires tmppgen, ukword, ureal, uint, dimscl, ustr, vpset, tsnap, attupd, stait, lbl, cdmndx

TMPRLAY.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

tolayer.lsp

 TOLAYER.LSP - KETIV

 Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
 All rights reserved.
 KETIV Technologies, Inc.
 6645 NE 78th Court #C2
 Portland, OR  97218

 Layer Group: None

 Menu Location: Edit1 pull down

 Purpose:  To move selected entities to the current layer

 Prompts:
           Select objects:
           Destination layer :
             [If the layer does not exist]
             Layer "name" does not exist."

 Assumptions/Limitations: NONE

======================================================================================================
 Initialize memory and important system variables

TPAN.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ureal, stait

TPARNO.LSP

Change a number in (m)any text string(s) by a value.
Adds parenthesis around number.  (uses UINT USTR)
Specify or change precision (decimal places) too.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	9-19-95
	Edited:		9-19-95

TRANSPT.LSP

Subroutine. Translates points from MCS to WCS.  Only for list returned by nentsel from block selection.

       Requirements:   nntlst  must be a list returned by (nentsel) for a
                               selection of a block (and not selected by an
                               attribute).

                       defpnt  is a coordinate list (x y z) of an entity
                               within the selected block.

       newdpt  =  the coordinate location of defpnt in the WCS.
                               

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

       Copyright:      4-24-97
       Edited:         4-24-97

tree.lsp

Place woodline linear symbol as an anonymous block.  (uses UPOINT)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved without prejudice.
	Copyright:	3-20-96
	Edited:		1-25-01

Requires mklayr, dimscl, upoint, ukword

TRYIT.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ukword

ts.lsp

TSIZE.LSP	Shows text characteristics. AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 11-13-96 Edited: 11-13-96

tskipper-custom.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.
Requires qsave, textscrnmem

TSNAP.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com e-mail hfrancis[at-sign]paracadd.com All rights reserved.

TST.LSP

TT.LSP

TTARC.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 6-21-99 Edited: 9-6-2005
Requires ureal

TTLB.lsp

Inserts title block (attribs) and Xrefs static title info.  (attribs in HUATTLAT.DWG, static text in ??????TC.DWG, ??????=6 chars of default dir)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-16-96
	Edited:		2-16-96

Requires dimscl

TWID.lsp

Modify the text width factor of a selection set of text entities.
       The only input required is the desired
       text width factor and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	6-7-94
	Edited:		6-18-99

Requires ureal, ukword

TWST.LSP

tx180.lsp

Modify the text rotation angle of a selection set of text entities. (uses UREAL)
       The only input required is the desired
       text obliquing angle and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	7-15-94
	Edited:		9-29-98

Requires uangle

tx2pt.lsp	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

TXADD.LSP	Add text to existing text before or after AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 7-15-94 Edited: 8-22-2001
Requires ustr

TXANG.LSP

Modify the text obliquing angle of a selection set of text entities. (uses UREAL
       The only input required is the desired
       text obliquing angle and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	6-7-94
	Edited:		11-30-98

Requires ureal, ukword

TXBELO.LSP

Place text below a line.  Prompts for text layer by entity pick. (uses GETSTYLE USTR MKLAYR)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	4-7-95
	Edited:		4-7-95

Requires mklayr, dimscl, getstyle, ustr, slent

TXMIR.LSP

Modify text mirroring of a selection set of text entities. (uses UKWORD
       The only input required are the desired orientations for X and Y.
       There is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. Ashe Street
		Southern Pines, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	1-23-98
	Edited:		1-23-98

Requires ukword

TXONL.lsp	Place text on a line. (uses GETSTYLE USTR MKLAYR) AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 4-7-95 Edited: 10-6-2005
Requires dimscl, getstyle, ustr

TXRAD.LSP

Modify the text rotation angle of a selection set of text entities. (uses UREAL)
       The only input required is the desired
       text obliquing angle and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	7-15-94
	Edited:		7-15-94

Requires ureal

TXRAN.LSP

Modify the text rotation angle of a selection set of text entities. (uses UREAL)
       The only input required is the desired
       text obliquing angle and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	7-15-94
	Edited:		7-15-94

Requires ureal

TXT2ATTR.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 All rights reserved.
Requires ustr

TXTATT.LSP

  Written for Donal Pearce at Jay Kim Engineers

  This routine scales up or down text and blocks for plotting out at a scale
  different from the existing one.
  Written by: Kanwar Anand,  KETIV Technologies, Fullerton  Aug. 1989
  Copyright KETIV Technologies, Inc. Fullerton.
 ---------------------------------------------------------------------------

 Define a new error function here

TXTBLKS.LSP

Change text in blocks to separate layer (*-TXT) from other entities.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  2001
	   Edited:  8-27-2001

TXTDIR.LSP

Modify the text orientation of a selection set of text entities.
       The only input required is the desired
       text orientation and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	5-11-97
	Edited:		5-11-97

Requires ukword

TXTHK.LSP

Modify the thickness of a selection set of text entities. (uses UREAL
       The only input required is the desired thickness
       and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	8-27-97
	Edited:		8-27-97

Requires ureal

TXTIN.lsp

Import notes (a text file with or without numbered notes).  It uses the current text style and layer settings except the user can specify any height desired
	regardless of the style settings.  The current text size is
	the default.  In order to indent notes that are numbered
       the numbers must be alone on the line before the note they
	refer to AND they must be no longer than three characters
	INCLUDING a required period.  Any line of three characters or
	less that ends in a period Will be treated as a note number!

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	5-28-96
	Edited:		5-28-96

Requires uutils, getstyle, dimscl, gvpno, ustr, ureal, upoint

txtj.lsp

Modify the text justification of a selection set of text entities. (uses UKWORD UPOINT)
       The only input required is the desired
       text justification and selection of the text to modify.  There
       is no need to worry about selecting non-text entities because
       they will be automatically filtered out of the selection set.
	DO NOT select more than one "common note group".  All of the text
	selected is assumed to belong to such a group and it ALL will be
	justified to the same reference position.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-12-94
	Edited:		8-13-01

Requires ukword, upoint

TXTJP.LSP

       This program will modify the text justification of a selection
       set of text entities.  The only input required is the desired
       text justification and selection of the text to modify.  There
       is no need to worry about selecting non-text entities because
       they will be automatically filtered out of the selection set.
	DO NOT select more than one "common note group".  All of the text
	selected is assumed to belong to such a group and it ALL will be
	justified to the same reference position.

	AUTHOR: Henry C. Francis
		425 N. ASHE ST.
		Southern Pines, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	7-12-94
	Edited:		7-20-94

Requires upoint

txtlayr.lsp

C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6-30-99
	   Edited:  6-30-99

TXTLIN.LSP	Place Line under text strings. (on same layer). AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved Copyright: 1-26-96 Edited: 1-26-96

TXTLST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

TXTM.LSP

Match text Style and Height. Match layer if standard, else set layer. (uses MKLAYR)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

txtsize.lsp

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:	1990-2005
	   Edited:	10-16-2005

 Extracted from multiple routines and made into this subroutine
 8-18-99

	Loads USTR.LSP, DIMSCL.LSP and MKLAYR.LSP


 Style is forced to STANDARD on line 124.  Comment out this line
 to
 use any
 style.

Requires ustr, dimscl, mklayr

TXTST.LSP

TXTSTY.LSP

Modify the text style of a selection set of text entities. (uses USTR UKWORD)
       The only input required is the desired
       text width factor and selection of the text to modify.  There
       is no need to worry about not selecting non-text entities
       because they will be automatically filtered out of the
       selection set.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-7-94
	Edited:		6-7-94

Requires ustr, ukword

TYPN.LSP

Place typical notes from editable list.

	AUTHOR: Henry C. Francis
		425 N. Ashe Street
		SOUTHERN PINES, N.C. 28387
		All rights reserved

	Copyright:	2-14-97
	Edited:		2-14-97

********************************************************************

UANGLE.LSP	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

UBLK.LSP

Update block insertions and preserve attributes. (uses MKLAYR.LSP, UKWORD.LSP)
both are available FREE at http://paracadd.com//lisp.htm

	AUTHOR: Henry C. Francis
           425 N. Ashe Street
	        Southern Pines, NC 28387
	All rights reserved without prejudice.

	Copyright:	12-20-94
	Edited:	5-16-98

Requires mklayr

UBLKA.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 4-22-97 Edited: 4-22-97
Requires ustr, ukword

UCMUDP.LSP

Update profile location and station / elevation text

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail: hfrancis[at-sign]paracadd.com

	Copyright: 1-14-98
	   Edited: 2-21-99

	All rights reserved.

Requires uutils, ukword, ureal

UCMUDP2.LSP	Update profile location and station / elevation text Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires uutils, ukword, ureal

UDIST.LSP	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

Udpipe.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved.

uint.lsp	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

UKWORD.LSP	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

ULBL.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 1997-2001 Edited: 4/9-01
Requires getstyle, gvpno, dimscl, txtsize, ukword, ustr

ULINTBL.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires survang

unaec.lsp

undefs.lsp

Custom startup functions.  Contains combined DDEDIT+DDATTE, layer mgmt functs, logging functs, etc.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 1990-2001
	   Edited: 6-3-2005

==================================================================================================
C:DEBUGSETVAR moved to separate lisp file
==================================================================================================
C:NILBNS moved to separate lisp file
==================================================================================================
undefine C:OPEN and DEFUN C:OPEN moved to separate lisp file
==================================================================================================
CMDOPEN moved to separate lisp file and renamed MYOPENCMD.LSP
==================================================================================================
SAVE_FILE_CHK moved to separate lisp file
==================================================================================================
C:NEXT function moved to separate lisp file
==================================================================================================
C:NEXTDWG function moved to separate lisp file NEXT.LSP
==================================================================================================
C:PREV function moved to separate lisp file NEXT.LSP
==================================================================================================
C:PSPACE function moved to separate lisp file
==================================================================================================
DLOG moved to separate file
==================================================================================================
UNDEFINE qsave and DEFUN QSAVE moved to separate lisp file
==================================================================================================
C:BU renamed to C:BACKUP and moved to separate lisp file
==================================================================================================
C:SAVE moved to separate lisp file
==================================================================================================
C:SAVEAS moved to separate lisp file
==================================================================================================
C:QUIT moved to separate lisp file
==================================================================================================
C:SSNAP moved to separate lisp file
==================================================================================================
C:IBLK moved to separate lisp file
==================================================================================================

Requires dlog, getstyle, gvpno, panpnt

UNLISP.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://www.paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

UNROT.LSP

Unrotate a selection set of entities by the negative of the rotation angle of a block.
(for returning civil plans to "north up" orientation from a rotated north angle)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.
	Copyright:	8-31-95
	Edited:		11-17-2004  (added while loop for null selection error)

Requires UPOINT

unwhite.lsp	written: 2-11-2005

UPDM.LSP
Requires ustr

UPDSTUB.LSP	Update SDSK ??_stub.mnu files with hua customizations Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

UPLAN.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://www.paracadd.com e-mail hfrancis@paracadd.com All rights reserved.
Requires ukword, uint

UPOINT.LSP	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

UREAL.LSP	This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

Ust2.lsp

Update profile location and station / elevation text

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail: hfrancis[at-sign]paracadd.com

	Copyright: 1-14-98
	   Edited: 2-21-99

	All rights reserved.

Requires uutils, ukword, ureal

USTAEL.lsp

Update profile location and station / elevation text
Requirements:
Requires UUTILS.LSP and STAIT.LSP to be loaded.

Drawing must contain:
The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
The profile grid block named "cpp##spl" or "##ppgrid*" or "##spclgrid" or "##spfbgrid"
(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
These profile grid blocks must contain specific attribute tags for stations and elevations,
i.e.:

left side attribute tags (ordered before right side tags)
LB+0, LB+5, LB+10, etc. ordered from highest LB+## to LB+0;
(The total number of these tags is unlimited)

right side attribute tags
RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
(The total number of these tags is unlimited)

station attribute tags
0, +0, 1, +1, 2, +2, etc. from left to right as many as are required
place these in pairs at scaled 100' increments (english), 50m increments (metric).
integer tags are right justified and +integer tags are left justified so that the first character,
typically a plus sign (+), will lay directly under the grid line. This solves justification related
misalignment of labels.
(The total number of these tags is unlimited)

Author:
Henry C. Francis
425 N. Ashe St.
Southern Pines, NC 28387

****************************************************************************

Requires uutils, ukword, ureal, stait

USTR.LSP

 This function is freeware courtesy of the author's of "Inside AutoLisp" for
 rel. 10 published by New Riders Publications. This credit must accompany all
 copies of this
 function.

 USTR User interface string If BIT=1 no null "" input allowed, 0 for none, BIT
 ignored if DEF present. MSG is the prompt string, to which a default string
 is added as  (nil or "" for none), and a : is added. If SPFLAG T, spaces
 are allowed in
 string.

utlay.lsp

Macro to set only SWWM project layers for utilities on.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines" " NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6-6-2001
	   Edited:  11-19-2001

UUTILS.LSP	These functions are freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications. This credit must accompany all copies of this function.

VP.LSP

VPCEN.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires upoint

VPLBENT.LSP

Vplayer freeze layers, or set to a layer by selecting an entity or entities IN THE CURRENT VIEWPORT.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	2-5-96
	Edited:		2-8-96

Requires mklayr

VPLST.LSP

Generate list of permanent user specified Vport #'s with Acad #'s associated
Layer name must contain "VI##" where ## is a two digit user specified
view number.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires uint

VPMNR.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

vpset.lsp

Generate list of permanent user specified Vport #'s with Acad #'s associated
Layer name must contain "VI##" where ## is a two digit user specified
view number.

	Author:
		Henry C. Francis
		425 N. Ashe Street
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Edited: 1-29-2001

Requires uint

VSTAT.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires ukword

vtoh.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:
Requires ureal, upoint

VW_LOG.LSP	Save named views AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 9-4-96 Edited: 9-4-96

WATERPL.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 9-20-99 Edited: 9-20-99

WBCLN.LSP

Make a 'Clean' Wblock of only what is selected.  (Not suitable for Mspace/Pspace drawings) Discard changes!

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

WBINCR.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

WBLKP.LSP

WBP.LSP

Wblock Purge utility (uses LBL UNDEFS-(dlog)) (Not suitable for Mspace/Pspace drawings)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires LBL, dlog

WEBPMT.LSP	Opens WEB PMT for Xerox 8825 Plotter Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

WEDSCR.LSP	Edit *.txt files

WILMNU.LSP
Requires ustr

wipeprom.lsp

moves the cursor to the start of the prompt.
Subsequent PRINC will overwrite the prompt area but only
to the character position it ends on.

	AUTHOR:
		HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387

		All rights reserved.
	email: hfrancis[at-sign]paracadd.com
	web: http://paracadd.com/

  Copyright: 5/25/01
     Edited: 5/25/01

WIREFEN.LSP

Place a custom linetype as an anonymous block. It allows linear as well as curved sections.
      (uses UPOINT UREAL)
       The user toggles
       between the two during placement.  The block entity is not placed in
       the drawing until the user terminates the input with a return
       supplied to the "next point" prompt.  Size of the graphic elements
       is determined by the dimscale.  If the user matches the dimscale
       with the drawing scale the graphics will scale the same on all
       drawings.  The linetype consists of equally spaced X's (nearest
       to 1/2" spacing at scale for the length of arc or line) and lines
       between them that do not touch.  If the variable modf = "EXST" the
       circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-7-95
	Edited:		7-29-2005

Requires dimscl, upoint, ureal

WOODFEN.LSP

Place a custom linetype as an anonymous block. (uses UPOINT)
       The block entity is not placed in
       the drawing until the user terminates the input with a return
       supplied to the "next point" prompt.  Size of the graphic elements
       is determined by the dimscale.  If the user matches the dimscale
       with the drawing scale the graphics will scale the same on all
       drawings.  The linetype consists of equally spaced squares (nearest
       to 1/2" spacing at scale for the length of arc or line) and lines
       between them that do not touch.  If the variable modf = "EXST" the
       circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	6-7-95
	Edited:		7-29-2005

Requires dimscl, upoint

write-xds.lsp
Requires ureal

xa.lsp

 Xref attachment function for standard symbols.  Attach at dimscale, angle=0
 Can preset pinit for PE seal "[pinit]_PE", bname for drawings, else it
 prompts. (uses USTR)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright: 1991-2001
	Edited:	2-28-2001

Requires dimscl, ustr

XA1.LSP

Xref attachment function.  Attach at 0,0; scale=1:1; angle=0�.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Edited:	9-29-2005

Requires mklayr, ustr, either requires or can use Doslib

xbrk.lsp

XELV.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved.
Requires gent, newz

XI1.LSP

Insert at 0,0; scale=1; angle=0. (uses USTR) Can preset bname for drawings, else it prompts.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Edited:	10-26-2005

Requires ustr, either requires or can use Doslib

XING.LSP

Place Culvert Xing profile ellipses, select: Align, inv1, inv2, inters.
	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires ureal

XNGELLIP.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: 3-3-2001 Edited: 3-3-2001
Requires dimscl, ureal

XO1.LSP

Xref overlay function.  Overlay at 0,0; scale=1:1; angle=0�.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Edited:	9-29-2005

Requires mklayr, ukword, ustr, either requires or can use Doslib

XOR1.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

xpts.lsp	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:
Requires ukword

XRDET.LSP	Detach selected XREF. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com e-mail hfrancis[at-sign]paracadd.com All rights reserved.

XREF.LSP
Requires upoint

xrfs.lsp

Lists just names of all XREFs attached, one per line.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://www.paracadd.com
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires or can use Doslib

xrilst.lsp	Lists just names of all XREFs attached, one per line. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

xrlayers.lsp

C:XRLAYERS writes XREF layers to file.  C:RXRLAY sets XREF layer color/linetype from file.
C:RLAYERS strips filename prefix and sets layer color/linetype from file.
If XREF layer linetype is overridden in current drawing but not in settings file, linetype will remain unchanged.
Turn off VISRETAIN, reopen the file, turn on VISRETAIN, then use C:RXRLAY to full effect.

If symbol named write_ltype_needs is not nil, filename ltneeds.txt is written/appended with ltype needs.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

	Copyright:  6-30-99
	   Edited:  6-19-2002

	Added Xref layer settings import (same layer names, different xref name prefix)
	type IMPORTXRL at the command prompt.  May use wildcards preceding "|".
	Do not include "|" (the [shift+backslash] key).

Requires ukword, either requires or can use Doslib, requires ustr

xrpath.lsp	Makes XREF paths relative if possible. Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com All rights reserved. Copyright: Edited:

xrswap.lsp

Open selected XREF for editing. (In which case it is then the active drawing.) (uses UKWORD)

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

Requires ukword, MYOPENCMD, vpset

xrunload.LSP

Detach selected XREF.

	Author:
		Henry C. Francis
		425 N. Ashe St.
		Southern Pines, NC 28387
		Modified 4-25-02 to unload xrefs instead of detach

	http://paracadd.com/
	e-mail hfrancis[at-sign]paracadd.com
	All rights reserved.

XSTATUS.LSP	XSTATUS.lsp Copyright (C) 1991, 1992 by Autodesk, Inc. Permission to use, copy, modify, and distribute this software and

XYDIST.LSP	Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 e-mail hfrancis[at-sign]paracadd.com http://paracadd.com All rights reserved. Copyright: Edited:
Requires GENT, XYSCL

XYREL.LSP	AUTHOR: HENRY C. FRANCIS 425 N. ASHE ST. SOUTHERN PINES, NC 28387 All rights reserved without prejudice. Copyright: 3-16-95 Edited: 3-16-95
Requires ureal

XYSCL.lsp

Modify X, Y, and Z scale factors.  Each is specified individually allowing unequal scaling (or alternatively setting them equal). (uses UREAL)

	AUTHOR: HENRY C. FRANCIS
		425 N. ASHE ST.
		SOUTHERN PINES, NC 28387
              
		All rights reserved without prejudice.

	Copyright:	3-16-95
	Edited:		3-16-95

Requires ukword, ureal

ZE.LSP	Set Z value of a selection set to 0. (uses NEWZ) Author: Henry C. Francis 425 N. Ashe St. Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

ZPOINT.LSP	Author: Henry C. Francis 425 N. Ashe Street Southern Pines, NC 28387 http://paracadd.com/ e-mail hfrancis[at-sign]paracadd.com All rights reserved.

This HTML document was automatically generated by lsplst.lsp fromParaCADD

Drawings used by these routines are here

Updated November 28, 2005

This HTML document was automatically generated by lsplst.lsp from
ParaCADD