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 webster@paracadd.com

Drawings used by these routines are here

Updated November 28, 2005

100YR.lsp
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

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

	Copyright: 1-14-98
	   Edited: 9-22-2005

****************************************************************************
    
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.