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

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

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

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

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

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

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

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

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

;;;Old MHP version modified to draw Storm Drains.
;;;
    

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

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

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

;;;Divides entities with block named TIC.
;;;
    

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;;;Edit *.GRD files
;;;
    

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

;;;Edit *.BAT files
;;;
    

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

;;;Edit *.C files
;;;
    

;;;Edit *.GRD files
;;;
    

;;;Edit *.DAT files
;;;
    

;;;Edit *.DCL files
;;;
    

;;;Edit *.DXF files
;;;
    

;;;Edit *.GRD files
;;;
    

;;;Edit *.FPL files
;;;
    

;;;Edit *.GRD files
;;;
    

;;;Edit *.HLP files
;;;
    

;;;Edit *.IDX files
;;;
    

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

;;;Edit *.LIN files
;;;
    

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

;;;Edit *.LOG files
;;;
    

;;;Edit *.LST files
;;;
    

;;;Edit *.MNU files
;;;
    

;;;Edit *.MNS files
;;;
    

;;;Edit *.OUT files
;;;
    

;;;Edit *.PGP files
;;;
    

;;;Edit *.LSP files
;;;
    

;;;Edit ACADR14.LSP file
;;;
    

;;;Edit *.SCR files
;;;
    

;;;Edit *.shp files
;;;
    

;;;Edit *.SVW files (Saved Views)
;;;
    

;;;Edit *.txt files
;;;
    

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

;;;Edit *.txt files
;;;
    

;;;Edit *.txt files
;;;
    

;;;
;;;
;;;; olasov@cs.columbia.edu

;; EED_SS returns the intersection of selection set &SELSET
;; containing EED with appname &KEY and data value &VAL.
    

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

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

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

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

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

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

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

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

    

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

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

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

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

;;;7/8/2004
    

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

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

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

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

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

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

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

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

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

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

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

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

    

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

;;;Place sewer invert line (profile) from station to station.
    

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

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

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

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

    

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

;;;
;;;
;;;

    

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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