;;;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
;;;
    

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

;;;
;;;
;;;>	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
;;;
    

;;;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: 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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;Reloads AMO after batch plots.
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

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

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

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-25-2001
;;;
    

;;;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
;;;
    

;;;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
;;;
    

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

    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;Customized Section of "AutoLoad LISP Applications" from ACADr14.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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;Toggle heavy/light "Bill Lester" PE Seal, BLHeavy BLLight
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 02-10-2002
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 05-16-2003
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-28-2004
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;Batch Wblock Purge, used by BATP.LSP, uses LBL and DLOG
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;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"
;;;
;;;
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;Change entity color, one or many
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 12-01-2003
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 08-18-1999
;;;
    

;;;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
;;;
    

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

    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;
;;;
;;;(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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;
;;;
;;;
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

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

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 10-29-2004
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 06-03-2005
;;;
    

;;;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
;;;
    

;;;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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;
;;;
;;;>	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
;;;
    

;;;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
;;;
    

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

    

;;;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
;;;
    

;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 04-12-2000
;;;