;;make sure vl- functions work

    

;;;From post 'Re: (command "open".....) for AutoCAD 2K' on 6/10/99...
;;;
;;;The Express Tools team has discovered some other problems with the use
;;;of
;;;'(command "open")'; we are now using code similar to the following to
;;;ensure proper initialization:


    

;;;Place "100yr Flood El=###" and symbol at station and elevation.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-23-99
;;;	   Edited: 2-23-99
;;;

    

;;;*****************************************************************************
;;;3DFACE2LINES creates 3D lines along edges of 3Dfaces
;;;Checks for and will not create duplicate lines.

    

;;;Identifies 3D-Lines and the layer they are on and adds the Lines to a selection set.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  11/28/2003
;;;	   Edited:  07/21/2012

    

;;;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
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-2005
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited: 11-19-2005
;;;
;;;Requires: UKWORD.LSP, UPOINT.LSP, and UREAL.LSP
;;;
;;;****************************************************************************

    

;;;Adds words used in a drawing to Abbr.txt in the drawing's folder or
;;;creates Abbr.txt if it does not exist. Does not make duplicate entries.
;;;Run in every drawing to list all abbreviations and other words used
;;;across a project. Cannot recognize words in Xrefs or nested blocks.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited: 11-23-2005
;;;
;;;****************************************************************************

    

;;;ABRKSTR is a subroutine for applying word wrap to a text string (makes multiple lines from single line).
;;;Requires two arguments (abrkstr [text string] [wrap length as an integer])
;;;(abrkstr ...) only sets a series of variables 'typ_t' representing a stack of text strings where  is the line number.
;;;The maximum number of lines allowed by abrkstr is 12.
;;;The stack of text strings are derived by successively splitting the original text string at [wrap length].
;;;;Text placement is not part of (abrkstr ...).  The user must handle text placement after (abrkstr ...) has been called.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	10-4-98
;;;	Edited:		12-30-2010
;;;

    

;;;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 Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	10-4-98
;;;	Edited:		1-9-2006
;;;
;;;********************************************************************

    

;;;Adapted from original code from AfraLisp
;;;http://www.afralisp.net/visual-lisp/tutorials/collections-part-1.php
;;;
;;;		   EDITED: 8/31/2010
;;;
;;;****************************************************************************

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/1/2001
;;;	   Edited:  3/1/2001

    

;;;AutoCAD preferences exposed via Visual Lisp functions

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/31/00
;;;	   Edited:  3/31/00

    

;;;Updates revision block named "REVTXUR" or REVTXUR-NEW containing attributes tagged "REV_#_SYMB", "REV_#_DESC", "REV_#_DATE", "REV_#_BY" where # represents numbers 1-8
;;;A block matching these minimal requirements is all that is required.  Formatting, position, etc. may be whatever you may require for your block.
;;;If no revision block exists in the drawing the block named REVTXUR-NEW will be inserted: 0,0,0; scale=1.0; rotation 0.0 (if it exists on your search path).
;;;Adjust your insertion point to fit your requirements. E.g., ours revision block located in the upper right corner of our sheet; so, we set the insertion point at 0,0,0
;;;and put the block contents at about 30.0,20.0
;;;
;;;Command line input: ADDREVS
;;;Script and lisp use: (addrevs    )
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/23/09
;;;		   EDITED: 12/15/15
;;;
;;;Requires subroutines: mklayr.lsp; ustr.lsp
;;;Available by direct download free here: http://www.paracadd.com/lisp/
;;;

    

;;;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.
;;;
;;;Requires: Doslib from McNeel and Associates (http://www.en.na.mcneel.com/)
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 01-20-2007
;;;>		   EDITED: 01-20-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
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-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 specified units of precision are greater than the precision of the original
;;;number zeros are added to the string to display them.  Actual digits reflecting
;;;the precise number intended by the user cannot be determined by this routine.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;(uses UINT USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-27-2005
;;;

    

;;;Changes station numbers by specified amount.  Station format, "+" in
;;;in the number, is read and edited.  The new number is conformed to the
;;;station format to the user specified linear units of precision.
;;;
;;;Metric stations are sensed by the presence of three digits after the
;;;'+' and before the decimal.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-02-94
;;;	Edited:		9-27-2005
;;;

    

;;;Moves plan & profile labels (tags) generated by GPDGN (does not require GPDGN)
;;;
;;; AUTHOR: HENRY C. FRANCIS
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;              
;;;  All rights reserved without prejudice.
;;;
;;; Copyright: 3-3-2006
;;; Edited:    3-26-2009
;;;
;;; Requires: upoint.lsp
;;;
;;;****************************************************************************

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	9/25/2015
;;;	   Edited:	9/25/2015
;;;

    

;;; CADALYST 04/07  Tip 2200: ADX.lsp 	Aligned Multiple Line Text 	(c) 2007 David Harrington 


    

;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    

;;;Label the area of a closed polyline in ac., sq. yds., sq. ft.
;;;in either Acres, Square Yards or Square Feet.
;;;(It will also label open polylines according to the area
;;;that AutoCAD returns for them.)  All polylines to be measured
;;;for area should be closed to ensure the values obtained are
;;;actually the area intended.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-4-92
;;;	Edited:		4-1-2014
;;;
;;;Removed (COMMAND...) and replaced with (VLAX-... ) functions and (ENTMAKE...)
;;;

    

;;;Turn AutoCAD and AutoLisp into an alarm clock. Use Doslib.
;;;Cannot use AutoCAD while alarm clock is running.
;;;(the idea is to wake yourself after a little sleep during those all nighters).
;;;Be sure not to charge for the time you were sleeping.
;;;Your PC speaker or external speakers must be functional and on.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;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://www.paracadd.com
;	All rights reserved.
;

    

;;;Create script to draw Plines of plan viewport boundaries.
;;;Appends to existing script file so delete ALLBND.SCR and
;;;run ALLBND again in all sheets to update.
;;;*** ALLBND has been superceded by SHTBND.LSP ***
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Used with GPDGN alignments (gravity or pressure pipelines) to output takeoff data.
;;;Requires Doslib
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 8-30-1999
;;;	   Edited: 2-10-2007

    

;;;Construct a line at an angle from selected line. UANGLE and ROTX are defun'd within.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-14-93
;;;	Edited:		6-29-06
;;;

    

;C:ANGL - place line at an angle to selection. Requires ROTX.LSP, UPOINT.LSP, UANGLE.LSP.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-14-93
;	Edited:		5-4-00
;

    

;;;Posted By Ian_Bryant on http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/
;;;Topic title: "quicker alternative changing annotative scale in objectcale"
;;;on 04-14-2013 at 04:46 AM in reply to: boatman38
;;;original function/command name C:CH-ASC

    

;;;CORP 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-17-2016
;;;

    

;;;Creates plan viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 4-7-2009
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3-14-2006
;;;	   Edited: 7-14-2016
;;;

    

;;;Creates viewport just inside our standard ANSI-A (landscape) 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3-14-2006
;;;	   Edited: 7-14-2016
;;;

    

;;;Creates viewport just inside our standard ANSI-B size sheet border.
;;;Includes a notch around our 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 5-23-2013
;;;

    

;;;Creates double plan viewports just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates double profile viewports on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;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: 10-31-2008
;;;

    

;;;Creates plan viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ANSI-D size sheet border
;;;and profile grid block.
;;;
;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 6-1-2015
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 5-2-2008
;;;

    

;;;Creates a 28.5" x 19.5" rectangular viewport with match lines inside our standard ANSI-D 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 10-2-2006
;;;

    

;;;Creates plan viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;Creates profile viewport on grid indices over NAVFAC standard ANSI-F size sheet border
;;;and profile grid block.
;;;
;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-2006
;;;

    

;;;CORP 36x24 (ARCH 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-28-2007
;;;

    

;;;Creates plan viewport just inside our standard ARCH-D size sheet border.
;;;Includes a notch around our revision block.
;;;Creates profile viewport on grid indices over our standard ARCH-D size sheet border
;;;and profile grid block.
;;;
;;;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: 2-28-2007
;;;

    

;;;Creates viewport just inside our standard ARCH-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: 2-28-2007
;;;

    

;;;Creates a 30.5" x 21.5" rectangular viewport with match lines inside our standard ARCH-D 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: 2-6-2006
;;;	   Edited: 2-28-2007
;;;

    

;;;Change arcs into polylines.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-1-98
;;;	Edited:		10-1-98
;;;

    

;;;Entmakes the blocks DIMARO and LDRARO if they do not exist.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-18-99
;;;	Edited:		8-18-99
;;;

    

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

    

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

    

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

    

;;;Run once before a suspect event and once after it to see if the atoms-family has changed.

    

;;;Change attributes angles
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-26-2010
;;;	   Edited:  5-26-2010

    

;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  9-26-2002

    

;;;Edit attributes or text in blocks one at a time (sequentially)
;;;Any TEXT entity edits are applied to all blocks because they are actually edits to the block definition.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/6/2007
;;;		   EDITED: 8/6/2007
;;;
;;;Requires: UKWORD.LSP
;;;

    

;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  3-16-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:  1-25-2006

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    

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

    

;;;Attribute update subroutine (attupd [blockname] [attribname] [newvalue])
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	1-15-2004 added var [testvalue] - user must (setq testvalue ).
;;;	If [testvalue] is not NIL AND not eq current [attribname] value the current
;;;	[attribname] value remains unchanged.
;;;	If [testvalue] is NIL the program will update [attribname] to [newvalue]
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      1997-2010
;;;       Edited:         7-8-2010
;;;
;;; 6/29/2010:	Added automatic update for detail/section call-out and title bubbles if the user is updating "our" title block sheet number.
;;;		This can be easily edited for "your" titleblock sheet number within the first dozen or so lines of code below.
;;;
;;;		Note: 	"Our" routines automate layer creation for standard symbols.  Layers are in the CAD Layer Guidelines (CLG) format
;;;			where the "minor group" specifies a viewport number in the form "VI##".  With this designation, bubbles in model space
;;;			are matched with their parent viewport's viewport number.  The viewport number should only exist on one sheet (Layout).
;;;
;;;			Model space annotation is associated with its layout using the viewport number indicated by the CLG layer name.
;;;			It is important to never use the same viewport number on different sheet layout tabs.  It is also advisable to use
;;;			a different viewport number for each viewport even on the same layout.  This way annotation can be isolated to display
;;;			in just one viewport which allows viewports to show the same model area but have different annotation.
;;;			It is preferrable to put all annotation within modelspace of the viewport that it pertains to.  This keeps the annotation
;;;			with the design regardless of pans or zooms.  A single text style per font used, each with a height of zero, when used in
;;;			conjunction with our annotation routines (TNOTE, MLT, REMLT, DTTL, BSCL, etc.) automatically assures that text height is
;;;			visually the same in all viewports regardless of their scale.  Dimscale=0 and these same text styles tells AutoCAD to do
;;;			the same thing for dimensions (which is where we got the idea to do it within our annotation routines).  This greatly
;;;			simplifies the task of setting text heights and ensuring consistency in our annotation across all drawings.
;;;
;;;		"Our routines":
;;;			MYMVIEW - creates viewports on the appropriate "next" viewport number layer, a CLG non-plot layer (?-VI##-NPLT) which
;;;				  is set to not plot the viewport boundary.
;;;			TNOTE   - typical note catalog and placement routine.
;;;			MLT     - single note placement (transparently used by TNOTE to place the selected note)
;;;			REMLT   - reformat and/or relocate (re-place) existing notes.
;;;			DTTL    - place formatted detail title and scale annotation with bubble on the appropriate viewport number (read from the viewport layer).
;;;			BSCL    - place barscales (reads units to determine civil or architectural styles, civil are blocks, architectural are dynamically placed).
;;;			ISOVP   - uses VPLAYER to freeze CLG layers in the format ?-VI##-???? which do not match the viewport number.
;;;
;;;****************************************************************************

    

;;;Multiple attribute update subroutine (attupd [blockname] [attribname] [newvalue])
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         10-1-98
;;;

    

;;;Attribute update subroutine (attupdt [blockname] [attribname] [newvalue] [testvalue])
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	1-15-2004 added var [testvalue] - user must (setq testvalue ).
;;;	If [testvalue] is not NIL AND not eq current [attribname] value the current
;;;	[attribname] value remains unchanged.
;;;	If [testvalue] is NIL the program will update [attribname] to [newvalue]
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      1997-2004
;;;       Edited:         1-15-2004
;;;

    

;Modify the text justification of a selection set of attributes. (uses UKWORD UPOINT)
;The only input required is the desired text justification and selection of the
;attributes to modify.  There is no need to worry about selecting non-attribute
;entities because they will be automatically filtered out of the selection set.
;DO NOT select more than one "common note group".  All of the attributes selected
;are assumed to belong to such a group and they ALL will be justified to the same
;reference position.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	7-12-94
;	Edited:		11-26-95
;

    

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

    

;;;Collect survey points from *.PRN files which have two digit numbers as description keys
;;;for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
;;;overwrite mode to update point descriptions
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright: 1/19/94
;;;	     Edited: 1/25/06
;;;

    

;;;Uses DOSLIB and IrfanView, both of which are available to download for free from their respective authors
;;;Robert McNeel & Associates owns Doslib (www.en.na.mcneel.com/doslib.htm), Irfan Skiljan owns IrfanView (www.irfanview.com)
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    

;;;Collect survey points from *.TXT files which have two digit numbers as description keys
;;;for automatic descriptions in SoftDeSK.  The resultant output file should be imported in
;;;overwrite mode to update point descriptions.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright: 1/19/94
;;;

    

;;;
;;; Author:
;;;  Henry C. Francis
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;; All rights reserved.
;;;
;;; Copyright:  2010
;;;    Edited:  2-8-2010
;;;****************************************************************************

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    

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

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;

    

;;;Places a polyline or lines by bearing and distance.
;;;Input N06d05'04.32"W bearing format and distance with no need to specify the quadrant.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-31-2014
;;;	   Edited:	10-31-2014
;;;

    

;;;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
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 8-6-00
;;;	   Edited: 8-6-00
;;;

    

;;;Place a detail call bubble with a leader and text description
;;;in the drawing.  The leader may be single or multiple lines
;;;at any angle.  The bubble will be placed with the center along
;;;the line and the edge of the bubble coincident with the end of
;;;the leader.  If a description is given a description line will
;;;be added horizontally in line with the center of the bubble and
;;;opposite of the leader.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-23-93
;;;	Edited:		2-10-2011
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-29-2014
;;;	   Edited:	12-20-2016
;;;
;;;****************************************************************************

    

;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6/28/2007
;;;	Edited:		7/5/2007
;;;

    

;;;Force all block definition entities whose color or linetype is neither BYLAYER or BYBLOCK
;;;to have their nonconforming color and/or linetype set to BYLAYER.
;;;
;;;Force all embedded text without thickness to have a thickness of 1.  (So it can be hidden)
;;;
;;;Blocks exempt from processing are: XREFs, "ADCADD_ZZ", "DWGSTAMP", and "DWG-EDIT-LOG"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1/04/2001
;;;	   Edited:  4/11/2008

    

;;;Writes a listing of block names and the layers they use to BLKLAY.LST
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Construct a list of entity lists contained in a block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Modify the rotation angle of a selection set of insert entities. (uses UREAL)
;;;       The only input required is the desired rotation angle and selection of
;;;       inserts to modify.  There is an option to set the angle horizontal to
;;;       the view.  There is no need to worry about not selecting non-inserts
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-1-2008
;;;	Edited:		6-1-2008
;;;

    

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

    

;;;Exports all non-Xref, non-Xref dependent, and non-anonymous blocks to a subfolder of the current drawing's path or optionally to a network folder.
;;;The local subfolder is named 'Blocks' which is created if it does not exist.  You can change this in the code, just replace "Blocks" with your subfolder name.
;;;The network folder is hard coded into the routine and can be any path you require.  It is referred to as "Global" in the options.
;;;There is a "standard block list" symbol name = std_blk_lst that consists of strings which are passed to (WCMATCH str) and upon a match the block in the current file
;;;is not written out.  This is to enable protection of blocks you have developed as masters or standards from being overwritten by this function.
;;;
;;;
;;;Requires DOSLIB from McNeel & Associates
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 10-9-2007
;;;		   EDITED: 7-3-2013
;;;

    

;;;==================================================================================================

    

;;;This command is specifically to adjust attribute positions in existing instances of the Annotation Template (map data block) "ACMAP_ANN_TEMPLATE_Parcel Label"
;;;The original construction has background masks and was spaced too closely.  When parentheses or similar characters protrude above or below the
;;;normal characters the background masking covered parts of the atttribute values above and below it
;;;There are two text entities in the block that were repositioned using the block editor which changed their positions in all instances.
;;;This command was necessary to move the attributes in all existing instances.
;;;There is one attribute tagged "PHYSADDRES" which was kept in place while the others were moved away from it (nothing was done with it at all).

    

;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2-13-2001
;;;	   Edited:  10-1-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
; 
;		All rights reserved without prejudice.
;       Copyright:  8-30-95
;          Edited:  8-30-95
;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    

;;;Change a number in (m)any text string(s) by a numeric value and
;;;specify or change precision (decimal places).
;;;(uses UINT.LSP, USTR.LSP)
;;;
;;;Note: Reduced precision cannot be restored to greater precision
;;;      except with UNDO immediately after it has been reduced.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		7-23-2001
;;;

    

;;;Place breakline symbol as a polyline.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-16-94
;;;	Edited:		6-28-2010
;;;

    

;;;Change rotation angles of selected blocks.
;;;If a block has attributes it will be rotated using the command line.
;;;Otherwise, the rotation angle will be modified using (entmod ...)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;     Copyright:	9-28-2010
;;;        Edited:	9-28-2010
;;;

    

;;;Obsolete, see helphtm.lsp
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;		http://paracadd.com/
;;;
;;;  Copyright:	1/27/2002
;;;     Edited:	4/23/2007
;;;

    

;;;Rescale occurances of a block about insertion points.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-22-94
;;;	Edited:		3-17-95
;;;	Edited:		12-6-2007 autoloads UREAL and USTR if not loaded
;;;

    

;;;Place engineering or architectural bar scales by dimscale.
;;;
;;;	Uses blocks named nBARS where n=dimscale as integer.
;;;	for Decimal (Engineering) linear units.
;;;
;;;	Creates the U.S. Army Corps of Engineers standard
;;;	bar scale for Architectural units based upon dimscale.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;		http://paracadd.com
;;;
;;;	Copyright:	2-4-92
;;;	Edited:		5-5-2007
;;;

    

;;;Break a text string into two strings and automatically.
;;;Places the 'cut' string above or below the first at the same
;;;justification, etc. with 1/2 text height space between.
;;;Optionally: Adds a line of text above or below existing text.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;     Copyright: 1995
;;;        Edited: 6-29-2010
;;;
;;;	6-29-2010	Added commands FW2LW/F2L and LW2FW/L2F commands
;;;			(1st word to last word; and, last word to 1st word commands)
;;;			These will move the first or last word of a text string to
;;;			the last or first word of another string respectively.
;;;
;;;	10/16/2013	Added comma-up (CU) and comma-down (CD) options and commands CU & CD
;;;			breaks/stacks strings at existing commas either up or down from original
;;;
;;;****************************************************************************

    

;;;Place a detail bubble, single or multiple references.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-17-95
;;;	Edited:		2-10-2011
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-27-94
;;;	Edited:		2-10-2011
;;;
;;;^C^C(c:svlayr)(load"gvpno")(gvpno)(setq mjrg "C" llt "-" colr "2" modf "SYMB")(c:mklayr)(if C:BUBN nil (load"BUBN"))(C:BUBN)(c:rslayr)
;;;

    

;;;bubble update subroutine (bubupd [blockname] [old_sdname] [new_sdname] [old_callon] [new_callon])
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      2-19-2004
;;;       Edited:         2-19-2004
;;;

    

;;;This function calculates the bulge factor necessary to create a tangent POLYLINE arc segment
;;;from anglept to afterpt.  The line segment from beforept to anglept will tangent to the arc.
;;;A temporary UCS is set with its X-axis along beforept and anglept.  It is used with the TRANS
;;;function to get the tangent of the chord between anglept and afterpt. (TRANS afterpt 0 1) returns
;;;a point which yeilds [Y/(X-(DISTANCE between beforept and anglept))] = [rise/run] = tangent.
;;;A negative value indicates the arc sweeps clockwise, positive indicates a counter-clockwise sweep.
;;;To modify an existing vertex, substitute (ASSOC 42 ) with (CONS 42 arcbulge)
;;;
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-9-2014
;;;	   Edited:	10-9-2014
;;;

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 	when created
;;;		   EDITED:	10-24-2013
;;;
;;;******************************************************************************

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;C3d.lsp
;hacked together by Juan Villarreal
;;Thanks to Joe Burke for his ConvTo3d routine, modified to be used as a function.
;
;;Hacked further by Henry C. Francis to only set the elevation of the existing polylines to match the OD elevation.
;;No 3D conversion is done.
;;in my case fvals contains the value of the "Elevation" data field as the second item in the list (fvals is the list)
;*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;|

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/5/2011
;;;		   EDITED: 4/17/2014
;;;

    

;;;Tool for converting a windows 3.1 card file (in prode.txt) to Comma Delimited Format (CDF)
;;;for import to other applications.  Options for fields are:
;;;"Loctn Proj DEsc Client DAte Engr DGnr DWgsz Nodwgs noTes"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      3-17-97
;;;       Edited:         3-17-97

    

;;;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, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		1-8-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
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-10-93
;;;	Edited:		2-10-2011
;;;

    

;;;Requires Land Desktop - "AeccXUiLand.AeccApplication.6.0"

    

;;;Place a custom linetype as an anonymous block. (I call it chain) 
;;;The block entity is not placed in
;;;the drawing until the user terminates the input with a return
;;;supplied to the "next point" prompt.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		07-10-2009
;;;

    

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

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;Change the width of a selected set of polylines as a group
;with only one command sequence.
;
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	7-22-91
;	Edited:		7-22-91
;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

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

    

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

    

;Modify the radius of a selection set of circles. (uses UREAL)
;The only input required is the desired radius and selection.
;There is no need to worry about not selecting non-circle entities
;because they will be automatically filtered out of the
;selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;	        425 N. Ashe Street
;	        Southern Pines, NC 28387
;              
;	All rights reserved without prejudice.
;
;	Copyright:	6-7-94
;	Edited:	5-14-98
;

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/24/2009
;;;		   EDITED: 7/24/2009
;;;

    

;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-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.
;;;
;;;Limitations:
;;;	OSNAP should be set to NONE, single overides may be used.
;;;	Decimal places are set by UNITS
;;;	Text size is set by current value of sys variable TEXTSIZE.
;;;	Style must have "0" as the text height
;;;		
;;;	AUTHOR:    Henry C. Francis
;;;	COPYRIGHT: 3-11-1992
;;;	EDITED:	   12-9-2016
;;;
;;;****************************************************************************

    

;;;Label contour polylines with their elevation.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	3-16-96
;;;	Edited:		2-10-2011
;;;

    

;;;C:CLDESCR	Sets the description for the current layer (command-line input)
;;;
;;;(SETLAYERDESCR  )
;;;		Sets the description for the specified layer (autolisp function input)
;;;		Will create the specified layer if it does not exist.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/19/2011
;;;		   EDITED: 5/19/2011
;;;
;;;****************************************************************************

    

;;;Place a custom linetype as an anonymous block. (I call it chain-link fence) 
;;;It allows linear as well as curved sections.  The user toggles
;;;between the two during placement.  The block entity is not placed in
;;;the drawing until the user terminates the input with a return
;;;supplied to the "next point" prompt.  Size of the graphic elements
;;;is determined by the dimscale.  If the user matches the dimscale
;;;with the drawing scale the graphics will scale the same on all
;;;drawings.  The linetype consists of equally spaced circles (nearest
;;;to 1/2" spacing at scale for the length of arc or line) and lines
;;;between them that do not touch.  If the variable modf = "EXST" the
;;;circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		11-24-98
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    

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

    

;;;Place a revision cloud.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;(IF (EQ (SUBSTR (GETVAR "acadver") 1 2) "14")
;;;  (SETQ DEFUN-Q DEFUN)
;;;  nil
;;;) ;_ end of IF

    

;;;Place a construction note bubble with a leader in the drawing.
;;;The leader may be single or multiple lines at any angle.
;;;The bubble will be placed with the center along the line and the
;;;edge of the bubble coincident with the end of the leader.
;;;The bubble number may be optionally incremented or held the same
;;;for subsequent placements.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-23-93
;;;	Edited:		2-10-2011
;;;
;;;Added alpha tags with increments from "A" to "CZ" (104 alpha tags)
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	06-08-2012
;;;	   Edited:	06-08-2012
;;;

    

;;;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: 8-10-2006

    

;;;Conditional Attribute update subroutine (attupd [blockname] [attribname] [newvalue] [condition] [testvalue])
;;;checks current attrib value for [condition] against [testvalue].  If True, attrib is updated with [newvalue]
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         10-7-2002
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;Requires: ukword.lsp, upoint.lsp, make_layer_ent.lsp
;;;

    

;;;Formats and places tabulated construction notes with bubble number tag references.
;;;
;;;Requirements:
;;;	(A) Insert(s) of a block named B_TAG, H_TAG, or D_TAG w/ one ATTRIB who's value is a no.
;;;	    CNL.LSP, command CNL, will insert these blocks;
;;;
;;;	(B) Text file named CONOTE.TXT with ALL of the construction notes.
;;;		1st line of file contains a number,
;;;		2nd line of file contains that number's note,
;;;		3rd line of file contains another number,
;;;		4th line of file contains that number's note,
;;;		etc.
;;;
;;;	Use only one line for each entire note text. Line wrapping is
;;;	handled by the program.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-31-98
;;;	Edited:		12-30-2010
;;;

    

;;;Formats and places individualized construction notes.
;;;
;;;Requirements:
;;;	(A) Insert(s) of a block named B_TAG w/ one ATTRIB who's value is a no.;
;;;	(B) Text file named CONOTE.TXT with ALL of the construction notes.
;;;		1st line of file contains a number,
;;;		2nd line of file contains that number's note,
;;;		3rd line of file contains another number,
;;;		4th line of file contains that number's note,
;;;		etc.
;;;
;;;	Use only one line for each entire note text.
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    

;;;CORP 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    

;;;CORP 11x8.5 (ANSI A Size Sheet) Title Block insertion function.
;;;Inserts at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-23-2013
;;;

    

;;;CORP 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    

;;;CORP 8.511 (ANSI A Size Sheet) Title Block insertion function.
;;;Inserts at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    

;;;CORP 36x24 (ARCH-D Size Cover 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    

;;;CORP 17x11 (ANSI B Size Sheet) Title Block insertion function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-23-2013
;;;

    

;;;CORP 34x22 (ANSI D Size Cover 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	9-23-2009
;;;	 Edited:	5-7-2014
;;;

    

;;;CORP 34x22 (ANSI D Size Cover 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    

;;;CORP 34x22 (ANSI D Size Cover 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-23-2009
;;;

    

;;;CORP 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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	5-8-2014
;;;

    

;;;Lisp function: (corpndx)
;;;     and other supporting lisp subroutines are included in this file.
;;;
;;;     (corpndx) Creates/Updates CORPNDX.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
;;;     CORPTTBAT 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 (from bproj.lsp)
;;;
;;;Use SHTNDX to create a complete drawing index from CORPNDX.TXT.
;;;Use SHTBND to create sheet number labels and rectangles outlining all
;;;    viewport areas for all sheets.
;;;Use VIEWSHT to zoom to any viewport area of any sheet.  Examine
;;;    coordinate values to help select plan, profile or detail views.
;;;Use ESBND to erase all labels and rectangles created by SHTBND.
;;;Use BPROJ to automatically compile the ordered list of project sheets
;;;    for plotting and start BPLOT ready to plot them all.
;;;
;;;CORPNDX.TXT Notes:
;;;
;;;       Use EDTXT to open CORPNDX.TXT in Notepad.  Open CORPNDX.TXT to
;;;       view drawing names and their associated sheet numbers (a very
;;;       handy reference).
;;;
;;;       CORPNDX should be manually sorted after new sheets are added.
;;;       Once the list is complete and has been sorted it will not need
;;;       sorting again.
;;;
;;;       Do not use word wrap! Sheet info must occupy only one line in
;;;       the file.
;;;
;;;       Sheets that belong to the project but are kept elsewhere can
;;;       be manually added (vport info may be omitted) so SHTNDX will
;;;       produce the complete sheet index.
;;;
;;;       Add BOGUS drawing names and titles to provide section headings
;;;       such as CIVIL, MECHANICAL, STRUCTURAL, ELECTRICAL, etc.
;;;
;;;       Corrected vpbnd subroutine to translate viewport bounds from UCS
;;;       to WCS
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         4-2-2007
;;;
;;;****************************************************************************

    

;;;This drills into a corridor object
;;;Only a few rabbit trails are followed
;;;Cannot find any object that exposes a Region's target(s)

    

;;;Copy most entities from Blocks or XREFs.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1996-2011
;;;	Edited:	   7-25-2003
;;;
;;;	Requirements: ukword.lsp, transpt.lsp
;;;
;;;****************************************************************************

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;Copy block definition into the current viewport of the current file from an insert (block instance) in an Xref.
;;;Will omit nested inserts (blocks) from the new block definition.
;;;The new block scale is optionally the current viewport scale or the original object scale.
;;;The new block insertion layer is keyed to the current viewport CLG layer minor group (VI##)
;;;If the current viewport is not on a view number keyed CLG layer you will be asked to specify one.
;;;Primary usage is for making blow-up details of pipeline features i.e. valves & fittings.
;;;Allows a smaller scale duplicate symbol to be used and the original symbol frozen in the blow-up detail viewport.
;;;
;;;Requires:	ukword.lsp, gvpno.lsp, vpset.lsp, dimscl.lsp, mklayr.lsp
;;;		available free from http://www.paracadd.com/lisp/
;;;		filenames are case sensitive for download so you may need to browse http://www.paracadd.com/lisp/lisp_lst.htm
;;;		for the correct case if using a direct link results in "Not Found"
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1996-2010
;;;	Edited:	   7-13-2010
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;By default CSIdetails is pointed to the "N:\Standards\Details 2009\Details by CSI Divisions"; however,
;;;you can modify this to point to any location you want or, from within the dialog, direct it to any folder
;;;on any drive to obtain a listing of the directories with drawings that it contains.
;;;
;;;All subfolders are searched for drawings and it returns only the folders which contain drawings.
;;;Because it searches all subfolders it is not a good idea to point it to just a drive letter or a folder
;;;containing a very large number of subfolders and drawings (although it can handle it, it will take longer
;;;to do very large searches).
;;;
;;;Required Files for standalone use:
;;;
;;;             CSIdetails.lsp,
;;;             CSIdetails.dcl, 
;;;             check_for_doslib.lsp; and, 
;;;             Doslib##.arx where ## is your AutoCAD version number (2004=16; 2007=17; 2010=18)
;;;		Doslib is a freely distributed product of:
;;;			Robert McNeel & Associates
;;;			3670 Woodland Park Ave N
;;;			Seattle, WA 98103 USA
;;;			Sales: (206) 545-7000.
;;;			Support: (206) 545-6877.
;;;			Fax: (206) 545-7321 ...
;;;			http://www.mcneel.com
;;;Command: CSIdetails
;;;
;;;Result: 
;;;             Dialog with indented folder/file listing; and,
;;;             Text screen output of the listing.
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2009
;;;		   EDITED: 11/18/2009
;;;
;;;****************************************************************************

    

;;;Sets case of selected text and of attributes in selected blocks.
;;;Default is all uppercase.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-7-94
;;;	Edited:		9-5-2013
;;;
;;;	9-5-2013	added MTEXT and MULTILEADERS
;;;			added Title case

    

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

    

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

    

;;;Places direction arrow
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-16-98
;;;	   Edited:  4-16-98
;;;

    

;;;Places direction arrow
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-16-98
;;;	   Edited:  8-17-2006
;;;

    

;;;Written/Modified By Mark Douglas
;;;July 25, 2005
;;;Posted on http://mdouglas.blogs.com/in_the_dynamic_interface/2005/07/dynamic_lisp_co.html
;;;Mark included a significant discussion at the above URL
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  10-31-2008

    

;;;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
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		1-29-04
;;;
;;;	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
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	12/9/2016
;;;	   Edited:	12/9/2016
;;;
;;;****************************************************************************
;;;	Looks for "debug*" variables and sets them T

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;;;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;;;       INSERT w/attrib. It will report the type of entity selected
;;;       if it cannot be edited via the above commands and prompt to
;;;       select again.
;;;
;;;	It was initially intended to be a command, hence the function name
;;;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;;;	pstr is simply the prompt string.  It is set in redefinition
;;;	of the commands that are affected in order to give the expected
;;;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1995-2005
;;;	Edited:		2-28-2005
;;;
;;;       Changed selection window to set after each entsel pick.
;;;       Fixes unexpected selections following transparent zooms.
;;;

    

;;;Deletes any number of equal AECC_POINT objects from the drawing leaving just one instance of each.
;;;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: 1-25-2015
;;;

    

;;;
;;;Deletes duplicate line, circles, blocks, or points
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;KETIV - Insert delimited ascii text files into a drawing.
; DELIMIN.LSP
;
; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
; All rights reserved.
; KETIV Technologies, Inc.
; 6645 NE 78th Court #C-2
; Portland, OR 97218
;
; Layer Group: KTEXT
;
; Menu Location: Text I/O Pull down
;
; Purpose:Insert delimited ascii text files into a drawing
;
; Prompts:
;    Enter filename :
;        [if the file is not found]
;        ERROR: File " fn " not found - try again
;        Enter filename :
;    Enter column delimiter <,>:
;    Scanning file for # of rows/columns . . .
;        [if the text height is not set in the style]
;        Enter text height :
;        [Else show current text style height]
;        Your current style is "style", which has a fixed text height of "height"
;    Enter line spacing :
;    Enter text point:
;    Enter first column width :
;    Enter text justification: Center/Right/:
;    Set column width automatically from 1st line? :
;    Enter text justification: Center/Right/:
;
; Assumptions/Limitations: None
;
;======================================================================================================
; Text importing utility for bringing Columnar data into AutoCAD.
; Requires an ASCII text file with column delimiter.
;
; FEATURES:  --Scans 1st line of file for # of columns
;            --Scans entire file for # of lines
;            --Adjusts for fixed or variable text height
;            --Read-out of current row/col # (in screen menu area)
;            --Read-out of percent done (in screen menu area)
;            --Scans 1st line for default width of columns
;            --Allows auto column width based on 1st line of text
;            --Auto column width makes each column left-justified
;            --Displays 1st text line when asking for delimiter
;            --If manual column width, can choose justification
;                 for each column (Left, Center, Right).
;
;----------------------------------------------------------------------------
; Initialize memory and important system variables
;--------------------------------------------------

    

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

    

;; Dictionary Editing tools
;; by Irn� Barnard


    

;;;
;;;--- How to save Lisp values with drawing? ---
;;;
;;;
;;;We have two possibilities in R14 -- dictionaries
;;;and EED, extended entity data. Both provide us with
;;;a means of storing information in a DWG persistently.
;;;We can store a series of code pairs in EED, as usual,
;;;only the codes are 1000, 1040 etc. BUT -- in a real
;;;Lisp programs we often have variables that are a *lists*
;;;of data, and in Lisp a list is actually a tree in that it
;;;can contain another list and so on.
;;;
;;;So how can we store lists in EED (or in Xrecords to be
;;;put into dictionary)? We must have some way to encode it
;;;into the possible code groups, and later to decode it back
;;;while retrieving the info.
;;;
;;;Both EED and Xrecords are very similar in that, and in both
;;;cases we must use this en/decoding.
;;;
;;;How can we do that? We need to use some special marker
;;;to mark a beginning/ending of a lists. Let's use LB
;;;as a List Begin marker and LE as a list end.
;;;
;;;This all means that we need to find a way to convert e.g.
;;; (1 (2 (3 "4") 5)) into
;;; LB 1 LB 2 LB 3 "4" LE 5 LE LE
;;;and vice versa. In other words, we want to find
;;;the conversion between Lisp tree-like lists
;;;and this special one-dimentional list representation.
;;;
;;;For that we can use something similar to that RE-LIST
;;;function that I have posted several times in its various
;;;modifications.
;;;
;;;Let's use here "{" as LB and "}" as LE.
;;;
;;;RE-LIST is decoding a list back into its original LISP form
;;;and may be done like this:
;;;
;; all functions here are (C.) 1997 by Vladimir Nesterovsky,
;;  vnestr@netvision.net.il, All Rights Reserved
;; please keep this notice intact


    

;;;Diesel test function (see customization manual)
;;;

    

;;;Creates the user arrow block DIMARO if it does not exist.
;;;This block is designed with a vector fill so that it remains
;;;filled even if hidden lines are removed (which blanks out fills)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;
;;;     Copyright: 1/26/96
;;;	   Edited: 6/14/07
;;;	All rights reserved.
;;;
;;;	Fixed prev selection set from getting wiped by viewport selection.
;;;

    

;;;Sets dimstyles ENGRDIMS and ENGRLDRS and updates all dimensions to zero decimal places.
;;;All dimensions greater than max. distance for dimension leaders are updated to be
;;;regular dimensions (text above dimension line between arrows).  All other dimensions
;;;are updated to be dimension leaders.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;;
;;;;
;;;;	Author:
;;;;		Henry C. Francis
;;;;		425 N. Ashe Street
;;;;		Southern Pines, NC 28387
;;;;
;;;	http://www.paracadd.com
;;;;	All rights reserved.
;;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
;;;****************************************************************************

    

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

    

;;;Generates a directory and file listing for the specified drive-directory string.
;;;Note: drvdirstr must be in the form returned by (getvar"dwgprefix").
;;;Creates DOSDIR.BAT to create DOSDIR.LST which is read to capture directories and
;;;filenames to write to dir_lst (was to file DIRS.LST) and to fil_lst
;;;(was to file FILES.LST) respectively.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1/28/98
;;;	Edited:    5/20/01
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  3-12-2002
;;;	   Edited:  3-12-2002

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1991-2001
;;;	   Edited:  4-21-2010
;;;
;;;Writes activity lines to :\ACAD\DWG_EDIT.LOG
;;;
;;;Requires:	DOSLIB incorporated by permission from Robert McNeel & Associates
;;;		http://www.en.na.mcneel.com/doslib.htm
;;;

    

;;;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:
;;;
;;;
;;;LINETYPE DEFINITIONS: (your system should have the symbol font 'Symeteo' installed)
;;;
;;;*ANSI31,ANSI31 \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
;;;A,0,-.15,["U",symeteo,R=0.0,X=-.2,Y=-0.125,S=.3],-.15,0
;;;*ANSI37, ANSI37 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;;;A,0,-.15,["+",symeteo,R=45.0,X=-.1,Y=-0.489,S=.66],-.15,0
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-5-96
;;;	Edited:		10-21-2002
;;;

    

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

    

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

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1999
;;;	   Edited: 10-26-2016
;;;
;;;Requires: mklayr.lsp uint.lsp upoint.lsp custom.lin
;;;

    

;;;Creates driveways as polylines in the drawing using selected AECC_POINT objects,
;;;AECC_COGO_POINT objects, DCA POINT blocks, or picked points.
;;;A licensed version of AutoCAD Civil is required to make use of AECC objects.
;;;If the point descriptions are discernable for type and width these values
;;;are set automatically; otherwise, you will be asked to specify type and/or
;;;width.  Type is incorporated into the CLG layer name which is automatically
;;;generated.  If an edge of pavement line is available, the driveway centerline
;;;point at the EOP and a 'nearest' snapped point to the EOP on each side of the
;;;driveway will define the lines to which the driveway lines are intersected.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  12/15/2004
;;;	   Edited:  12/15/2016
;;;
;;;	Revised to loop until Quit
;;;
;;; Requires BULGEBYPNTS.LSP UANGLE.LSP UDIST.LSP UPOINT.LSP UKWORD.LSP UINT.LSP UREAL.LSP USTR.LSP
;;; MAKE_LAYER_ENT.LSP
;;;
;;;****************************************************************************

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2009
;;;		   EDITED: 8-24-2010
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  10-23-2002
;;;	   Edited:  10-3-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 Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Place a detail title bubble with title text, underline and scale text.
;;;       Uses DIMSCALE and LUNITS to format scale string and scale bubble
;;;       and text.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-30-93
;;;	Edited:		9-27-2007
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;
;;;****************************************************************************

    

;;;Custom DTEXT. Auto sets layer attribs and text size. LINE-under-last option.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-23-96
;;;	Edited:		6-13-2005
;;;
;;;Added explicit load for upoint, ukword, uangle (no longer dependent upon external load).
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

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

    

;;;Requires:	LINE entities drawn on layer C-EROC1DATA in profile
;;;		X-coordinates must equal Station values
;;;		Y-coordinates must equal Elevation values at any vertical scale factor (can be x1 or any other factor, x10 is common)
;;;
;;;Useage:	C:DRAWECDATA (used with GPDGN alignment profiles)
;;;			Use to Draw lines along existing grade in profile from grade-break to grade-break wherever erosion control measures are to be used.
;;;			Can be done manually, C:DRAWECDATA is to assist in doing this
;;;		C:ECDATA (used with GPDGN alignment profiles)
;;;			Use after lines are drawn to export station, elevation and slope information along your finish grade for further analysis and/or use in other documents.
;;;			Exported data is comma delimited with the first row containing column headings.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/15/09
;;;		   EDITED: 1/15/09
;;;

    

;;;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;;;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;;;       INSERT w/attrib. It will report the type of entity selected
;;;       if it cannot be edited via the above commands and prompt to
;;;       select again.
;;;
;;;	It was initially intended to be a command, hence the function name
;;;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;;;	pstr is simply the prompt string.  It is set in redefinition
;;;	of the commands that are affected in order to give the expected
;;;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	10-3-95
;;;	Edited:		11-04-2011
;;;
;;;     Added entity type "MULTILEADER"
;;;

    

;Auto invoke DDATTE, DDEDIT or DIM NEW based upon filtered selection.
;       Routine will only select MTEXT, TEXT, ATTRIB, DIMENSION or
;       INSERT w/attrib. It will report the type of entity selected
;       if it cannot be edited via the above commands and prompt to
;       select again.
;
;	It was initially intended to be a command, hence the function name
;       C:.... Note that the variable pstr is required, e.g. (c:ded pstr).
;	pstr is simply the prompt string.  It is set in redefinition
;	of the commands that are affected in order to give the expected
;	prompts.  Invoke this routine from the redefined ddedit and ddatte.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	10-3-95
;	Edited:		4-11-97
;
;       Changed selection window to set after each entsel pick.
;       Fixes unexpected selections following transparent zooms.
;

    

;Edit *.GRD files
;

    

;;;Edit *.asc files
;;;


    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 4-7-99
;;;	   Edited: 7-23-99

    

;Edit *.BAT files
;

    

;;;Edit *.BKA files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    

;Edit *.GRD files
;

    

;;;Edit *.csv files
;;;

    

;Edit *.DAT files
;

    

;Edit *.DCL files
;

    

;Edit *.DXF files
;

    

;Edit *.GRD files
;

    

;Edit *.FPL files
;

    

;Edit *.GRD files
;

    

;;;Dialog interface for deleting drawing log entries created in a drawing using (log_it) from log_it.lsp
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-20-2010
;;;	Edited:		9-20-2010
;;;
;;;****************************************************************************

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2-15-2008
;;;		   EDITED: 2-15-2008
;;;

    

;;;Purpose: edit or add TIN points by entities: (1) CIRCLE - uses center point for 3D point information
;;;						(2) POLYLINE - heavy 3D polyline - uses vertex locations for 3D point information
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 5/5/2014
;;;	   Edited: 5/5/2014
;;;
;;;COMMANDS DEFINED:	EDITPTSBYENT & EPBE (long and short command name)
;;;			ADDPTSBYENT & APBE (long and short command name)
;;;
;;;****************************************************************************

    

;;;Purpose: edit or add TIN points by entities: (1) CIRCLE - uses center point for 3D point information
;;;						(2) POLYLINE - heavy 3D polyline - uses vertex locations for 3D point information
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 5/5/2014
;;;	   Edited: 5/15/2014
;;;
;;;COMMANDS DEFINED:	EDITPTSBYENT & EPBE (long and short command name)
;;;			ADDPTSBYENT & APBE (long and short command name)
;;;
;;;****************************************************************************

    

;;;Edit *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    

;Edit *.lin files
;

    

;;;Edit *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		1-28-2001
;;;

    

;Edit *.LST files
;

    

;Edit *.MNU files
;

    

;Edit *.MNS files
;

    

;Edit *.OUT files
;

    

;;;Edit ParaPIPE *.LSP files
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1994
;;;	Edited:		9-30-98
;;;

    

;;;Edit *.pts files
;;;

    

;;;Edit *.SCR files
;;;

    

;Edit *.shp files
;

    

;;;Edit *.txt files
;;;

    

;;;Edit *.xrl files
;;;

    

;;;separates LWPOLYLINEs to layers by elevations (10', 5', 2', & 1')
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1-8-09
;;;		   EDITED: 1-8-09
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Creates a 3D line with endpoints at invert elevations as determined from the description
;;;or user input if the description could not be used.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2000
;;;	   Edited:  1/15/2013
;;;
;;;Added command CHKPIPES
;;;
;;;CHKPIPES reads chronological cumulative log files that are automatically
;;;created by ENDZ ("ENDZ Automated 3D Pipe Drawing.log") and compares existing
;;;3D lines in the drawing with it.  Missing 3D lines are either recreated
;;;automatically or the creation location is displayed and the user authorizes
;;;creation of each missing line depending upon which option the user chooses.
;;;
;;;****************************************************************************

    

;;;Writes a file named .ent with entity layer,
;;;linetype, and color (and block name if its a block).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;Lists the entity types in the current drawing
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN
;;;
;;;		copyright 1995  Henry C. Francis
;;;		425 N. ASHE ST.
;;;		Southern Pines, NC 28387
;;;
;;;	Block name must be POINT.  To adapt for use with other
;;;	block names just replace the string "POINT" below with
;;;	the quoted block name desired (in caps).
;;;

    

;;;(errortrap (quote (setq objDict (vla-item (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object) )) "ACAD_IMAGE_DICT" )))

;;;It will return the result if successful, or T if it is successful and the result of the wrapped expression is nil or nil if Not successful.
;;;By putting it inside an if statement allows the program to continue if successful or stop if not.


;;; Standardized Error Trap

    

;;;Finds layers having linetypes with embedded text and changes their
;;;linetype to continuous.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/1/2011
;;;		   EDITED: 7/1/2011
;;;
;;;AeccDbVAlignment
;;;****************************************************************************

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/11/2010
;;;

    

;;;Steps through two autolisp or other text files comparing line by line.
;;;When differences are found you can specify the number of additional lines to read independently
;;;for either file in order to resume comparing identical lines (if there are any).
;;;
;;;If you use a synchronizing app for your files and you discover conflicts (both files have been
;;;edited since you last synchronized) then this routine can help you determine what those different
;;;edits are and perhaps keep you from losing valuable work.
;;;
;;;It is also helpful for identifying the differences between versions of your routines or text files.
;;;The larger the file, the more helpful it is.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-21-2009
;;;	   Edited: 1-21-2009

    

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

    

;;;Function (findtriangle ) locates the TIN triangle bounding the first point
;;;of the supplied GPDGN alignment definition and returns the point elevation if the triangle exists.
;;;
;;;Requires TIN lines to be on layer w/ name matching *SRF-VIEW*
;;;The function is designed for use by GPDGN (from www.paracadd.com) but can be used stand-alone
;;;via the TINELEV command defined herein.
;;;Results of TINELEV command include highlighting the triangle if found.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/18/2007
;;;		   EDITED: 8/2/2007
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  3-16-2001

    

;; FixDrawOrder.lsp
;;
;; This file defines the FIXDRAWORDER command to repair drawing order tables
;; of block table records, including model space.
;;
;; Rev. #11 (March 06, 2003, 2:30pm)
;; Autodesk, Inc.
;;

;; Using ActiveX functions

    

;;;From Autodesk Developer Network.
;;;"How to manipulate Image Variables using Autolisp"
;;;
;;;Set to this file on 3-11-2008
;;;

    

;;;Resets the position of north arrow, barscale, and plan title, all of which must be in model space and being viewed through the floating viewport (Plan View).
;;;Typically used after repositioning and/or rotating the view.  Barscale and title are rotated to the horizontal if necessary.  North arrow is not.
;;;objects are moved to paper space using CHSPACE and their locations are set to static corrdinates in Paper Space. Then moved to model space again using CHSPACE
;;;
;;;Requirements:	Plan "VIEWPORT" entity must be on layer named "??VI02?????" where ? is any valid layer name character
;;;			Plan "VIEWPORT" entity must occupy the top half of an ANSI-D sheet (so that static paper space corrdinates used in the process will make sense)
;;;			North arrow block name = "northa" (in model space)
;;;			Barscale block name = "BARS" (in model space) where  is an integer
;;;			Plan title "TEXT" entity on layer named "?-VI022LNTX" (in model space) where ? is any valid layer name 1st character
;;;			All of these elements should exist in the drawing before using this function.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-18-2014
;;;	   Edited:	6-19-2014
;;;
;;;****************************************************************************

    

;;;Resets remembered folders for dialog keys listed if the key exists already.
;;;WARNING: Using registry functions incorrectly can cause serious problems that may
;;;require you to reinstall your operating system. Use the registry functions carefully.
;;;
;;;This autolisp program is provided as-is without any warranty of any kind.
;;;Users must examine this function code and satisfy themselves that this program will
;;;function as they desire.  Users must agree that they are solely responsible for the
;;;results and consequences of their use of this function before they make any use of it.
;;;Any use without such agreement is unlicensed and a violation of the author's copyright.
;;;
;;;Under no circumstances will the author be responsible for any results or consequences
;;;that are in any way related to the use of this function code.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2007
;;;		   EDITED: 6/17/2007
;;;
;;;Requires McNeel & Associates DosLib 17.0 (FREE from http://www.mcneel.com/)

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	7-9-1999
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	10-3-2002
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7-9-1999
;;;	   Edited:	7-9-1999
;;;

    

;;;Modify dimension properties to Move text and add a leader
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/2012
;;;	   Edited: 4/2012
;;;

    

;;;Reads DWG_EDIT.LOG and writes parts to FILE1.LOG
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;Get entity data. EDUMP, ASO or UCSC the data.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    

;;;From the swamp 'Bull Frog' (mkweaver)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;  Routine:	 GetBlockInserts							 ;;;
;;;  Purpose:	 Get a list of all insertions of specified blocks.		 ;;;
;;;  Arguments:	 doc - vla-document object (or objectdbx document).  If nil, then;;;
;;;		   the active document is used.					 ;;;
;;;		 bnames - a list of strings, the block names for the subject	 ;;;
;;;		   blocks.							 ;;;
;;;		 ReturnEnames - boolean, non-nil returns entity names, nil	 ;;;
;;;		   returns vla-objects.						 ;;;
;;;  Returns:	 A list of all the insertions of the subject blocks.  -1 if the	 ;;;
;;;		   block is not defined.  Nil if the block is defined but has no	 ;;;
;;;		   insertions, thus:						 ;;;
;;;-----------------------------------------------------------------------------;;;
;;;(("tes1"					 ;insertions of tes1		 ;;;
;;;   #				 ;;;
;;;   #				 ;;;
;;;   #				 ;;;
;;;   #				 ;;;
;;;   #				 ;;;
;;;   #				 ;;;
;;;  )										 ;;;
;;;  ("tes2")					 ;there are no insertions of tes2;;;
;;;  ("tes3" -1)				 ;tes3 doesn't exist		 ;;;
;;;  ("LOGO" #);insertions of logo	 ;;;
;;;  ("BRD_TTL" #);insertions of brd_ttl;;
;;;)										 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    

;;;This will collect function and command names DEFUN'd in selected files and group them by the lisp filename they are in.
;;;It averaged about 22 files per second on over 900 lisp files. several lisp file sizes were over 2MB.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/20/2012
;;;	   Edited: 07/20/2012
;;;
;;;****************************************************************************

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2/10/00
;;;	   Edited:  1/9/2007

    

;;;From http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Extract-Field-Expression/td-p/3364401
;;;Post by gjrcmb
;;;Re: Extract Field Expression 03-09-2012 09:32 AM in reply to: msarqui
;;;Modified to construct the full expression (STRCAT %< before and >% after it) and assign that to symbol fexstr (silently)
;;;fexstr will be fed to text that needs to contain the field value

    

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

    

;;;This function is a subroutine for "our" drawing stamp routine (lbl) defined in lbl.lsp
;;;It assigns to the variable ThisDwgImages a string value that is a list of images in the drawimg.
;;;
;;; AUTHOR: HENRY C. FRANCIS
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;              
;;;  All rights reserved without prejudice.
;;;
;;; Copyright: 2010
;;; Last Edited:  2-24-2011
;;;
;;;Requires rtext-images.dwg which contains an RTEXT image list.  You can recreate it using the RTEXT command.
;;;Using the RTEXT image list directly as part of the stamp is unacceptable as it is a stacked list that
;;;would frequently extend into the drawing area.  rtext-images.dwg  is inserted and exploded twice leaving a
;;;stack of text lines containing image names.  The text lines are read, concatenated into a single string
;;;which is assigned to a lisp variable 'ThisDwgImages', and then the text lines are deleted.
;;;The lisp variable is evaluated by the RTEXT of the drawing stamp (2nd line) to reconstruct the image list.
;;;

    

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

    

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

    

;;;Author unknown
;;;Gets Drawing Properties
;;;

    

;;;Finds matching text strings in text, mtext, and multileaders

    

;;;Text style util. Style text ht=0 (getstyle "A"), restore ht (getstyle "").
;;;
;;;       This is necessary to insure the entries following the text
;;;       command call (command ".text"....) will always require text
;;;       height to be entered so that any height may be specified by
;;;       the function.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		3-11-2005
;;;

    

;;;label grid lines and a viewport.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2004
;;;

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/14/2011
;;;	   Edited: 08/17/2015
;;;
;;;Required subroutines: UPOINT.LSP, UREAL.LSP, UKWORD.LSP, CHKKWDS.LSP (all added to the end of this file for simplicity of standalone use)
;;;
;;;C:GOAROUND Creates a reverse curve polyline (Arcs option), or a straight segment polyline (PI option).
;;;C:GOAROUNDPARTS Creates all of the graphic layout elements for the last reverse curve generated in the current session.
;;;
;;;****************************************************************************

    

;;;Layer macros GOF=grid off, GON=grid on, PTOF, PTON, PTFRZ, PTTHW=point....
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;
;;;******** THIS LISP HAS BEEN RETIRED **********
;;;******** SEE LAMACS.LSP **********

    

;;;Creates 3D breakline between selected AECC_POINT objects
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  12/15/2004
;;;	   Edited:  4/23/2007
;;;

    

;;;Change CORP "gridstyle" between 'Legacy' and 'Standard'
;;;Legacy grid style uses a custom measured-dot dotted linetype and different thicknesses of black pens to effect a 'gray' grid
;;;and was used by some users prior to establishing an office 'standard' grid style.
;;;The grid blocks (drawings) have critically measured grid line lengths to effect coincident dots at line intersections.
;;;If the grid line lengths are not set to exact lengths for this effect the grid dot matrix will not be properly constructed.
;;;Standard grid style uses continuous linetype and selected subdued colors from the 256 color palette (56, 109, 169)

    

;;;C:DUNGroups - Deletes unnamed groups from the drawing
;;;C:DEMGroups - Deletes empty groups from the drawing
;;;C:ListGroups - Lists groups in the drawing

    

;;;"Glue" text strings.  All adopt first's properties.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;	revised: 3/30/2009
;;;

    

;;;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.
;;;
;;;A viewport number is returned (and stored in variable 'viewno) only when
;;;called within floating model space (inside a viewport in a layout)
;;;Model space and Paper space both return NIL
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Revisions:	09/21/2015	coded to make wildcard characters in layout names match as literals
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2005
;;;	   Edited:  2005

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10-28-2014
;;;	   Edited:	10-28-2014
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;****************************************************************************

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    

;;;Checks for the existence of IrfanView.exe and sets symbol 'found_iv' to its path for use by other functions.
;;;if it is found (have_irfanview) returns T in the app it is used in.
;;;
;;;		IrfanView, a free full-featured image editing/conversion application, can be freely downloaded
;;;		from the internet at the time of this writing.
;;;
;;;Function DOS_SPECIALDIR requires the version of Doslib that matches your AutoCAD version.  The correct version
;;;of Doslib is freely available from Robert McNeel & Associates via downloadable from their website.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2010
;;;		   EDITED: 8-29-2010
;;;
;;;****************************************************************************

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;;;Place a "hiding" object over an elliptical area (on layer *7HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		6-13-2003
;;;

    

;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    

;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		6-4-97
;

    

;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		1-29-98
;

    

;;;Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
;;;Adjust spacing using HDSPACE for numeric and HDMATCH for matched text.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		10-25-01
;;;

    

;;;Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		10-7-98
;;;

    

;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2009
;;;		   EDITED: 8-24-2010
;;;

    

;;;HTML browser front end Suitable for inclusion in VLX applications
;;;primarily used to display html help files for ParaCADD's apps
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;		http://www.paracadd.com/
;;;
;;;  Copyright:	1/27/2002
;;;     Edited:	4/21/2010
;;;
;;;****************************************************************************

    

;;;Creates a duplicate polyline/lwpolyline of specified width on new layer with color 250.
;;;Draworder command is exectued putting new polyline "Under" original polyline.
;;;Color 250 is intended to plot as true white leaving a blank space where the new polyline is.
;;;The net effect is a blank area of the specified width along the original polyline.
;;;Expects CAD Layer Guidelines (CLG) layers which it will match except for color.
;;;If CLG layer is not found it creates a new CLG layer "G-DETLUHIDE" by default.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7-29-08
;;;		   EDITED: 7-29-08
;;;

    

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

    

;;;Draws Handrail
;;;(constructs any closed polyline, varying width, parallel line object with
;;;flat, round, and/or 45� pointed ends)
;;;Optionally, pointed ends may be 'long' or 'short', and 'above' or 'below', to
;;;simulate angled intersections (�45�) to the drawing plane in one or two axes.
;;;
;;;Use draworder to arrange parts as required.  Use two adjoiningparts with
;;;'open' ends where one end is above and the other end is below another part.
;;;
;;;Requires: MKLAYR.LSP, UUTILS.LSP
;;;Hiding requires: HDCIRC.DWG, HDBOX.DWG, 1X1.BMP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-22-96
;;;	Edited:		1-22-2008
;;;

    

;;;Place house number text at point location.  (requires PTDCL run first).
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Scaled block insertion routine (dimscale)

    

;;;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://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2/1995
;;;	   Edited:  6/7/2001
;;;
;;;

    

;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-3-2001
;;;	   Edited:  3-3-2001

    

;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 11/9/2015
;;;	   Edited: 11/9/2015
;;;

    

;;;I had a bunch of images to tile together all the same size.
;;;This routine helped me do it very quickly.  Manually would have taken too long.
;;;The idea might be of some help but this only works with the exact images names
;;;and paths I needed.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;

    

;;;Commands DEFUN'd:
;;;	HIDEPREP  (or IMGPREP) initializes attachment of image 1X1.BMP to enable its use. Okay to delete the image occurence from this.
;;;	HIDEDONUT (or IMGDONUT) creates a donut shaped clipped instance of 1x1.bmp.
;;;	HIDEARC   (or IMGARC) creates an arc shaped clipped instance of 1x1.bmp
;;;	HIDEBDRY  creates a new instance of 1x1.bmp and clips it along the selected polyline boundary (arc segments are okay).
;;;	CLIPIMAGE clips an existing instance of any image to a selected polyline boundary.
;;;		  (Boundary should lie within the image for best results, arc segments are NOT followed, see note below)
;;;
;;;	Note:	PLXL.LSP (command: PLXL) will convert polylines with arcs into polylines with multiple straight segments whose vertices lie on the original arc.
;;;		A small user specified deflection angle (5� or less) will produce segments that approximate the appearance of the original arc.
;;;     	Using PLXL allows easy preparation of a polyline for clipping an image using a polyline that had contained arc segments.
;;;		If the arc segments remain in the polyline boundary the resulting image clip boundary will lie straight along the chords of the arcs.
;;;		HIDE... commands handle arcs in polylines internally.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2004
;;;	   Edited:  6-17-2010
;;;
;;;
;;;****************************************************************************