This HTML document was automatically generated by LSPLST.LSP from
PARAGLIDE™

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 others from this listing unless inclusion here is permitted by the author.
There are over 693 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:
support2@paracadd.com

Drawings used by these routines are here
Updated January 24, 2007

100yr.lsp
;;;Place "100yr Flood El=###" and symbol at station and elevation.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-23-99
;;;>		   EDITED: 01-17-2007
;;;
    
Requires: dimscl, gvpno, ustr, uint, getstyle, mklayr, ureal, upoint
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 11/28/2003
;;;>		   EDITED: 11-28-2003
;;;
    
aadgrid.lsp
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-28-96
;;;>		   EDITED: 12-06-2005
;;;
    
Requires: upoint, mklayr
abbr.lsp
;;;
;;;
;;;
;;;
;;;
;;;Requires: UKWORD.LSP, UPOINT.LSP, and UREAL.LSP
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 11-23-2005
;;;
    
Requires: abbr.dcl, ukword, upoint, dimscl, txtsize
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://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-25-2006
;;;
    
Requires: ukword, ustr, either requires or can use Doslib
abrkstr.lsp
;;;Subroutine ;;;Subroutine for applying word wrap to a text string (makes
multiple lines from single line).

;;;Requires two arguments (abrkstr [string] [wrap length])
;;;Stores ;;;Stores resulting strings in symbol names typ_t# where # is the
wrapped text line number.

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-4-98
;;;>		   EDITED: 10-29-2005
;;;
    
abstr.lsp
;;;Apply word wrap to a text string (makes multiple lines from single line).
;;;Uses ABRKSTR.LSP, UINT.LSP.
;;;
;;;Added L2 L3 L4 macros for quick multiline breaks.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-4-98
;;;>		   EDITED: 01-09-2007
;;;
    
Requires: uint, abrkstr
accxes.lsp
;;;Shortcut ;;;Shortcut to startup AccXESTools (Xreox tools for communication
with 8825 scanner/plotter)

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/1/2001
;;;>		   EDITED: 10-21-2002
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/31/00
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: ureal
addtokens.lsp
;;;Takes a READ-LINE string from a lisp file and adds only the user symbols
;;;which are found prior to any ; to the list 'alltokens' if they are not
;;;already in the list.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 01-20-2007
;;;>		   EDITED: 01-22-2007
;;;
    
Requires: or can use Doslib
adgrid.lsp
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-28-96
;;;>		   EDITED: 12-06-2005
;;;
    
Requires: upoint, mklayr
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 ;;;If specified units of precision are greater than the precision of the
original
;;;number ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-19-95
;;;>		   EDITED: 09-27-2005
;;;
    
Requires: uint, ustr
adjsta.lsp
;;;Changes station numbers by specified amount.  Station format, "+" in
;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-02-94
;;;>		   EDITED: 09-27-2005
;;;
    
Requires: ustr, uint, stait
adjtag.lsp
;;;Moves ;;;Moves plan & profile labels (tags) generated by GPDGN (does not
require GPDGN)

;;;
;;;              
;;;
;;;
;;;
;;; Requires: upoint.lsp
;;;
;;;****************************************************************************
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-3-2006
;;;>		   EDITED: 07-20-2006
;;;
    
Requires: upoint
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994-2001
;;;>		   EDITED: 03-02-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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-4-92
;;;>		   EDITED: 11-20-1997
;;;
    
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 ;;;(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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-4-92
;;;>		   EDITED: 07-17-2001
;;;
    
Requires: uint, either requires or can use Doslib
all.lsp
;;;Make ;;;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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-4-92
;;;>		   EDITED: 05-06-2001
;;;
    
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-4-92
;;;>		   EDITED: 07-11-2005
;;;
    
alndata.lsp
;;;Used ;;;Used with GPDGN alignments (gravity or pressure pipelines) to output
takeoff data.

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-30-1999
;;;>		   EDITED: 01-25-2006
;;;
    
Requires: or can use Doslib
amorl.lsp
;;;Reloads AMO after batch plots.
;;;
    
angl.lsp
;;;Construct ;;;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, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-14-93
;;;>		   EDITED: 06-29-2006
;;;
    
Requires: upoint, uangle
angline.lsp
;;;C:ANGL ;;;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, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-14-93
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: upoint, uangle
ansiavp.lsp
;;;Creates ;;;Creates viewport just inside our standard ANSI-A (portrait) size
sheet border.

;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-14-2006
;;;>		   EDITED: 03-14-2006
;;;
    
ansidppvp.lsp
;;;Creates plan viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates ;;;Creates profile viewport on grid indices over our standard ANSI-D
size sheet border

;;;and profile grid block.
;;;
;;;Expects ;;;Expects the border and grid block to be scaled 1:1 with origin at
0.0,0.0 per standard.

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-6-2006
;;;>		   EDITED: 02-07-2006
;;;
    
ansidvp.lsp
;;;Creates viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-6-2006
;;;>		   EDITED: 02-06-2006
;;;
    
ansifppvp.lsp
;;;Creates plan viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;Creates ;;;Creates profile viewport on grid indices over NAVFAC standard
ANSI-F size sheet border

;;;and profile grid block.
;;;
;;;Expects ;;;Expects the border and grid block to be scaled 1:1 with origin at
0.0,0.0 per standard.

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-6-2006
;;;>		   EDITED: 02-06-2006
;;;
    
ansifvp.lsp
;;;Creates viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-6-2006
;;;>		   EDITED: 02-06-2006
;;;
    
archdims.lsp

    
archldrs.lsp

    
arclineinters.lsp

    
arctopl.lsp
;;;Change arcs into polylines.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-1-98
;;;>		   EDITED: 05-06-2001
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-18-99
;;;>		   EDITED: 05-06-2001
;;;
    
ascii.lsp
;;;Writes ASCII character set to the screen and to a file.
    
ase.lsp

    
asin.lsp
;;;subroutine ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-8-97
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: upoint
atext.lsp
;;;Append TEXT to strings
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9/9/98
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: ustr, ukword
attcol.lsp
;;;Change ;;;Change attribute's thickness (attributes and text with thickness
other than zero may

;;;be ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-2001
;;;>		   EDITED: 09-26-2002
;;;
    
Requires: ustr, uint
atthk.lsp
;;;Change ;;;Change attribute's thickness (attributes and text with thickness
other than zero may

;;;be ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-2001
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: ustr, ureal
attht.lsp
;;;Change attribute's height
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-2001
;;;>		   EDITED: 01-25-2006
;;;
    
Requires: ustr, ureal, ukword
attincr.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-25-2001
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-10-2005
;;;
    
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
;;; *******************************************************************


; Oldatts sets "old" to the list of old Attributes for each Block.
; The list does not include constant Attributes.

    
attreplc.lsp
;;;KETIV - Globally change the value of an attribute
;;;
;;; ATTREPLC.LSP
;;;
;;; 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
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;;>		   EDITED: 04-08-1997
;;;
    
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1997-2004
;;;>		   EDITED: 11-17-2005
;;;
    
attupdm.lsp
;;;Multiple ;;;Multiple attribute update subroutine (attupd [blockname]
[attribname] [newvalue])

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 05-06-2001
;;;
    
attupdt.lsp
;;;Attribute ;;;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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1997-2004
;;;>		   EDITED: 01-15-2004
;;;
    
attxtj.lsp
;;;Modify ;;;Modify the text justification of a selection set of attributes.
(uses UKWORD UPOINT)

;;;The ;;;The only input required is the desired text justification and
selection of the

;;;attributes ;;;attributes to modify.  There is no need to worry about
selecting non-attribute

;;;entities ;;;entities because they will be automatically filtered out of the
selection set.

;;;DO ;;;DO NOT select more than one "common note group".  All of the attributes
selected
;;;are ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-12-94
;;;>		   EDITED: 06-13-2004
;;;
    
Requires: ukword, upoint
autod.lsp
;;;Collect ;;;Collect survey points from *.PRN files which have two digit
numbers as description keys

;;;for ;;;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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/19/94
;;;>		   EDITED: 01-25-2006
;;;
    
Requires: ustr
autodsi.lsp
;;;Collect ;;;Collect survey points from *.TXT files which have two digit
numbers as description keys

;;;for ;;;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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/19/94
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: ustr
autoload.lsp
;;;Customized Section of "AutoLoad LISP Applications" from ACADr14.LSP

    
Requires: mklayr
backup.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/19/94
;;;>		   EDITED: 11-08-2005
;;;
    
Requires: check_for_doslib, either requires or can use Doslib
bandj.lsp
;;;Automatic placement of bore & jack casing pipe in profile.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-30-96
;;;>		   EDITED: 10-30-1998
;;;
    
Requires: dimscl, mklayr, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-30-96
;;;>		   EDITED: 04-08-1997
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-30-96
;;;>		   EDITED: 08-15-2001
;;;
    
bflg.lsp
;;;Place ;;;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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-6-00
;;;>		   EDITED: 05-17-2001
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-30-96
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: mklayr, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: gvpno, txtsize, getstyle, mklayr, upoint, bub
blh.lsp
;;;Toggle heavy/light "Bill Lester" PE Seal, BLHeavy BLLight
;;;
    
blkcolt.lsp
;;;Force ;;;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 ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/04/2001
;;;>		   EDITED: 06-06-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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/04/2001
;;;>		   EDITED: 05-06-2001
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/04/2001
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: ustr
blkscl.lsp
;;;Scale Block occurances, one or many.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: ureal, ustr
blws.lsp

    
bplot2k.lsp
;;;Batch plotting Dialog application.  Creates a script for batch operations.
;;;Script only check box omits plot instructions from script for scripting
;;;anything without plotting.  Requires DOSLIB 2K
;;;
;;;
;;;
;;;
;;;Added ;;;Added ability to have DWG name (w/o ext) written for script-only
output filename

;;;If ;;;If (EQ ins_fname 1), DWG name will be written between pre & post script
files.
;;;
;;;	1-16-2004:	Fixed prob. in funct. (setone) where long filename
;;;			(< 48 chars w/o path) caused infinite loop.
;;;
;;;The following is an example of code necessary for plotting all layouts:
;;;(foreach n (layoutlist)
;;;(COMMAND ;;;(COMMAND "-PLOT" "Yes" n "TIFF Version 6 (CCITT G4 2D
Compression)" "34X22 300dpi (10200.00 x 6600.00 Pixels)" "Landscape" "No"
"Window" (getvar"limmin") (getvar"limmax") "300=1" "Center" "Y" "TIFF
300dpi.ctb" "Y" "N" "Y" "N")

;;;(COMMAND ;;;(COMMAND
(strcat(substr(STRCAT(getvar"dwgprefix")"Plots\\34x22\\"(getvar"dwgname"))1(-(strlen(STRCAT(getvar"dwgprefix")"Plots\\34x22\\"(getvar"dwgname")))4))"-"
n) "Y" "Y")

;;;)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-13-97
;;;>		   EDITED: 12-20-2006
;;;
    
Requires: bplot2k.dcl, princdebugstrs, browser_help, plbl, ureal, myqsave, dlog, etransfiles, ukword, either requires or can use Doslib
bplots.lsp
;;;Batch Plot subroutine called from Dialog BPLOT.LSP,  Writes/uses script file.
;;;Uses DOSLib v3.0 for DOS file and directory operations,
;;;freeware courtesy of Robert McNeel & Associates.
;;;;Requires: PLBL.LSP, BPLOT.LSP, BPLOT.DCL, DLOG.LSP, PLTSTAMP.DWG
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-20-94
;;;>		   EDITED: 04-25-2002
;;;
    
Requires: ukword, plbl, ureal, myqsave, pltsiz, dlog, bplot2k, either requires or can use Doslib
bplxl.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 02-10-2002
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-13-2001
;;;>		   EDITED: 10-06-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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-13-95
;;;>		   EDITED: 05-06-2001
;;;
    
Requires: ustr, ukword, wblkp
br@.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-16-2003
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-30-95
;;;>		   EDITED: 05-06-2001
;;;
    
brat.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-28-2004
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-19-95
;;;>		   EDITED: 08-27-2001
;;;
    
Requires: uint, ustr, ukword
brkl.lsp
;;;Place breakline symbol as a polyline.
;;;
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-16-94
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, upoint
browser_help.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/27/2002
;;;>		   EDITED: 04-03-2005
;;;
    
bs.lsp
;;;Rescale occurances of a block about insertion points.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 10-29-2003
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 04-13-1997
;;;
    
Requires: ureal
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, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-4-92
;;;>		   EDITED: 10-06-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-27-94
;;;>		   EDITED: 04-08-1997
;;;
    
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995
;;;>		   EDITED: 09-30-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-17-95
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: dimscl, gvpno, getstyle, mklayr, ukword
bubfix.lsp
;;;Replaces ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 09-14-2001
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-27-94
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: dimscl, upoint, mklayr, gvpno
bubupd.lsp
;;;bubble ;;;bubble update subroutine (bubupd [blockname] [old_sdname]
[new_sdname] [old_callon] [new_callon])

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-19-2004
;;;>		   EDITED: 02-19-2004
;;;
    
bwbp.lsp
;;;Batch Wblock Purge, used by BATP.LSP, uses LBL and DLOG
;;;
    
Requires: dlog
calpt.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-19-2004
;;;>		   EDITED: 08-18-1999
;;;
    
casepipe.lsp

    
Requires: ureal, ukword
cdfcon.lsp
;;;Tool ;;;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"
;;;
;;;
;;;
    
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 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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 07-11-2005
;;;
    
Requires: uint, gvpno, txtsize, getstyle, mklayr, upoint, abrkstr, either requires or can use Doslib
ce.lsp
;;;Change selection set color, linetype to BYLAYER and lineweight to Default.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 01-08-2007
;;;
    
Requires: ukword
ce2b.lsp
;;;Change entity selection set color, linetype, and/or lineweight to BYLAYER.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 01-09-2007
;;;
    
Requires: ukword
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-10-93
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: ukword, dimscl, upoint, mklayr
check_for_doslib.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-10-93
;;;>		   EDITED: 07-11-2006
;;;
    
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, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-22-91
;;;>		   EDITED: 04-08-1997
;;;
    
chkapps.lsp

    
chklasp.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-01-2003
;;;
    
chklst.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: ukword
chkqsave.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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 05-06-2001
;;;
    
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
;;;Camp Lejeune 40x28 (ANSI F Size Sheet) Title Block 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://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 09-29-2005
;;;
    
Requires: or can use Doslib
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
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-11-1992
;;;>		   EDITED: 12-14-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-95
;;;>		   EDITED: 07-27-2005
;;;
    
Requires: dimscl, upoint, ureal
clg.lsp
;;;CLG Doctor main lsp file (a dialog CLG management tool).
;;;
;;;
;;;
;;;
;;;***************************** NOTICE *******************************
;;;Use of this software is NOT free!  License to use this software
;;;If you obtained this file by download from the internet after
;;;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!
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1997-2004
;;;>		   EDITED: 01-15-2007
;;;
    
Requires: clg.dcl, browser_help, ukword, either requires or can use Doslib
clg_color.lsp
;;;C:CLG_COLOR ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 04-27-2004
;;;
    
Requires: clg_color.dcl, mklayr
clgentof.lsp
;;;Layer on/off/freeze/thaw tool keyed to CLG fields.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-10-94
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: ustr
cloud.lsp
;;;Place a revision cloud.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 05-17-2001
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: ssx
cmdopen.lsp
;;;
;;;
;;;
;;;
;;;(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
;;;  (SETQ DEFUN-Q DEFUN)
;;;  nil
;;;) ;_ end of IF
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 06-27-2005
;;;
    
Requires: dlog
cmdwait.lsp

    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 12-11-2006
;;;
    
Requires: cnl.dcl, browser_help, txtsize, gvpno, dimscl, mklayr, upoint, archldrs
cntag.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: dimscl, upoint, ustr
color.lsp

    
comparefiles.lsp
;;;Writes ;;;Writes comparison of two autolisp (or other ASCII) files to a file
named -.

;;;in the same folder as .
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-10-2006
;;;>		   EDITED: 08-10-2006
;;;
    
Requires: or can use Doslib
condattupd.lsp
;;;Conditional ;;;Conditional Attribute update subroutine (attupd [blockname]
[attribname] [newvalue] [condition] [testvalue])

;;;checks ;;;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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 10-07-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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-31-98
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: uint, dimscl, mklayr, upoint, 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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-31-98
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: uint, dimscl, mklayr, upoint
consolpl.lsp

    
Requires: ureal
consolpt.lsp

    
Requires: ureal
cpl.lsp
;;;Copy most entities from Blocks or XREFs.
;;;
;;;
;;;
;;;
;;;	Requirements: ukword.lsp, transpt.lsp
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1996-2000
;;;>		   EDITED: 02-14-2005
;;;
    
Requires: ukword, transpt, ustr
cplots.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1996-2000
;;;>		   EDITED: 12-27-2005
;;;
    
Requires: or can use Doslib
cppdviews.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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-2-2000
;;;>		   EDITED: 07-11-2006
;;;
    
Requires: cstmp.dcl, dimscl, ustr, browser_help, either requires or can use Doslib
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-7-94
;;;>		   EDITED: 08-17-2005
;;;
    
Requires: ukword
ctol.lsp
;;;Copy a selection set to a specified layer.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-19-96
;;;>		   EDITED: 04-08-1997
;;;
    
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-11-1992
;;;>		   EDITED: 10-31-2005
;;;
    
Requires: dimscl, txtsize, getstyle, ukword, upoint, mklayr
custom-init.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-11-1992
;;;>		   EDITED: 06-07-2005
;;;
    
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: mklayr, dlog
da.lsp
;;;Places direction arrow
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-16-98
;;;>		   EDITED: 03-25-2003
;;;
    
Requires: mklayr, dimscl, upoint
darrow.lsp
;;;Places direction arrow
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-16-98
;;;>		   EDITED: 08-17-2006
;;;
    
Requires: mklayr, dimscl, upoint
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-5-96
;;;>		   EDITED: 04-08-1997
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 09-02-1997
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 08-18-1999
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-20-94
;;;>		   EDITED: 08-18-1999
;;;
    
ddhtext.lsp
;;;Place "hiding" objects 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
;;;
;;;
;;;
;;;	disabled creation of 3Dfaces - now makes HDBOX inserts only.
;;;	added automatic management of UCS.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: ddhtext.dcl, gvpno, browser_help, vpset, dimscl, pttxt, ureal, ustr, paramask
ddupent.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-29-2004
;;;
    
debugsetvar.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 06-03-2005
;;;
    
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
;;;       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.
;;;
;;;
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995-2005
;;;>		   EDITED: 02-28-2005
;;;
    
delaeccdup.lsp
;;;Deletes ;;;Deletes any number of equal AECC_POINT objects from the drawing
leaving just one instance of each.

;;;Only ;;;Only the description, elevation , northing, and easting are compared
for equality.

;;;A fuzz factor of 0.001 is applied to these values.
;;;The numbers can be different without failing the equality check.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-12-2006
;;;>		   EDITED: 01-26-2006
;;;
    
delbak.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-12-2006
;;;>		   EDITED: 12-27-2005
;;;
    
Requires: or can use Doslib
delduplin.lsp

    
deldwg.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-12-2006
;;;>		   EDITED: 12-27-2005
;;;
    
Requires: or can use Doslib
delimin.lsp
;;;KETIV - Insert delimited ascii text files into a drawing.
;;; DELIMIN.LSP
;;;
;;; 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
;;;--------------------------------------------------
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;;>		   EDITED: 10-22-2001
;;;
    
dellayer.lsp
;;;Deletes all entities on specified layers.  Accepts wildcards.
;;; --------------------------------------------------------------------------;
;;;   DELLAYER.lsp
;;;
;;;   Permission to use, copy, modify, and distribute this software
;;;   for any purpose and without fee is hereby granted, provided
;;;   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.
;;;
;;; --------------------------------------------------------------------------;

    
delptpl.lsp
;;;Delete LWpolylines with only two coincident vertices (point polylines).
;;;Explodes all other two vertex LWpolylines to make them Lines.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 01-10-2006
;;;
    
Requires: ukword
depth.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-12-2000
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: ustr, ukword
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,
;;;; please keep this notice intact

    
diesel.lsp
;;;Diesel test function (see customization manual)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 08-18-1999
;;;
    
dimaro.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-23-93
;;;>		   EDITED: 08-18-1999
;;;
    
dims.lsp
;;;Put hiding solids over dimension text.
;;;
;;;
;;;
;;;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.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 01-25-2005
;;;
    
dimscl.lsp
;;;
;;;
;;;
;;;
;;;
;;;	Fixed prev selection set from getting wiped by viewport selection.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/26/96
;;;>		   EDITED: 08-17-2005
;;;
    
Requires: ureal
dimseg.lsp
;;;Sets ;;;Sets dimstyles ENGRDIMS and ENGRLDRS and updates all dimensions to
zero decimal places.

;;;All ;;;All dimensions greater than max. distance for dimension leaders are
updated to be

;;;regular ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/26/96
;;;>		   EDITED: 11-07-2005
;;;
    
Requires: engrldrs, engrdims
dimstd.lsp
;;;;
;;;;
;;;;
;;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/26/96
;;;>		   EDITED: 02-13-2003
;;;
    
Requires: dimscl
dimucs.lsp
;;;
;;;
;;;
;;;
;;;****************************************************************************
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 01-18-2007
;;;
    
Requires: tsnap, mklayr, ukword, engrldrs, engrdims, gvpno, upoint
dip.lsp
;;;Old MHP version modified to draw Storm Drains.
;;;
    
Requires: 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-30-96
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: mklayr, ukword, upoint, ureal
dirs.lsp
;;;Generates ;;;Generates a directory and file listing for the specified
drive-directory string.

;;;Note: drvdirstr must be in the form returned by (getvar"dwgprefix").
;;;Creates ;;;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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1/28/98
;;;>		   EDITED: 05-20-2001
;;;
    
dis.lsp

    
disoff.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-12-2002
;;;>		   EDITED: 03-12-2002
;;;
    
Requires: dis
div.lsp
;;;Divides entities with block named TIC.
;;;
    
Requires: uint
dlog.lsp
;;;
;;;
;;;
;;;
;;;
;;;Writes activity lines to C:\ACAD\DWG_EDIT.LOG
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-2001
;;;>		   EDITED: 07-11-2006
;;;
    
Requires: proj, either requires or can use Doslib
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]
;;;A,0,-.15,[ABAN,ltypeshp.shx,x=-.1,y=-.1,s=.2],0,[DEMOL,ltypeshp.shx,x=-.1,y=.1,s=.2]
;;;
;;;SHAPE ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-5-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, ukword
dogl.lsp
;;;Dogleg existing vertical leaders and text in profiles.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-95
;;;>		   EDITED: 04-08-1997
;;;
    
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: ukword, uint
draweroc.lsp

    
Requires: mklayr, dimscl, gvpno, ukword, stait
drawgrid.lsp

    
Requires: ureal, upoint, mklayr
driveway.lsp
;;;Creates 3D breakline between selected AECC_POINT objects
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 05-24-2006
;;;
    
Requires: upoint, ukword, uint
drtl.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-23-2002
;;;>		   EDITED: 10-24-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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-23-2002
;;;>		   EDITED: 08-25-2006
;;;
    
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.
;;;
;;;              
;;;
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-30-93
;;;>		   EDITED: 06-29-2006
;;;
    
Requires: dimscl, gvpno, ukword, ustr, getstyle, mklayr
dtxt.lsp
;;;Custom DTEXT. Auto sets layer attribs and text size. LINE-under-last option.
;;;
;;;              
;;;
;;;
;;;Added ;;;Added explicit load for upoint, ukword, uangle (no longer dependent
upon external load).

;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-23-96
;;;>		   EDITED: 06-13-2005
;;;
    
Requires: mklayr, txtsize, upoint, ukword, dimscl, gvpno, uangle
dump.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-23-96
;;;>		   EDITED: 08-18-1999
;;;
    
dumplst.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 11-28-2001
;;;
    
dv0.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 09-10-2002
;;;
    
Requires: tsnap
dwgndx.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: delimin
dxfix.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-22-2001
;;;
    
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: ukword, uint
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
;;;       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.
;;;
;;;
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-3-95
;;;>		   EDITED: 07-26-2004
;;;
    
Requires: ded, dimscl
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
;;;       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.
;;;
;;;
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-3-95
;;;>		   EDITED: 06-29-2004
;;;
    
Requires: ded, dimscl, ustr
ed2000.lsp
;;;Edit *.LSP files
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994
;;;>		   EDITED: 07-23-2004
;;;
    
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
;;;	above commands it will prompt to select again.
;;;
;;;
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;
;;;==================================================================================================
;;;==================================================================================================
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 10-3-95
;;;>		   EDITED: 04-22-1997
;;;
    
Requires: ustr
edbat.lsp
;;;Edit *.BAT files
;;;
    
edbka.lsp
;;;Edit *.BKA files
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994
;;;>		   EDITED: 07-23-2004
;;;
    
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
;;;
    
edfpl.lsp
;;;Edit *.FPL 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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994
;;;>		   EDITED: 07-23-2004
;;;
    
Requires: or can use Doslib
edlin.lsp
;;;Edit *.LIN files
;;;
    
edlisp.lsp
;;;Edit *.LSP files
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1994
;;;>		   EDITED: 07-23-2004
;;;
    
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 ;;;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
;;;
;;;
;;;; olasov@cs.columbia.edu

;; EED_SS returns the intersection of selection set &SELSET
;; containing EED with appname &KEY and data value &VAL.
    
elpt.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995
;;;>		   EDITED: 08-18-1999
;;;
    
emake.lsp
;;;Test func to make anonymous blocks.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995
;;;>		   EDITED: 08-18-1999
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2000
;;;>		   EDITED: 12-08-2006
;;;
    
Requires: ukword, ustr, ureal
engrangs.lsp

    
engrdims.lsp

    
engrldrs.lsp

    
engrldrsob.lsp

    
entlst.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2000
;;;>		   EDITED: 08-18-1999
;;;
    
ents.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-12-2000
;;;
    
epnt.lsp
;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN
;;;
;;;
;;;	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).
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1995  Henry C. Francis
;;;>		   EDITED: 04-12-1997
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5/25/01
;;;>		   EDITED: 09-10-2001
;;;
    
Requires: wipeprom
etransfiles.lsp

    
Requires: or can use Doslib
exgrd.lsp

    
find.lsp
;;;Dialog - Find files by name.
;;;
;;;
;;;
;;;********************************************************************

    
Requires: find.dcl, either requires or can use Doslib
findla.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-30-97
;;;>		   EDITED: 08-18-1999
;;;
    
fixbars.lsp

    
fixbm.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-16-2001
;;;>		   EDITED: 03-16-2001
;;;
    
Requires: ustr, ureal
fixby.lsp

    
Requires: or can use Doslib
fixdca.lsp
;;;Find and remove extra Softdesk PROJ_NAM blocks.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 04-08-1997
;;;
    
Requires: uint
fixdims.lsp

    
fixpattlayers.lsp

    
fixraw.lsp
;;;This ;;;This was written to create a batch file to make folders from CST 2004
Masterformat listing.

;;;7/8/2004
    
fixsubs.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-22-94
;;;>		   EDITED: 12-27-2005
;;;
    
Requires: or can use Doslib
fixtndat.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-30-2001
;;;
    
flip.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 02-26-2005
;;;
    
flipa.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 10-03-2002
;;;
    
Requires: uangle
flipdim.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 07-12-2006
;;;
    
Requires: ukword
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 7-9-1999
;;;>		   EDITED: 07-23-2004
;;;
    
fmlay.lsp
;;;Construct a line at an angle from selected line.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-14-93
;;;>		   EDITED: 07-19-1999
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-14-93
;;;>		   EDITED: 10-22-2001
;;;
    
getel.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2/10/00
;;;>		   EDITED: 01-09-2007
;;;
    
Requires: ureal, upoint, stait, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-18-94
;;;>		   EDITED: 07-21-2005
;;;
    
glbl.lsp
;;;label grid lines and a viewport.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-2004
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: lamacs, mklayr, gvpno, txtsize
gof.lsp
;;;Layer macros GOF=grid off, GON=grid on, PTOF, PTON, PTFRZ, PTTHW=point....
;;;
;;;
;;;
;;;
;;;******** THIS LISP HAS BEEN RETIRED **********
;;;******** SEE LAMACS.LSP **********
;;;(DEFUN c:gof (/)
;;;  (COMMAND ".layer"
;;;           "off"
;;; ;;;          
"*gridd*,*gride*,*gridf*,c-profggrid,c-profhgrid,*vi00dgrid,*vi00egrid,*vi00ggrid,*vi00hgrid,14,15,1,5"
;;;           ""
;;;  ) ;_ end of command
;;;) ;_ end of defun
;;;(DEFUN c:pgof (/)
;;;  (COMMAND ".layer"
;;;           "off"
;;; ;;;          
"*vi00dgrid,*vi00egrid,*vi00fgrid,*vi00ggrid,*vi00hgrid,c-profggrid,c-profhgrid,14,15,1,5"
;;;           ""
;;;  ) ;_ end of command
;;;) ;_ end of defun
;;;(DEFUN ;;;(DEFUN c:groF (/) (COMMAND ".layer" "oF"
"*fgrid,*gridd*,*gride*,*gridf*,*grid,13,14,15,1,5" ""))

;;;(DEFUN ;;;(DEFUN c:gon (/) (COMMAND ".layer" "on"
"*gridd*,*gride*,*gridf*,14,15,1,5" ""))

;;;(DEFUN c:pgon (/) (COMMAND ".layer" "on" "*grid,*vi00?grid,14,15,1,5" ""))
;;;(DEFUN ;;;(DEFUN c:gron (/) (COMMAND ".layer" "on"
"*fgrid,*gridd*,*gride*,*gridf*,*grid,13,14,15,1,5" ""))

;;;(DEFUN c:ptof () (COMMAND "._layer" "off" "*desc,*elev,*pnts,*topo7symb" ""))
;;;(DEFUN c:pton ()
;;; ;;;  (COMMAND "._layer" "on" "*desc,*elev,*pnts,*topo7symb" "thaw"
"*desc,*elev,*pnts,*topo7symb" "")

;;;) ;_ end of defun
;;;(DEFUN ;;;(DEFUN c:ptfrz () (COMMAND "._layer" "freeze"
"*desc,*elev,*pnts,*topo7symb" ""))

;;;(DEFUN c:ptthw ()
;;; ;;;  (COMMAND "._layer" "on" "*desc,*elev,*pnts,*topo7symb" "thaw"
"*desc,*elev,*pnts,*topo7symb" "")

;;;) ;_ end of defun
;;;(DEFUN c:exof (/) (COMMAND "._layer" "of" "*|*" ""))
;;;(DEFUN c:exon (/) (COMMAND "._layer" "on" "*|*" ""))
;;;(DEFUN c:txtof (/) (COMMAND "._layer" "of" "*txt,*adjpar,*owner" ""))
;;;(DEFUN c:txton (/) (COMMAND "._layer" "on" "*txt,*adjpar,*owner" ""))
;;;(DEFUN c:insof (/) (COMMAND "._layer" "f" "*-ins" ""))
;;;(DEFUN c:inson (/) (COMMAND "._layer" "t" "*-ins" ""))
;;;(DEFUN c:erof (/) (COMMAND "._layer" "of" "*eroc*" "" ""))
;;;(DEFUN c:eron (/) (COMMAND "._layer" "on" "*eroc*" ""))
;;;(DEFUN c:wdof (/) (COMMAND "._layer" "of" "*wdln*" ""))
;;;(DEFUN c:wdon (/) (COMMAND "._layer" "on" "*wdln*" ""))
;;;(DEFUN c:ctof (/) (COMMAND "._layer" "of" "*CONT-MJR*,*CONT-MNR*" ""))
;;;(DEFUN c:cton (/) (COMMAND "._layer" "on" "*CONT-MJR*,*CONT-MNR*" ""))
;;;(DEFUN ;;;(DEFUN c:ppof (/) (COMMAND "._layer" "of" "*[a c e f g i l m o p q
s t z]?????[1 2 3 4 5 6 7 8 9 a b c d e f g h i][n d f r][s d]?#P*" ""))

;;;(DEFUN ;;;(DEFUN c:ppon (/) (COMMAND "._layer" "on" "*[a c e f g i l m o p q
s t z]?????[1 2 3 4 5 6 7 8 9 a b c d e f g h i][n d f r][s d]?#P*" ""))

;;;(DEFUN c:hdof (/) (COMMAND "._layer" "of" "*HIDE*IMAGE*" ""))
;;;(DEFUN c:hdoN (/) (COMMAND "._layer" "oN" "*HIDE*IMAGE*" ""))

;|«Visual ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil
nil nil T T)

    
gradebreak.lsp
;;;Creates 3D breakline between selected AECC_POINT objects
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 05-25-2005
;;;
    
Requires: 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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 08-18-1999
;;;
    
gstr.lsp
;;;"Glue" text strings.  All adopt first's properties.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 08-23-2005
;;;
    
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12/15/2004
;;;>		   EDITED: 06-15-2006
;;;
    
Requires: uint, ukword
hatbnd.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2005
;;;>		   EDITED: 04-29-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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, gvpno
hclndx.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 08-18-1999
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 01-04-2006
;;;
    
Requires: mklayr, dimscl, gvpno, upoint, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, gvpno, ukword, upoint, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, gvpno, upoint, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 01-04-2006
;;;
    
Requires: mklayr, dimscl, gvpno, upoint, pttxt
hdchar.lsp
;;;Create 3DFACEs under CMUD title block.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 07-11-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: 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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 07-11-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, dimscl, gvpno, upoint, ureal, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-26-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: ukword, pttxt, ureal, ustr
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 08-15-1997
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 06-08-2000
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-15-94
;;;>		   EDITED: 08-18-1999
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-22-96
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: ukword, ureal, upoint, mklayr
hrailp.lsp

    
Requires: upoint, mklayr
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 8-22-96
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: gvpno, dimscl
hua_a_sheet.lsp
;;;HUA 8-1/2x11 (ANSI A Size Sheet) Title Block 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://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/14/2006
;;;>		   EDITED: 03-14-2006
;;;
    
Requires: or can use Doslib
hua_d_sheet.lsp
;;;HUA 34x22 (ANSI D Size Sheet) Title Block 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://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/14/2006
;;;>		   EDITED: 12-14-2006
;;;
    
Requires: or can use Doslib
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 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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-22-97
;;;>		   EDITED: 08-28-2006
;;;
    
Requires: or can use Doslib
iblk.lsp
;;;
;;;
;;;
;;;
;;;Scaled block insertion routine (dimscale)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3/14/2006
;;;>		   EDITED: 09-02-2006
;;;
    
Requires: mklayr, dimscl, ustr
ids_edit.lsp
;;;Dialog ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2/1995
;;;>		   EDITED: 11-17-2005
;;;
    
Requires: getstyle, tnote, browser_help
ii.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 3-3-2001
;;;>		   EDITED: 03-03-2001
;;;
    
imagetile.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-19-2000
;;;
    
img.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2004
;;;>		   EDITED: 01-25-2006
;;;
    
Requires: upoint, ureal, ukword, gvpno
imgclip.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-19-2003
;;;
    
Requires: upoint, ureal, uangle, uint
inctxt.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
    
initandsdichk.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 07-12-2005
;;;
    
inslay.lsp
;;;Display all layers containing specified block inserts.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
    
Requires: ustr
inslayr.lsp
;;;C:TXTLAYR ;;;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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-30-99
;;;>		   EDITED: 09-26-2002
;;;
    
int.lsp
;;;Projected intersection point of lines and polylines. (transparent too)
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-13-96
;;;>		   EDITED: 04-08-1997
;;;
    
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, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 12-8-95
;;;>		   EDITED: 05-23-1999
;;;
    
isovp.lsp
;;;Isolate current Vport annotation (freeze other layers *vi0#* using VPLAYER)
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 5-28-96
;;;>		   EDITED: 12-04-1999
;;;
    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 9-19-95
;;;>		   EDITED: 09-29-1998
;;;
    
Requires: uint, ukword
itr.lsp
;;;EAGLE POINT and DCA point block usage subroutine. (see PTSYM, PTLIN, ITREE)
;;;
;;;
;;;

    
Requires: ukword
itree.lsp
;;;EAGLE ;;;EAGLE POINT and DCA scaled tree (symbol) placement at points. (reads
POINT blocks)

;;;
;;;
;;;

    
Requires: itr, ustr, uint
kbnd.lsp
;;;Create Pline in Mspace matching current Vport boundary and hatch inside.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-2004
;;;>		   EDITED: 10-06-2005
;;;
    
Requires: mklayr, vpset, isovp
lafrz.lsp
;;;Freeze layers of a selection set of entities.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-26-95
;;;>		   EDITED: 04-08-1997
;;;
    
lamacs.lsp
;;;Layer macros
;;;"GOF" ;;;"GOF" "GON" "PGOF" "PGON" "GROF" "GRON" "PTOF" PTON" "PTFRX" "PTTHW"
"TOPON" "TOPOF"

;;;"WDLNOF" ;;;"WDLNOF" "WDLNON" "WDON" "WDOF" "XRON" "XROF" "SVOF" "SVON"
"PATOF" "PATON" "RWOF"

;;;"EASOF" ;;;"EASOF" "EPOF" "TPOF" "EXOF" "TXTOF" "INSOF" "EROF" "CTOF" "PPOF"
"HDOF" "AOF" "AON"

;;;"RWON" ;;;"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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-26-95
;;;>		   EDITED: 06-20-2006
;;;
    
Requires: uint
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 St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-5-96
;;;>		   EDITED: 12-06-2005
;;;
    
Requires: ukword
larbyent.lsp
;;;KETIV - Set, turn off, or freeze a layer based upon a seleced entity.
;;; LARBYENT.LSP
;;;
;;; KETIV Technologies, Inc.
;;; 6645 NE 78th Court #C2
;;; Portland, OR  97218
;;;
;;; Layer Group: None
;;;
;;; Menu Location: Tablet N1, N2, N3
;;;
;;; Purpose:  To set, turn off, or freeze a layer based upon a seleced entity
;;;
;;; Prompts:  Off/Freeze/:
;;;            |     |     |
;;;            |     |     Select entity:
;;;            |     Select entity:
;;;            |       [If an entity on the current was selected]
;;;            |       Cannot freeze layer "name".  It is the CURRENT layer.
;;;            Select entity:
;;;              [If an entity on the current was selected]
;;;              Really want layer "name" (the CURRENT layer) off? :
;;;
;;; Assumptions/Limitations: NONE
;;;
;;;-------------------------------------------------
;;; Initialize memory and important system variables
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;;>		   EDITED: 04-08-1997
;;;
    
laybent.lsp
;;;Turn off layers, freeze layers, or set to a layer by entity selection.
;;;
;;;
;;;
;;;
;;;
;;;	Made C:SHOLAY a separate file
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-5-96
;;;>		   EDITED: 08-27-2006
;;;
    
Requires: ukword, mklayr, 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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-28-96
;;;>		   EDITED: 01-31-2003
;;;
    
layoutplt.lsp

    
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".
;;;		
;;;
;;;                The items are, in order,
;;; ;;;       Filespec:          (path\filename)          (dwgprefix + dwgname +
.DWG)
;;;       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)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1991-1995
;;;>		   EDITED: 02-15-2006
;;;
    
Requires: dimscl, mklayr, either requires or can use Doslib
lbld.lsp
;;;Label lines and polylines with segment distance.
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1996-2001
;;;>		   EDITED: 12-21-2006
;;;
    
Requires: mklayr, dimscl, ukword, ureal, getstyle, gvpno, uint, srvang, remlt
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1996-2001
;;;>		   EDITED: 05-17-2001
;;;
    
Requires: dimscl, mklayr
lclt.lsp
;;;save layer name, color, linetype.
;;;
;;;
;;;              
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-28-96
;;;>		   EDITED: 08-18-1999
;;;
    
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
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-28-96
;;;>		   EDITED: 07-23-2004
;;;
    
ldrfix.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-10-2004
;;;
    
Requires: mklayr, dimscl
linedraw.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 02-06-2006
;;;
    
Requires: linedraw.dcl, mklayr
linesum.lsp
;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4-8-2005
;;;>		   EDITED: 04-08-2005
;;;
    
lisp_sum.lsp

    
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
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 2-8-2002
;;;>		   EDITED: 06-03-2005
;;;