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

The information shown for each file was automatically extracted from the files
Many files simply do not have a description, sorry. Some files are junk or scraps.
Use "Find" to locate files or topics.
Every effort has been made to eradicate the copyrighted works of others from this listing unless inclusion here is permitted by the author.
There are 915 files in this list. If you discover any copyrighted work that should not be here or if you find a link is broken please tell us.
Contact Us

Drawings used by these routines are here
Updated November 28, 2021

-access-to-the-options-dialog-properties.lsp
;;make sure vl- functions work

    
-an open method.lsp
;;;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:


    
Commands/functions defined: cmdopen, openinplace
-make variant stuff.lsp

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

    
Commands/functions defined: c:100yr
Requires:dimscl, getstyle, gvpno, mklayr, set_mjrg, uint, upoint, ureal, ustr, uutils,
3dcont.lsp

    
Commands/functions defined: c:3dcont, convto3d
Requires:mklayr,
3dface2lines.lsp
;;;*****************************************************************************
;;;3DFACE2LINES creates 3D lines along edges of 3Dfaces
;;;Checks for and will not create duplicate lines.

    
Commands/functions defined: c:3dface2lines, c:delzero, c:endcoin
Requires:ureal, ustr,
3dlline.lsp
;;;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

    
Commands/functions defined: c:3dline, pr3dline
Requires:ureal, ustr,
aadgrid.lsp
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-2005
;;;

    
Commands/functions defined: c:adgrid
Requires:mklayr, upoint,
abbr.lsp
;;;
;;;
;;;	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
;;;
;;;****************************************************************************

    
Commands/functions defined: abbr_alert, abbr_error, abbrhelp, abrad_chk, abrlstfun, c:abbr, c:abbraddn, c:abbrdraw, c:abbrload, c:abbrsave, c:abbrshow, c:abbrtextin, delabbr_lst, descr_txt, set_colr, sort_abbr, stripspaces
Requires: Doslib, abrkstr, dimscl, txtsize, ukword, upoint, ureal,
abbrlst.lsp
;;;Adds words used in a drawing to Abbr.txt in the drawing's folder or
;;;creates Abbr.txt if it does not exist. Does not make duplicate entries.
;;;Run in every drawing to list all abbreviations and other words used
;;;across a project. Cannot recognize words in Xrefs or nested blocks.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited: 11-23-2005
;;;
;;;****************************************************************************

    
Commands/functions defined: abbrlst, additems, c:abbrfiles, c:abbrlst, c:abbrsrch, mtxtsubr, snglabbrsrch
Requires: Doslib, ukword, ustr,
abrkstr.lsp
;;;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
;;;

    
Commands/functions defined: abrkstr, clr_txt
Requires: Doslib, ukword, ustr,
abstr.lsp
;;;Apply word wrap to a text string (makes multiple lines from single line).
;;;Uses ABRKSTR.LSP, UINT.LSP.
;;;
;;;Added L2 L3 L4 macros for quick multiline breaks.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Created:	10-4-98
;;;	Edited:		1-9-2006
;;;
;;;********************************************************************

    
Commands/functions defined: c:abstr, c:l10, c:l2, c:l3, c:l4, c:l5, c:l6, c:l7, c:l8, c:l9
Requires: Doslib, abrkstr, tnote, uint,
acaddoclist.lsp
;;;Adapted from original code from AfraLisp
;;;http://www.afralisp.net/visual-lisp/tutorials/collections-part-1.php
;;;
;;;		   EDITED: 8/31/2010
;;;
;;;****************************************************************************

    
Commands/functions defined: acaddoclist, acaddocstatus, quotepaths
Requires: Doslib, check_for_doslib,
accxes.lsp
;;;Shortcut to startup AccXESTools (Xreox tools for communication with 8825 scanner/plotter)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/1/2001
;;;	   Edited:  3/1/2001

    
Commands/functions defined: c:accxes
Requires: Doslib, check_for_doslib,
acprefs.lsp
;;;AutoCAD preferences exposed via Visual Lisp functions

    
Commands/functions defined: c:acprefs
Requires: Doslib, autodpifix,
addbreaklines.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:addbreaklines
Requires: Doslib, autodpifix,
addno.lsp
;;;Quick and dirty routine to append a number to a text string.
;;;Will work on any selectable object having an association group of 1.
;;;Fails if object selected does not have an association group of 1.
;;;The number will have the current precision.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/31/00
;;;	   Edited:  3/31/00

    
Commands/functions defined: c:addno
Requires:ureal,
addrevs.lsp
;;;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/
;;;

    
Commands/functions defined: addrevs, adrevcore, c:addrevs, modrevents, setrevs
Requires:mklayr, ustr,
addtokens.lsp
;;;Takes a READ-LINE string from a lisp file and adds only the user symbols
;;;which are found prior to any ; to the list 'alltokens' if they are not
;;;already in the list.
;;;
;;;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
;;;

    
Commands/functions defined: addtokens, list_allatoms
Requires:mklayr, ustr,
adgrid.lsp
;;;Place a standard Profile Grid array
;;;beginning at the lower left point you specify and
;;;terminating at the upper right point you specify.
;;;
;;;Uses UPOINT.LSP, MKLAYR.LSP
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		12-6-2005
;;;

    
Commands/functions defined: c:adgrid
Requires:mklayr, ukword, upoint,
adjnum.lsp
;;;Change the first number in a text string by the user specified value. The
;;;new number is conformed to the units if precision specified by the user.
;;;
;;;If specified units of precision are greater than the precision of the original
;;;number zeros are added to the string to display them.  Actual digits reflecting
;;;the precise number intended by the user cannot be determined by this routine.
;;;
;;;If precision is reduced by the user it cannot be regained by this routine.
;;;The prior digits of higher precision are discarded and cannot be recovered
;;;except by the method they were originally obtained or other equal method.
;;;
;;;(uses UINT USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-27-2005
;;;

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

    
Commands/functions defined: c:adjsta
Requires:stait, uint, ustr,
adjtag.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:adjtag, c:swaptag
Requires:dimscl, gvpno, ukword, upoint,
adjustaeccpipenetworkobjects.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
;;;

    
Commands/functions defined: c:adjustaeccpipenetworkobjects
Requires:c3difodoc,
adx.lsp
;;; CADALYST 04/07  Tip 2200: ADX.lsp 	Aligned Multiple Line Text 	(c) 2007 David Harrington 


    
Commands/functions defined: c:adx, dtr, getnearpt, rtd, text_angle
Requires:c3difodoc,
aeccpipename.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

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

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

    
Commands/functions defined: c:alarm
Requires: Doslib, uint,
align3d.lsp

    
Commands/functions defined: c:align3d, c:alncirc3d, c:grdcirc3d
Requires: Doslib, uint,
all.lsp
;Make all lines vertical.  End with lowest Y is held, other end assumes X of held point.
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;
;	http://www.paracadd.com
;	All rights reserved.
;

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

    
Commands/functions defined: c:allbnd ()
Requires: Doslib, uint,
allfolders.lsp

    
Commands/functions defined: c:allfolders, c:minfolders, c:mutcdfolder
Requires: Doslib, uint,
allpttxt.lsp

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

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

    
Commands/functions defined: angl_error, c:angl
Requires:rotx, uangle, upoint,
angline.lsp
;C:ANGL - place line at an angle to selection. Requires ROTX.LSP, UPOINT.LSP, UANGLE.LSP.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-14-93
;	Edited:		5-4-00
;

    
Commands/functions defined: c:angl, c:angl90
Requires:rotx, uangle, upoint,
annoscl.lsp
;;;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

    
Commands/functions defined: c:annoscl
Requires:rotx, uangle, upoint,
ansi_d_sheet.lsp
;;;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
;;;

    
Commands/functions defined: ansi-d-sheet, copy-tb-to-project-folder
Requires: Doslib, set_drive_letters, setstdpage, ukword, ustr,
ansiappvp.lsp
;;;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
;;;

    
Commands/functions defined: c:ansiappvp
Requires:uint,
ansiavp.lsp
;;;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
;;;

    
Commands/functions defined: c:ansiavp
Requires:uint,
ansiavp_l.lsp
;;;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
;;;

    
Commands/functions defined: c:ansiavp_l
Requires:uint,
ansibvp.lsp
;;;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
;;;

    
Commands/functions defined: c:ansibpl2, c:ansibvp
Requires:mymview,
ansiddblppvp.lsp
;;;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
;;;

    
Commands/functions defined: c:ansiddblppvp
Requires:ukword,
ansidppvp.lsp
;;;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
;;;

    
Commands/functions defined: c:ansidpp2, c:ansidppvp
Requires:ukword,
ansidvp.lsp
;;;Creates viewport just inside our standard ANSI-D size sheet border.
;;;Includes a notch around our revision block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 5-2-2008
;;;

    
Commands/functions defined: c:ansidpl2, c:ansidvp
Requires:mymview, uint, ukword,
ansidvpm.lsp
;;;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
;;;

    
Commands/functions defined: c:ansidvpm
Requires:mklayr,
ansifppvp.lsp
;;;Creates plan viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;Creates 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
;;;

    
Commands/functions defined: c:ansifppvp
Requires:mklayr,
ansifvp.lsp
;;;Creates viewport just inside NAVFAC standard ANSI-F size sheet border.
;;;Includes a notch around our revision block and title block.
;;;
;;;Expects the border to be scaled 1:1 with origin at 0.0,0.0 per standard.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2-6-2006
;;;	   Edited: 2-6-2006
;;;

    
Commands/functions defined: c:ansifvp
Requires:mklayr,
arch_d_sheet.lsp
;;;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
;;;

    
Commands/functions defined: arch_d_sheet
Requires:mklayr,
archdims.lsp

    
Commands/functions defined: c:archdims
Requires:mklayr,
archdppvp.lsp
;;;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
;;;

    
Commands/functions defined: c:archdppvp
Requires:ukword,
archdvp.lsp
;;;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
;;;

    
Commands/functions defined: c:archdvp
Requires:ukword,
archdvpm.lsp
;;;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
;;;

    
Commands/functions defined: c:archdvpm
Requires:mklayr,
archldrs.lsp

    
Commands/functions defined: c:archldrs
Requires:mklayr,
arclineinters.lsp

    
Commands/functions defined: c:alint
Requires:mklayr,
arctopl.lsp
;;;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
;;;

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

    
Commands/functions defined: c:aros
Requires:mklayr,
ascii.lsp
;;;Writes ASCII character set to the screen and to a file.

    
Commands/functions defined: c:ascii
Requires:mklayr,
asin.lsp
;;;subroutine for arcsine.  requires a sine value as input with the function call
;;;COND traps for limits of function (0, 1, -1) and returns the correct value.

    
Commands/functions defined: asin
Requires:mklayr,
atext.lsp
;;;Append TEXT to strings
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	9/9/98
;;;	Edited:		9/9/98
;;;

    
Commands/functions defined: c:atext
Requires:ukword, ustr, uutils,
atomsdiff.lsp
;;;Run once before a suspect event and once after it to see if the atoms-family has changed.

    
Commands/functions defined: c:atomsdiff
Requires:ukword, ustr, uutils,
attang.lsp
;;;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

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

    
Commands/functions defined: c:attcol
Requires:uint, ustr,
atted1.lsp
;;;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
;;;

    
Commands/functions defined: atted1_error, c:atted1, c:ea1, edit_str, fun, next_attr
Requires:ukword,
atthk.lsp
;;;Change attribute's thickness (attributes and text with thickness other than zero may
;;;be hidden by solids, 3dfaces, circles or any other surface upon hidden line removal).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  3-16-2001

    
Commands/functions defined: c:atthk
Requires:ureal, ustr,
attht.lsp
;;;Change attribute's height
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3-16-2001
;;;	   Edited:  1-25-2006

    
Commands/functions defined: c:attht
Requires:ukword, ureal, ustr,
atthw.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:atthw, c:showatthw
Requires:dimscl, ureal,
attincr.lsp
;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    
Commands/functions defined: c:attincr
Requires:dimscl, ureal,
attr2txt.lsp
;;;Convert attribute definition entities (attdef) into text entities.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:attr2txt
Requires:dimscl, ureal,
attupd.lsp
;;;Attribute update subroutine (attupd [blockname] [attribname] [newvalue])
;;;Used extensively in scripts to rapidly change title block fill-ins.
;;;
;;;	1-15-2004 added var [testvalue] - user must (setq testvalue ).
;;;	If [testvalue] is not NIL AND not eq current [attribname] value the current
;;;	[attribname] value remains unchanged.
;;;	If [testvalue] is NIL the program will update [attribname] to [newvalue]
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	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.
;;;
;;;****************************************************************************

    
Commands/functions defined: attupd, attupd_core, select_core
Requires:dimscl, ureal,
attupdm.lsp
;;;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
;;;

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

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

    
Commands/functions defined: c:attxtj
Requires:ukword, upoint,
atwid.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

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

    
Commands/functions defined: c:autod
Requires:ustr,
autodpifix.lsp
;;;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: 
;;;

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

    
Commands/functions defined: c:autod
Requires:ustr,
autotags.lsp
;;;
;;; Author:
;;;  Henry C. Francis
;;;  425 N. Ashe St.
;;;  Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;; All rights reserved.
;;;
;;; Copyright:  2010
;;;    Edited:  2-8-2010
;;;****************************************************************************

    
Commands/functions defined: autotags_error, c:autotags, c:edtags, tag_cond
Requires: Doslib, check_for_doslib, dimscl, getstyle, gp_laysets, gpdgn, gvpno, txtsize, ukword, ustr, vpbnd,
autowhodunit.lsp

    
Commands/functions defined: autowhodunit
Requires: Doslib, attupd, check_for_doslib,
backup.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    
Commands/functions defined: c:backup, filedate-real-yr
Requires: Doslib, check_for_doslib,
bandj.lsp
;Automatic placement of bore & jack casing pipe in profile.
;
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	1-30-96
;	Edited:		1-30-96
;

    
Commands/functions defined: c:bandj
Requires:mklayr, dimscl, uint, upoint,
basevars.lsp

    
Commands/functions defined: c:basevars
Requires:mklayr, dimscl, uint, upoint,
batlayplt.lsp

    
Commands/functions defined: batlayplt
Requires:autodpifix, check_for_doslib, lbl,
bcen.lsp
;;;Exercise in polyline bulge (arc) math to determin a point for text
;;;on the arc and the angle tangent to that point.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;

    
Commands/functions defined: bcen
Requires:autodpifix, check_for_doslib, lbl,
bdline.lsp
;;;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
;;;

    
Commands/functions defined: c:bdline
Requires: Doslib, check_for_doslib, ukword, upoint, ureal, ustr,
bflg.lsp
;;;Place a block named BFLG near the end of a line. (flange, a pipe fitting part)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 8-6-00
;;;	   Edited: 8-6-00
;;;

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

    
Commands/functions defined: c:bl
Requires:bub, mklayr, getstyle, gvpno, txtsize, upoint, ustr,
bldgpl.lsp
;;;
;;;	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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:bldg, c:bldgpl
Requires:setbldg, upoint,
blkang.lsp
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6/28/2007
;;;	Edited:		7/5/2007
;;;

    
Commands/functions defined: c:blkang
Requires:uangle,
blkcolt.lsp
;;;Force all block definition entities whose color or linetype is neither BYLAYER or BYBLOCK
;;;to have their nonconforming color and/or linetype set to BYLAYER.
;;;
;;;Force all embedded text without thickness to have a thickness of 1.  (So it can be hidden)
;;;
;;;Blocks exempt from processing are: XREFs, "ADCADD_ZZ", "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

    
Commands/functions defined: c:blkcolt
Requires:uangle,
blkguts.lsp

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

    
Commands/functions defined: c:blklay
Requires:ustr,
blklst.lsp
;;;Construct a list of entity lists contained in a block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:blklst
Requires:ustr,
blkran.lsp
;;;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
;;;

    
Commands/functions defined: c:blkran
Requires:ureal,
blkscl.lsp
;Scale Block occurances, one or many.
;
;	AUTHOR: Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-22-94
;	Edited:		12-22-94
;

    
Commands/functions defined: c:blkscl
Requires:ureal, ustr,
blkxport.lsp
;;;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
;;;

    
Commands/functions defined: blkxport_error, c:blkxport, c:purgeblocks
Requires: Doslib, dimaro, ukword,
blockedit.lsp
;;;==================================================================================================

    
Commands/functions defined: funfunfunfun
Requires:ukword,
bookpagenos.lsp
;;;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).

    
Commands/functions defined: c:bookpagenos
Requires:ukword,
bplxl.lsp
;;;
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright:
;;;     Edited:
;;;

    
Commands/functions defined: c:bplxl
Requires:ukword,
bproj.lsp
;;;Sets the list of files to plot based on CDMNDX.TXT for the project.
;;;Calls BPLOT once the list is made.  (CDMNDX.TXT is written by CDMNDX.LSP)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2-13-2001
;;;	   Edited:  10-1-2003

    
Commands/functions defined: c:bproj
Requires:bplot2k,
bran.lsp
;Modify the rotation angle of a selection of block entities.
;The only input required is the desired
;rotation angle and selection of the blocks to modify.
;
;	AUTHOR:
;		HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
; 
;		All rights reserved without prejudice.
;       Copyright:  8-30-95
;          Edited:  8-30-95
;

    
Commands/functions defined: c:bran
Requires:ureal,
brat.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

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

    
Commands/functions defined: c:breal
Requires:uint, ukword, ustr,
brkl.lsp
;;;Place breakline symbol as a polyline.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-16-94
;;;	Edited:		6-28-2010
;;;

    
Commands/functions defined: c:brkl
Requires:dimscl, gvpno, mklayr, set_mjrg, upoint,
brot.lsp
;;;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
;;;

    
Commands/functions defined: c:brot
Requires:ureal,
browser_help.lsp
;;;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
;;;

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

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

    
Commands/functions defined: c:bscl, make_bscl_group, make_line, make_text
Requires:dimscl, gvpno, make_layer_ent, mklayr, set_mjrg, txtsize, upoint,
bstr.lsp
;;;Break a text string into two strings and automatically.
;;;Places the 'cut' string above or below the first at the same
;;;justification, etc. with 1/2 text height space between.
;;;Optionally: Adds a line of text above or below existing text.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;     Copyright: 1995
;;;        Edited: 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
;;;
;;;****************************************************************************

    
Commands/functions defined: brk-comma, c:bstr, c:cd, c:cu, c:f2l, c:fw2lw, c:fwtolw, c:l2f, c:lw2fw, c:lwtofw, c:swaptext, c:swtxt, sel2textents
Requires: Doslib, dimscl, ukword, ustr,
bub.lsp
;;;Place a detail bubble, single or multiple references.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-17-95
;;;	Edited:		2-10-2011
;;;

    
Commands/functions defined: c:bub
Requires:dimscl, getstyle, gvpno, mklayr, set_mjrg, ukword,
bubfix.lsp
;;;Replaces dumb "circle-line-text" CDM bubbles with block versions of CDM bubbles.
;;;Retains existing fill-in info.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:bubfix ()
Requires:bubfix, dimscl,
bubn.lsp
;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-27-94
;;;	Edited:		2-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)
;;;

    
Commands/functions defined: c:bubn
Requires:dimscl, gvpno, mklayr, set_mjrg, upoint,
bubupd.lsp
;;;bubble update subroutine (bubupd [blockname] [old_sdname] [new_sdname] [old_callon] [new_callon])
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      2-19-2004
;;;       Edited:         2-19-2004
;;;

    
Commands/functions defined: bubupd
Requires:dimscl, gvpno, mklayr, set_mjrg, upoint,
bulgebypnts.lsp
;;;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
;;;

    
Commands/functions defined: bulgebypnts
Requires:dimscl, gvpno, mklayr, set_mjrg, upoint,
bulgeit.lsp
;;;
;;;
;;;	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
;;;
;;;******************************************************************************

    
Commands/functions defined: c:bulgeit, c:unbulgeit
Requires:ukword,
byline.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:bulgeit, c:unbulgeit
Requires:ukword,
c3d.lsp
;~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;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)
;*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
;|

    
Commands/functions defined: @delta, 3d_angw1w2, c:c3d, convto3d, entmakelwpline, n, normalangle, trace3dpline, traceace, traceline, traceobject, tracepline, tracespline, tracetolwplineobj, tracetolwplinepoint, tracetype1pline, tracetype23pline, ucszdir, zclosed
Requires:3d,
c3difodoc.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c3difodoc
Requires:errortrap,
calctxt.lsp

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

    
Commands/functions defined: assign_line, c:cdfcon (/
Requires:ukword,
ce.lsp
;;;Change selection set color, linetype to BYLAYER and lineweight to Default.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 6-7-94
;;;>		   EDITED: 01-08-2007
;;;

    
Commands/functions defined: c:ce
Requires:ukword,
ce2b.lsp
;;;Change entity selection set color, linetype, and/or lineweight to BYLAYER.
;;;
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		1-8-2007
;;;

    
Commands/functions defined: c:ce2b
Requires:ukword,
cec.lsp
;Change entity color, one or many
;

    
Commands/functions defined: c:cec
Requires:uint,
cescs.lsp
;;;Place a US Army Corps of Engineers or a "Standard" Section Cut Symbol
;;;in the drawing at any orientation.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-10-93
;;;	Edited:		2-10-2011
;;;

    
Commands/functions defined: c:scs
Requires:dimscl, mklayr, set_mjrg, ukword, upoint,
cgpt.lsp
;;;Requires Land Desktop - "AeccXUiLand.AeccApplication.6.0"

    
Commands/functions defined: c:cgpt
Requires:c3difodoc,
chain.lsp
;;;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
;;;

    
Commands/functions defined: c:chain
Requires:dimscl, upoint, ureal,
changesupportpath.lsp

    
Commands/functions defined: c:changesupportpath
Requires:dimscl, upoint, ureal,
chassoc.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: chassoc
Requires:dimscl, upoint, ureal,
check_for_doslib.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: check_for_doslib
Requires:dimscl, upoint, ureal,
chgplw1.lsp
;Change the width of a selected set of polylines as a group
;with only one command sequence.
;
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, N.C. 28387
;		All rights reserved without prejudice.
;
;	Copyright:	7-22-91
;	Edited:		7-22-91
;

    
Commands/functions defined: c:cplw
Requires:dimscl, upoint, ureal,
chkapps.lsp

    
Commands/functions defined: c:chkapps, c:killallapps, c:killwipeoutxdata, c:lmankill, c:purgeappids
Requires:dimscl, upoint, ureal,
chkctabname.lsp

    
Commands/functions defined: chkctabname
Requires: Doslib, check_for_doslib,
chkkwds.lsp

    
Commands/functions defined: chkkwds
Requires: Doslib, check_for_doslib,
chklasp.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:chklasp
Requires: Doslib, check_for_doslib,
chkslope.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:chkslope, fix_no, get_inv_no, get_sta_no
Requires: Doslib, check_for_doslib,
chkxrefsizes.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

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

    
Commands/functions defined: c:cirad
Requires:dimscl, ureal,
cirtans.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:cirtans
Requires:dimscl, ureal,
civltype.lsp

    
Commands/functions defined: c:civltypes
Requires:dimscl, ureal,
cl.lsp
;Constructs a pair of center lines through the center of a circle.
; ******************************************************************
;                          CL.LSP
;
;    By Simon Jones    Autodesk Ltd , London      March 1987
;
;  This macro constructs a pair of center lines through the
;  center of a circle. The lines are put on a layer "CL".
;
; ******************************************************************


    
Commands/functions defined: c:cl, clerr
Requires:dimscl, ureal,
cl_f_sheet.lsp
;;;Camp Lejeune 40x28 (ANSI F Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	9-29-2005
;;;

    
Commands/functions defined: cl_f_sheet
Requires:dimscl, ureal,
clab.lsp
;;;Place formatted northing and easting coordinates with a leader
;;;at the selected point.  The coordinates are first placed on
;;;the selected point and then selected to be moved to the desired location.
;;;Only two entry points are required, the point to label and the "move to"
;;;location for the label.  The coordinates may be placed to the right or left
;;;of the point and a leader will be placed to correspond.
;;;
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:clab, clab_error, clab_mldrfun
Requires:dimscl, getstyle, gvpno, make_layer_ent, mlt, mymldr, txtsize, uint, ukword, upoint, ustr,
clbl.lsp
;;;Label contour polylines with their elevation.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	3-16-96
;;;	Edited:		2-10-2011
;;;

    
Commands/functions defined: c:clbl
Requires:mklayr, dimscl, gvpno, set_mjrg, txtsize, uint, upoint,
cldescr.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:cldescr, setlayerdescr
Requires:ustr,
cleanxng.lsp

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

    
Commands/functions defined: bulge, c:clfen
Requires:dimscl, upoint, ureal,
clg_color.lsp
;;;C:CLG_COLOR sets the CLG (modified) color field of the layer name from a dialog.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    
Commands/functions defined: c:clg_color, citocs, cstoci, get_color_no, set_clg_color, set_color_no
Requires:dimscl, upoint, ureal,
clgentof.lsp
;Layer on/off/freeze/thaw tool keyed to CLG fields.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	7-10-94
;	Edited:		7-10-94
;

    
Commands/functions defined: c:clgentof
Requires:ustr,
closedwg.lsp

    
Commands/functions defined: c:closedwg
Requires:ukword,
cloud.lsp
;;;Place a revision cloud.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:cloud(/, c:swaparcs
Requires: Doslib, bulgeit, dimscl, gvpno, mklayr, ukword, upoint, ureal, ustr,
cmdopen.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: fun
Requires:dlog, log_it, myopencmd,
cmdwait.lsp

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

    
Commands/functions defined: c:cnl, cnl_set_image, setarray, setldr
Requires:archldrs, browser_help, dimscl, gvpno, mklayr, set_mjrg, txtsize, uint, ukword, upoint,
cntag.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:cntag
Requires:dimscl, upoint, ustr,
coirwatl.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:coirwattle
Requires:get_gpdgn_project_data, mklayr, uint, ustr,
commands.lsp
;;;
;;;	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
;;;

    
Commands/functions defined: c:commands, c:dclfiles, c:lispfiles
Requires: Doslib, check_for_doslib, ustr,
comparefiles.lsp
;;;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

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

    
Commands/functions defined: condattupd
Requires: Doslib, check_for_doslib, ustr,
conndots.lsp
;;;
;;;	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
;;;

    
Commands/functions defined: c:conndots
Requires: Doslib, 3d, make_layer_ent, stdltypes, uint, ukword, upoint, ureal,
conndots2.lsp

    
Commands/functions defined: c:conndots
Requires:make_layer_ent, uint, ukword, upoint,
-make variant stuff.lsp

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

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

    
Commands/functions defined: c:conote (/
Requires:dimscl, mklayr, uint, upoint,
contourlayers.lsp

    
Commands/functions defined: c:contourlayers
Requires:mklayr, ukword,
control-custom.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: control-custom
Requires: Doslib, check_for_doslib, ed, fixrememberfolders, open, qsave, quit, save, saveas, textscrnmem, uutils,
copyimagelocal.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    
Commands/functions defined: c:copyimagelocal (), c:cpimgl, c:networkimagepath (), c:nwimg
Requires: Doslib, copyimagelocal, check_for_doslib,
copytnotefiles.lsp

    
Commands/functions defined: c:copytnotefiles
Requires: Doslib, copyimagelocal, check_for_doslib,
corp_a_sheet.lsp
;;;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
;;;

    
Commands/functions defined: corp_a_sheet
Requires: Doslib, setstdpage,
corp_a_sheet_l.lsp
;;;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
;;;

    
Commands/functions defined: corp_a_sheet_l
Requires: Doslib, setstdpage,
corp_a_sheet_ls.lsp
;;;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
;;;

    
Commands/functions defined: corp_a_sheet_ls
Requires: Doslib, setstdpage,
corp_a_sheet_p.lsp
;;;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
;;;

    
Commands/functions defined: corp_a_sheet_p
Requires: Doslib, setstdpage,
corp_ad_cover.lsp
;;;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
;;;

    
Commands/functions defined: corp_ad_cover
Requires: Doslib, attupd,
corp_b_sheet.lsp
;;;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
;;;

    
Commands/functions defined: corp_b_sheet
Requires: Doslib, setstdpage,
corp_d_cover.lsp
;;;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
;;;

    
Commands/functions defined: corp_d_cover
Requires: Doslib, attupd, setstdpage,
corp_d_csfill.lsp
;;;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
;;;

    
Commands/functions defined: corp_d_csfill
Requires: Doslib, attupd, setstdpage,
corp_d_cstitle.lsp
;;;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
;;;

    
Commands/functions defined: corp_d_cstitle
Requires: Doslib, attupd, setstdpage,
corp_d_sheet.lsp
;;;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
;;;

    
Commands/functions defined: copy-tb-to-project-folder, corp_d_sheet
Requires: Doslib, set_drive_letters, setstdpage, ukword, ustr,
corp_sheets.lsp

    
Commands/functions defined: corp_d_sheet
Requires: Doslib, set_drive_letters, setstdpage, ukword, ustr,
corpndx.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:corpndx, corpndx, corpndx_error, vpbnds
Requires: Doslib, attupd, getfield,
corrdrill.lsp
;;;This drills into a corridor object
;;;Only a few rabbit trails are followed
;;;Cannot find any object that exposes a Region's target(s)

    
Commands/functions defined: c:corrdrill
Requires: Doslib, attupd, getfield,
cpl.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:cpl, fixblktxt
Requires:dimscl, gvpno, make_layer_ent, mklayr, transpt, ukword, ustr,
cplots.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:cplots
Requires:dimscl, gvpno, make_layer_ent, mklayr, transpt, ukword, ustr,
cplx.lsp
;;;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
;;;

    
Commands/functions defined: c:cplx
Requires:dimscl, gvpno, mklayr, ukword, vpset,
cppdviews.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:cplx
Requires:dimscl, gvpno, mklayr, ukword, vpset,
csidetails.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:csidetails, csi_error, list_path_folders, set_open_path
Requires: Doslib, check_for_doslib, ukword,
ctc.lsp
;;;Sets case of selected text and of attributes in selected blocks.
;;;Default is all uppercase.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-7-94
;;;	Edited:		9-5-2013
;;;
;;;	9-5-2013	added MTEXT and MULTILEADERS
;;;			added Title case

    
Commands/functions defined: c:ctc, titlecase
Requires: Doslib, ukword,
ctol.lsp
;Copy a selection set to a specified layer.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	3-19-96
;	Edited:		3-19-96
;

    
Commands/functions defined: c:ctol
Requires:ustr,
ctxt.lsp

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

    
Commands/functions defined: c:ctbl
Requires:mklayr, dimscl, getstyle, txtsize, ukword, upoint,
da.lsp
;;;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
;;;

    
Commands/functions defined: c:da
Requires:dimscl, mklayr, upoint,
darrow.lsp
;;;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
;;;

    
Commands/functions defined: c:darrow, darrow_error
Requires:dimscl, mklayr, upoint,
dblockcode.lsp
;;;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
;;;

    
Commands/functions defined: dtr, mymodifybk, rtd, setpropvalue
Requires:dimscl, mklayr, upoint,
dblppgrid.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: c:dblppgrid, ppgrid_error
Requires:mklayr, ukword,
ddhtext.lsp
;;;Place "hiding" objects over each text string. (on layer ?-NPLT?????HS).
;;;Adjust spacing using HDSPACE for numeric and HDMATCH for matched text.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;
;;;	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.
;;;

    
Commands/functions defined: c:ddhtext, c:ehdt, c:hdmatch, c:hdspace, c:hdupd, ddhtextsof, dodraworder, getsets, hdtext, hdtext_values, set_margin, ukword, ureal, ustr
Requires:browser_help, dims, dimscl, gvpno, pttxt, uutils, vpset,
ddlines.lsp

    
Commands/functions defined: c:ddlines
Requires:browser_help, dims, dimscl, gvpno, pttxt, uutils, vpset,
ddupent.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:ddupent
Requires:browser_help, dims, dimscl, gvpno, pttxt, uutils, vpset,
debugon.lsp
;;;
;;;	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

    
Commands/functions defined: c:alldebugoff, c:alldebugon, c:debugoff, c:debugon, getdebugwords
Requires: Doslib, ukword,
debugsetvar.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

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

    
Commands/functions defined: c:ddatte, c:ddedit, c:ded, ded_error
Requires:ustr,
delaeccdup.lsp
;;;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
;;;

    
Commands/functions defined: c:delaeccdup, c:delaeccpntdup
Requires:c3difodoc, delduplin,
delduplin.lsp
;;;
;;;Deletes duplicate line, circles, blocks, or points
;;;

    
Commands/functions defined: c:deldupblk, c:deldupcir, c:delduplin, c:delduppt
Requires: Doslib, delaeccdup, ukword,
deletepagesetups.lsp

    
Commands/functions defined: c:deletepagesetups, deletepagesetups
Requires: Doslib, delaeccdup, ukword,
deletesectionbystyle.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

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

    
Commands/functions defined: c:delimin
Requires: Doslib, delaeccdup, ukword,
delocnp.lsp

    
Commands/functions defined: delocnp
Requires: Doslib, delaeccdup, ukword,
delptpl.lsp
;;;Delete LWpolylines with only two coincident vertices (point polylines).
;;;Explodes all other two vertex LWpolylines to make them Lines.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:delptpl
Requires:ukword,
delspotldr.lsp

    
Commands/functions defined: c:delspotldr
Requires:ukword,
dictedit.lsp
;; Dictionary Editing tools
;; by Irn� Barnard


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


    
Commands/functions defined: dict-clear, dict-get, dict-getrawdata, dict-list, dict-name, dict-new, dict-put, dict-remove, en-list, myregapp, pop(a, re-list, re-list-aux(), x-enlist, x-relist, x-relist-aux()
Requires:ukword,
diesel.lsp
;;;Diesel test function (see customization manual)
;;;

    
Commands/functions defined: c:diesel
Requires:ukword,
diimscl.lsp



    
Commands/functions defined: dimscl
Requires:gvpno, ureal,
dimaro.lsp
;;;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.
;;;

    
Commands/functions defined: dimaro
Requires:gvpno, ureal,
dimext.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:dimext, c:dimextoff
Requires:ukword,
dimleaders.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:dimleaders
Requires:ukword,
dimscl.lsp
;;;
;;;
;;;	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.
;;;

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

    
Commands/functions defined: c:dimseg
Requires:engrdims, engrldrs, ureal,
dimstd.lsp
;;;;
;;;;
;;;;	Author:
;;;;		Henry C. Francis
;;;;		425 N. Ashe Street
;;;;		Southern Pines, NC 28387
;;;;
;;;	http://www.paracadd.com
;;;;	All rights reserved.
;;;;

    
Commands/functions defined: c:dimstd
Requires:dimscl,
dimucs.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  
;;;****************************************************************************

    
Commands/functions defined: c:dimucs, dimucs_error
Requires:dimscl, engrdims, engrldrs, gvpno, mklayr, tsnap, ukword, upoint, ureal, ustr,
dint.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2010
;;;		   EDITED: 2010
;;;

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

    
Commands/functions defined: dirs
Requires:dimscl, upoint,
disoff.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  3-12-2002
;;;	   Edited:  3-12-2002

    
Commands/functions defined: c:disoff, c:dison
Requires:dis,
dlog.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: dlog
Requires: Doslib, check_for_doslib, log_it, proj,
dmlt.lsp
;;;Places demolish (double hatch) or abandon (single hatch) linetype
;;;Requires Linetypes ABAN and DEMOL to be added into ACAD.LIN
;;;Requires shapes ABAN and DEMOL in Ltypeshp.shp compiled into Ltypeshp.shx
;;;
;;;LINETYPE DEFINITIONS:
;;;
;;;
;;;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
;;;

    
Commands/functions defined: c:dmlt
Requires:mklayr, dimscl, ukword,
dogl.lsp
;Dogleg existing vertical leaders and text in profiles.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	3-16-95
;	Edited:		3-16-95
;

    
Commands/functions defined: c:dogl
Requires:upoint,
dp.lsp
;;;Dynamic Zoom/Pan trick.  Best for simpler drawings.
;;;
;;;	Modified from a tip in Cadylst or Cadence (don't remember which).
;;;	Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
;;;
;;;
;;;****************************************************************************

    
Commands/functions defined: c:dp, c:predp, dp_error, quickdp
Requires:errortrap, uint, ukword,
draweroc.lsp

    
Commands/functions defined: draw_eroc_seg, draweroc, draweroc_error
Requires:dimscl, gvpno, mklayr, stait, ukword,
drawgrid.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
;;;

    
Commands/functions defined: c:drawgrid
Requires:make_layer_ent, uint, upoint, ustr,
-make variant stuff.lsp

    
driveway.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:driveway, c:drvw, c:rdrv, driveway_error
Requires:bulgebypnts, c3difodoc, make_layer_ent, pttxt, tsnap, uangle, udist, uint, ukword, upoint, ureal, ustr,
dropinlet.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
;;;

    
Commands/functions defined: c:3ptbox, c:dropinlet
Requires:ukword, upoint, ustr,
drtl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  10-23-2002
;;;	   Edited:  10-3-2002
;;;

    
Commands/functions defined: c:drtl
Requires:ukword, upoint, ustr,
drvxngs.lsp

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

    
Commands/functions defined: c:dtlnote, dtlnote_error
Requires: Doslib, abrkstr, check_for_doslib, dimscl, getstyle, mklayr, txtsize, uint, upoint,
dttl.lsp
;;;Place a detail title bubble with title text, underline and scale text.
;;;       Uses DIMSCALE and LUNITS to format scale string and scale bubble
;;;       and text.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-30-93
;;;	Edited:		9-27-2007
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;
;;;****************************************************************************

    
Commands/functions defined: c:dttl, dttl_error
Requires:dimscl, getstyle, gvpno, mklayr, pttxt, ukword, ustr,
dtxt.lsp
;;;Custom DTEXT. Auto sets layer attribs and text size. LINE-under-last option.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-23-96
;;;	Edited:		6-13-2005
;;;
;;;Added explicit load for upoint, ukword, uangle (no longer dependent upon external load).
;;;

    
Commands/functions defined: c:dtxt
Requires:dimscl, gvpno, mklayr, txtsize, uangle, ukword, upoint,
dump.lsp

    
Commands/functions defined: c:dump
Requires:dimscl, gvpno, mklayr, txtsize, uangle, ukword, upoint,
dumplst.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:dumplst
Requires:dimscl, gvpno, mklayr, txtsize, uangle, ukword, upoint,
dumpobjects.lsp

    
Commands/functions defined: c:dumpobjects
Requires:ustr,
dv0.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:dv0
Requires:tsnap,
dxfix.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:dxfix
Requires:tsnap,
dynpan.lsp
;;;Dynamic Zoom/Pan trick.  Best for simpler drawings.
;;;
;;;	Modified from a tip in Cadylst or Cadence (don't remember which).
;;;	Modification requires UINT.LSP and UKWORD.LSP (see UUTILS.LSP)
;;;
;;;

    
Commands/functions defined: c:dynpan, c:predp, dp_error
Requires:gpdgn, uint, ukword,
ecdata.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
;;;

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

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

    
Commands/functions defined: c:ddatte, c:ddedit, c:ed
Requires:ded, dimscl, ustr,
edaln.lsp
;Edit *.GRD files
;

    
Commands/functions defined: c:edaln
Requires:ded, dimscl, ustr,
edasc.lsp
;;;Edit *.asc files
;;;


    
Commands/functions defined: c:edasc
Requires:ded, dimscl, ustr,
edatt1.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 4-7-99
;;;	   Edited: 7-23-99

    
Commands/functions defined: c:ea, c:edatt1
Requires:ded, dimscl, ustr,
edbat.lsp
;Edit *.BAT files
;

    
Commands/functions defined: c:edbat
Requires:ded, dimscl, ustr,
edbka.lsp
;;;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
;;;

    
Commands/functions defined: c:edbka (/
Requires:ded, dimscl, ustr,
edcdf.lsp
;Edit *.GRD files
;

    
Commands/functions defined: c:edcdf
Requires:ded, dimscl, ustr,
edcsv.lsp
;;;Edit *.csv files
;;;

    
Commands/functions defined: c:edcsv
Requires:ded, dimscl, ustr,
eddat.lsp
;Edit *.DAT files
;

    
Commands/functions defined: c:eddat
Requires: Doslib, check_for_doslib,
eddcl.lsp
;Edit *.DCL files
;

    
Commands/functions defined: c:eddcl
Requires: Doslib, check_for_doslib,
eddxf.lsp
;Edit *.DXF files
;

    
Commands/functions defined: c:eddat
Requires: Doslib, check_for_doslib,
edecs.lsp
;Edit *.GRD files
;

    
Commands/functions defined: c:edecs
Requires: Doslib, check_for_doslib,
edfpl.lsp
;Edit *.FPL files
;

    
Commands/functions defined: c:edfpl
Requires: Doslib, check_for_doslib,
edgrd.lsp
;Edit *.GRD files
;

    
Commands/functions defined: c:edgrd
Requires: Doslib, check_for_doslib,
editlog.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:editlog, delete_logdate, set_editlog_list, show_fname
Requires:log_it,
editpagesetups.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:donepagesetups, c:editpagesetups
Requires: Doslib, ukword,
editptsbycircles.lsp
;;;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)
;;;
;;;****************************************************************************

    
Commands/functions defined: c:addptsbyent, c:apbe, c:editptsbyent, c:epbe, ptsby_error
Requires: Doslib, ukword,
editptsbyent.lsp
;;;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)
;;;
;;;****************************************************************************

    
Commands/functions defined: c:addptsbyent, c:apbe, c:editptsbyent, c:epbe, ptsby_error
Requires: Doslib, ukword,
edld2i.lsp
;;;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
;;;

    
Commands/functions defined: c:edld2i (/
Requires: Doslib, ukword,
edlin.lsp
;Edit *.lin files
;

    
Commands/functions defined: c:edlin
Requires: Doslib, ukword,
edlisp.lsp
;;;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
;;;

    
Commands/functions defined: c:edlisp (/
Requires: Doslib, ukword,
edlst.lsp
;Edit *.LST files
;

    
Commands/functions defined: c:edlst
Requires: Doslib, ukword,
edmenu.lsp
;Edit *.MNU files
;

    
Commands/functions defined: c:edmenu
Requires: Doslib, check_for_doslib,
edmns.lsp
;Edit *.MNS files
;

    
Commands/functions defined: c:edmns
Requires: Doslib, check_for_doslib,
edout.lsp
;Edit *.OUT files
;

    
Commands/functions defined: c:edout
Requires: Doslib, check_for_doslib,
edpara.lsp
;;;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
;;;

    
Commands/functions defined: c:edpara (/
Requires: Doslib, check_for_doslib,
edpts.lsp
;;;Edit *.pts files
;;;

    
Commands/functions defined: c:edpts
Requires: Doslib, check_for_doslib,
edscr.lsp
;;;Edit *.SCR files
;;;

    
Commands/functions defined: c:edscr
Requires: Doslib, check_for_doslib,
edshp.lsp
;Edit *.shp files
;

    
Commands/functions defined: c:edshp
Requires: Doslib, check_for_doslib,
edtxt.lsp
;;;Edit *.txt files
;;;

    
Commands/functions defined: c:edasc, c:edhtm, c:edtdf, c:edtxt
Requires: Doslib, check_for_doslib,
edxrl.lsp
;;;Edit *.xrl files
;;;

    
Commands/functions defined: c:edtdf, c:edxrl
Requires: Doslib, check_for_doslib,
elecldrs.lsp

    
Commands/functions defined: c:elecldrs
Requires: Doslib, check_for_doslib,
elevlayer.lsp

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

    
Commands/functions defined: c:elevlayer
Requires:ustr,
elpt.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:elpt
Requires:ustr,
encase.lsp

    
Commands/functions defined: c:encase
Requires:ureal,
-make variant stuff.lsp

    
endz.lsp
;;;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.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:chkpipes, c:endz, c:setpipes, dbl_lin_3d, endz_error, endz_layer_ent, size_it, vertoffset
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
engrangs.lsp

    
Commands/functions defined: c:engrangs
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
engrdims.lsp

    
Commands/functions defined: c:engrdims
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
engrldrs.lsp

    
Commands/functions defined: c:engrldrs
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
engrldrsob.lsp

    
Commands/functions defined: c:engrldrsob
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
entlst.lsp
;;;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.
;;;

    
Commands/functions defined: c:entlst
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
ents.lsp
;;;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:  

    
Commands/functions defined: c:ents
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
epnt.lsp
;;;Erase DCA POINT blocks C:EPNT or TIN lines C:ETIN
;;;
;;;		copyright 1995  Henry C. Francis
;;;		425 N. ASHE ST.
;;;		Southern Pines, NC 28387
;;;
;;;	Block name must be POINT.  To adapt for use with other
;;;	block names just replace the string "POINT" below with
;;;	the quoted block name desired (in caps).
;;;

    
Commands/functions defined: c:epnt, c:etin
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
erasewpsel.lsp

    
Commands/functions defined: c:erasewpsel, c:ewps
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
errortrap.lsp
;;;(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

    
Commands/functions defined: errortrap
Requires: Doslib, 3d, c3difodoc, check_for_doslib, mklayr, uangle, udist, uint, ukword, upoint, ureal, ustr,
etlt2cont.lsp
;;;Finds layers having linetypes with embedded text and changes their
;;;linetype to continuous.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved.
;;;	web: http://paracadd.com/
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    
Commands/functions defined: c:etlt2cont
Requires:wipeprom,
etransfiles.lsp

    
Commands/functions defined: etransdelete, etransfiles, etransmkdir
Requires:wipeprom,
example_transformby.lsp

    
Commands/functions defined: example_transformby
Requires:wipeprom,
exploreobject.lsp
;;;
;;;
;;;	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
;;;****************************************************************************

    
Commands/functions defined: c:exploreobject
Requires:wipeprom,
fadace.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/11/2010
;;;

    
Commands/functions defined: c:fadace
Requires:uint,
filediff.lsp
;;;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

    
Commands/functions defined: c:filediff, c:filedifftxt
Requires: Doslib, uint, ukword,
filelist.lsp

    
Commands/functions defined: c:filelist, filelist_err
Requires: Doslib, ustr,
finddwg.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:finddwg, c:insertdwg
Requires: Doslib, ukword,
findgrpname.lsp

    
Commands/functions defined: findgrpname
Requires: Doslib, ukword,
findtriangle.lsp
;;;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
;;;

    
Commands/functions defined: c:tinelev, findtriangle, int_elev
Requires:upoint,
findtxt.lsp

    
Commands/functions defined: c:findtxt, findtxt
Requires:ustr,
fix-attribute-layers.lsp

    
Commands/functions defined: c:fixem
Requires:ustr,
fix-title.lsp

    
Commands/functions defined: c:fix-title
Requires:attupd,
fixbars.lsp

    
Commands/functions defined: c:fixbars
Requires:attupd,
fixbd.lsp

    
Commands/functions defined: c:fixbd
Requires: Doslib, check_for_doslib,
fixbm.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: c:atthk
Requires:ureal, ustr,
fixby.lsp

    
Commands/functions defined: c:fixby, set_file_list
Requires:ureal, ustr,
fixdims.lsp

    
Commands/functions defined: c:fixdims
Requires:ureal, ustr,
fixdraworder.lsp
;; 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

    
Commands/functions defined: c:fixdraworder, fixdraworder, getsortentsbtridgroup, getsortentstableid, updatesortentstable
Requires:ureal, ustr,
fixfield.lsp

    
Commands/functions defined: c:fixfield
Requires:vpset,
fiximagevars.lsp
;;;From Autodesk Developer Network.
;;;"How to manipulate Image Variables using Autolisp"
;;;
;;;Set to this file on 3-11-2008
;;;

    
Commands/functions defined: c:fiximagevars, c:iframes, getimageframe, getimagequality, getimagevars, getimagevarsdict (), setimageframe, setimagequality
Requires:vpset,
fixplansymbols.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:fixplansymbols, c:fxplsy, fixplansymbols_error
Requires:gvpno, uint, ustr, vpset,
fixrememberfolders.lsp
;;;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/)

    
Commands/functions defined: fixrememberfolders
Requires:gvpno, uint, ustr, vpset,
fixsubs.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:fixsubs
Requires:gvpno, uint, ustr, vpset,
fixsymbdatlist.lsp

    
Commands/functions defined: fixsymbdatlist
Requires:gvpno, uint, ustr, vpset,
fixtitl.lsp

    
Commands/functions defined: fixtitl
Requires:attupd,
fixtndat.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:fixtndat
Requires:attupd,
fixwhodunit.lsp

    
Commands/functions defined: c:fixwhodunit
Requires: Doslib, ukword, ustr,
flatblks.lsp

    
Commands/functions defined: c:flatblks
Requires: Doslib, ukword, ustr,
flatxjoin.lsp

    
Commands/functions defined: c:flatxjoin()
Requires: Doslib, ukword, ustr,
flexcable.lsp

    
Commands/functions defined: c:flexcable
Requires:ukword,
flip.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:flip, flip
Requires:ukword,
flipa.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:flipa
Requires:uangle,
flipdim.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:flipdim
Requires:ukword, upoint,
flippi.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:flipall, c:flippi
Requires:ukword, upoint,
flipseal.lsp

    
Commands/functions defined: c:flipseal
Requires:ukword, upoint,
floatdim.lsp
;;;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
;;;

    
Commands/functions defined: c:dimfloat, c:floatdim
Requires:ukword, upoint,
flog.lsp
;;;Reads DWG_EDIT.LOG and writes parts to FILE1.LOG
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:flog
Requires: Doslib, check_for_doslib,
fracdims.lsp

    
Commands/functions defined: c:fracdims
Requires: Doslib, check_for_doslib,
fracldrs.lsp

    
Commands/functions defined: c:fracldrs
Requires: Doslib, check_for_doslib,
gate.lsp

    
Commands/functions defined: c:gate
Requires:ukword, upoint,
gent.lsp
;;;Get entity data. EDUMP, ASO or UCSC the data.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    
Commands/functions defined: c:aso, c:edump, c:gent, c:getobj, c:makeit, c:setucsworld, c:ucsc, c:ucstoggle
Requires:tsnap,
getblockinserts.lsp
;;;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;;
;;;)										 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    
Commands/functions defined: getblockinserts(doc
Requires:tsnap,
getboundary.lsp

    
Commands/functions defined: c:getboundary
Requires:c3difodoc,
getdefuns.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: ")), *"), *")), c:funfile, c:getdefuns, c:packlsp, c:printfuns, c:usedfuns
Requires: Doslib, check_for_doslib, setautofuns, ukword,
getel.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: c:getel, c:markel
Requires:gvpno, make_layer_ent, mymldr, stait, tnote, uint, ukword, upoint, ureal,
getfield.lsp
;;;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

    
Commands/functions defined: do_attrib, getfield (enam
Requires:gvpno, make_layer_ent, mymldr, stait, tnote, uint, ukword, upoint, ureal,
getfiles.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:getfiles, getfiles_error
Requires: Doslib, xo1, ukword,
getimages.lsp
;;;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.
;;;

    
Commands/functions defined: getimages
Requires:str_to_list,
getlisp.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:getlisp
Requires: Doslib, ustr,
getmenus.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:getmenus
Requires: Doslib, check_for_doslib,
getpages.lsp

    
Commands/functions defined: c:getmenus
Requires: Doslib, check_for_doslib,
getparcels.lsp

    
Commands/functions defined: getparcels
Requires: Doslib, check_for_doslib,
getprop.lsp
;;;Author unknown
;;;Gets Drawing Properties
;;;

    
Commands/functions defined: c:getdwgprops, getcustomvar, getedittime
Requires: Doslib, check_for_doslib,
getstr.lsp
;;;Finds matching text strings in text, mtext, and multileaders

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

    
Commands/functions defined: getstyle (gtsty
Requires:ustr,
getxrefs.lsp

    
Commands/functions defined: getxrefs
Requires:ustr,
glbl.lsp
;;;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
;;;

    
Commands/functions defined: c:glbl, grd_txt
Requires:gvpno, lamacs, mklayr, txtsize,
goaround.lsp
;;;
;;;	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.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:goaround, c:goaroundparts, chkkwds, ukword, upoint, ureal
Requires:gvpno, lamacs, mklayr, txtsize,
gof.lsp
;;;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 **********

    
Commands/functions defined: funfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfunfun
Requires:gof,
gradebreak.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
;;;

    
Commands/functions defined: c:gbrk, c:gradebreak, gradebreak_error
Requires:uangle, udist, uint, ukword, upoint, ureal, ustr,
gridstyle.lsp
;;;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)

    
Commands/functions defined: c:gridstyle
Requires:stdltypes, ukword,
groups.lsp
;;;C:DUNGroups - Deletes unnamed groups from the drawing
;;;C:DEMGroups - Deletes empty groups from the drawing
;;;C:ListGroups - Lists groups in the drawing

    
Commands/functions defined: c:demgroups, c:dungroups, c:listgroups
Requires:stdltypes, ukword,
gstr.lsp
;;;"Glue" text strings.  All adopt first's properties.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;	revised: 3/30/2009
;;;

    
Commands/functions defined: c:gstr, c:gstrcdl, c:rgstr
Requires:dimscl, ukword,
gvpno.lsp
;;;Get current user specified (by layername) model space viewport number.
;;;
;;;Layer name must contain "VI##" where ## is a two digit user specified
;;;view number.  Otherwise you are prompted for the view number.
;;;the variable 'prod is set to "VI##".  (C:MKLAYR) is used to preserve and
;;;then restore the current layer after this function.  Use (C:SVLAYR) before
;;;this function, (C:MKLAYER) during this function and (C:RSLAYR) after.
;;;
;;;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
;;;

    
Commands/functions defined: c:vrlay, gvpno
Requires: Doslib, check_for_doslib, errortrap, set_mjrg, uint, ukword, ustr,
harchdims.lsp

    
Commands/functions defined: c:harchdims
Requires: Doslib, check_for_doslib, errortrap, set_mjrg, uint, ukword, ustr,
harchldrs.lsp

    
Commands/functions defined: c:harchldrs
Requires: Doslib, check_for_doslib, errortrap, set_mjrg, uint, ukword, ustr,
hasphdr.lsp

    
Commands/functions defined: c:hasphdr()
Requires:hatbnd, procp, mklayr,
hasphrd.lsp

    
Commands/functions defined: c:hasphrd()
Requires:hatbnd, procp, mklayr,
hatbnd.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2005
;;;	   Edited:  2005

    
Commands/functions defined: c:hatbnd
Requires:hatbnd, procp, mklayr,
hatchit.lsp
;;;
;;;	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
;;;

    
Commands/functions defined: hatchit
Requires:dimscl, upoint,
hatdiff.lsp

    
Commands/functions defined: c:hatdiff, c:hd
Requires:dimscl, upoint,
hatdrv.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;****************************************************************************

    
Commands/functions defined: c:drvbnd, c:hatdrv, hatdrv_error
Requires:dimscl, hatbnd, mklayr, procp, ukword,
hatpat.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: hatpat
Requires:dimscl, make_layer_ent, mklayr,
have_irfanview.lsp
;;;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
;;;
;;;****************************************************************************

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

    
Commands/functions defined: -q, c:hbcmud (/)
Requires:ddhtext, dimscl, gvpno, mklayr, upoint,
hconc.lsp

    
Commands/functions defined: c:hconcdr()
Requires:hatbnd, procp, mklayr,
hconcdr.lsp

    
Commands/functions defined: c:hconcdr()
Requires:hatbnd, procp, mklayr,
hdang.lsp
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    
Commands/functions defined: c:hdang
Requires:dimscl, gvpno, mklayr, pttxt, upoint,
hdarc.lsp
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    
Commands/functions defined: c:hdarc
Requires:dimscl, gvpno, mklayr, pttxt, ukword, upoint,
hdarea.lsp
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    
Commands/functions defined: c:hdarea
Requires:dimscl, gvpno, mklayr, pttxt, upoint,
hdbox.lsp
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    
Commands/functions defined: c:hdbox, hdbox_error
Requires:dimscl, gvpno, mklayr, pttxt, upoint,
hdcirc.lsp
;;;Place a "hiding" object over an elliptical area (on layer *7HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		6-13-2003
;;;

    
Commands/functions defined: c:hdcirc (/)
Requires:dimscl, gvpno, mklayr, pttxt, upoint,
hdpipe.lsp
;;;Place a "hiding" object over a rectangular area (on layer ?-AREA-HIDE).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:      1-26-96
;;;	Edited:		2-7-2002
;;;

    
Commands/functions defined: c:hdpipe
Requires:dimscl, gvpno, mklayr, pttxt, sslayer, ukword, upoint, ureal,
hdrec.lsp
;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		6-4-97
;

    
Commands/functions defined: c:hdrec
Requires:dimscl, gvpno, mklayr, upoint,
hdrect.lsp
;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		1-29-98
;

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

    
Commands/functions defined: c:ehdt, c:hdmatch, c:hdspace, c:hdtext (/ ss, c:hdupd
Requires:dims, hdtext, pttxt, ukword, ureal, ustr, uutils,
hdtextn.lsp
;;;Place "hiding" solids over each text string. (on layer ?-NPLT?????HS).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		10-7-98
;;;

    
Commands/functions defined: c:hdtextn (/ ss
Requires:dims, dimscl, mklayr, ukword, uutils,
headwall.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
;;;

    
Commands/functions defined: c:2ptbox, c:headwall
Requires:ukword, upoint, ureal, ustr,
helphtm.lsp
;;;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
;;;
;;;****************************************************************************

    
Commands/functions defined: helphtm
Requires: Doslib, check_for_doslib,
hengrdims.lsp

    
Commands/functions defined: c:hengrdims
Requires: Doslib, check_for_doslib,
hengrldrs.lsp

    
Commands/functions defined: c:hengrldrs
Requires: Doslib, check_for_doslib,
hfracldrs.lsp

    
Commands/functions defined: c:hfracldrs
Requires: Doslib, check_for_doslib,
hgrav.lsp

    
Commands/functions defined: c:hgrav()
Requires:hatbnd, umlt, mklayr,
hidepoly.lsp
;;;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
;;;

    
Commands/functions defined: c:hidepoly
Requires:mklayr, ureal,
hop.lsp
;;;Set temp. UCS before Bhatch to control hatch origin.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http:paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:hop
Requires:dimscl,
hrail.lsp
;;;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
;;;

    
Commands/functions defined: c:hrail, c:hrupd, hrail_error
Requires:mklayr, n)), pttxt, ukword, upoint, ureal,
hsoil.lsp

    
Commands/functions defined: c:hsoil()
Requires:hatbnd, umlt, mklayr,
hstxt.lsp
;;;Place house number text at point location.  (requires PTDCL run first).
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:hstxt
Requires:dimscl, gvpno,
hua_a_sheet.lsp
;;;HUA 8-1/2x11 (ANSI A Size Sheet) Title Block Xref attachment function.
;;;Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 3/14/2006
;;;	Edited:	   9/23/2009
;;;

    
Commands/functions defined: hua_a_sheet
Requires:dimscl, gvpno,
iblk.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Scaled block insertion routine (dimscale)

    
Commands/functions defined: c:catv, c:foped, c:fosign, c:gp, c:gw, c:iblk, c:ip, c:lp, c:mb, c:mh, c:nope, c:pp, c:rwmon, c:rwsign, c:sign, c:tped, c:wm, iblk_error
Requires:clg5, dimscl, mklayr, set-this-anno-scale, ukword, upoint, ureal, ustr,
ids_edit.lsp
;;;Dialog utility for storing, editing and retrieving/placing Typical Notes into a drawing.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2/1995
;;;	   Edited:  6/7/2001
;;;
;;;

    
Commands/functions defined: add_ids_item (/), chk_tnlst, del_lines, f_ids, fltr_tnlist, get_dat_file, ids_edit, ids_error, ids_sorter, intchk, pview, repl_item, set_caps, set_ids_ebox, set_ids_list, set_pview, srch_tnlist, upd_ids_dat
Requires: Doslib, browser_help, check_for_doslib, getstyle,
ihse.lsp

    
Commands/functions defined: c:ihse()
Requires:mklayr, upoint,
ii.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: c:ii
Requires:mklayr, upoint,
imageattachbatch.lsp

    
Commands/functions defined: c:ii
Requires:mklayr, upoint,
imageframes.lsp

    
Commands/functions defined: c:imageframeoff, c:imageframeon, imageframes
Requires:mklayr, upoint,
imagelayers.lsp
;;;
;;;	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
;;;

    
Commands/functions defined: c:imagelayers
Requires:c3difodoc, layentmake,
imagetile.lsp
;;;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/functions defined: c:imagetile
Requires:c3difodoc, layentmake,
img.lsp
;;;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
;;;
;;;
;;;****************************************************************************

    
Commands/functions defined: c:clipimage, c:clipoly, c:debugclipoly, c:fadeimage, c:hidearc, c:hidebdry, c:hidedonut, c:hideprep, c:imgarc, c:imgdonut, c:imgpl, c:imgprep, imgarcclp, imgplclp
Requires:gvpno, mklayr, set_mjrg, uangle, uint, ukword, upoint, ureal,
imgbnd.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2009
;;;	   Edited:  2009

    
Commands/functions defined: c:imgbnd
Requires:gvpno, mklayr, set_mjrg, uangle, uint, ukword, upoint, ureal,
imgclip.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    
Commands/functions defined: c:imgclip
Requires:uangle, uint, upoint, ureal,
imgdet.lsp
;;;Detach selected IMAGE.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:imgdet (/
Requires:uangle, uint, upoint, ureal,
imparea.lsp
;;;
;;;
;;;	Authors: Jason Asbill &
;;;              Henry C. Francis
;;;		 425 N. Ashe St.
;;;		 Southern Pines, NC 28387
;;;		 http://paracadd.com
;;;		 All rights reserved.
;;;
;;;		 COPYRIGHT: 
;;;		    EDITED: 
;;;

    
Commands/functions defined: c:imparea
Requires:uangle, uint, upoint, ureal,
incr3.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/21/2009
;;;		   EDITED: 7/21/2009
;;;

    
Commands/functions defined: c:incr3
Requires:uint,
incrasc.lsp
;;;Resets or increments selected attribute values having alphabetic values from "A" to "Z" or "AA" to "AZ" and so on to "CY"
;;;Optionally omits "I" and "O" to avoid confusion with "1" AND "O" (standard alphabetic detail bubble call-out method).
;;;
;;;Values are incremented one character alphabetically from the initially modified attribute value if the option to sequence values is selected.
;;;
;;;Reset values are determined by an integer offset value (�) which is applied to the current attribute value.
;;;It is not necesary to select the items in alphabetic order when resetting values by an offset.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9/2/2009
;;;		   EDITED: 10/18/2011
;;;

    
Commands/functions defined: c:incrasc
Requires:uint, ukword,
incratt.lsp

    
Commands/functions defined: c:incratt
Requires:uint,
inctxt.lsp
;;;Creates incremented number text along any angle and with any justification.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:inctxt
Requires:uint,
initandsdichk.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: initandsdichk
Requires: Doslib, (strcat, acaddoclist, check_for_doslib, dlog, log_it, make_dimaro, xiupdate,
insdatablk.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:gpdatablk, dodatablkins
Requires:gvpno, make_layer_ent, uint, upoint, vpset,
inslay.lsp
;;;Display all layers containing specified block inserts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:inslay (
Requires:ustr,
inslayr.lsp
;;;C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    
Commands/functions defined: c:inslayr, c:uninslayr
Requires:ustr,
insnclocmap.lsp

    
Commands/functions defined: c:insnclocmap
Requires:upoint,
isands.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:isands
Requires:upoint,
isolay.lsp
;;;Isolates layer name specified through the symbol lname
;;;Thaws all frozen layers only if thawlayer is not NIL
;;;If lname is frozen it will not display if thawlayer is NIL
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/2009
;;;		   EDITED: 6/2009
;;;
;;;==================================================================================================

    
Commands/functions defined: isolay
Requires:upoint,
isovp.lsp
;;;Isolate current Vport annotation (freeze other layers *vi0#* using VPLAYER)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-28-96
;;;	Edited:		5-28-96
;;;

    
Commands/functions defined: c:isoprof, c:isottlb, c:isov#, c:isovp, c:isovpall
Requires:gvpno, uint, vpset,
isovpall.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:isovpall
Requires:vpset,
itom.lsp
;;;Converts a number in (m)any text string(s) from Feet to Meters.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-29-98
;;;

    
Commands/functions defined: c:itom
Requires:uint, ukword,
itrl.lsp

    
Commands/functions defined: c:itrl()
Requires:mklayr, upoint,
join2d.lsp

    
Commands/functions defined: c:join2d
Requires:mklayr, upoint,
join3d.lsp

    
Commands/functions defined: c:join3d
Requires:mklayr, upoint,
joinmultiple.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	7/13/2015
;;;	   Edited:	7/13/2015
;;;

    
Commands/functions defined: c:duplicate, c:jm, c:joinmultiple
Requires:mklayr, upoint,
jsl.lsp
;;;Just set layer by selection
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:jsl
Requires:mklayr, upoint,
justaleader.lsp

    
Commands/functions defined: c:justaleader
Requires:upoint,
kbnd.lsp
;;;Create Pline in Mspace matching current Vport boundary and hatch inside.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2004
;;;

    
Commands/functions defined: c:kbnd
Requires:isovp, mklayr, vpset,
keyorder.lsp

    
Commands/functions defined: c:keyorder
Requires:ukword, ustr,
keyviews.lsp
;;;C:SVIEW    - Opens a dialog interface for the functions below
;;;C:KEYVIEWS - prints the saved view names to the text screen
;;;C:SKEYVIEW - saves view names and their associated layer state lists to the drawing
;;;C:DKEYVIEW - deletes saved view names and their saved layer state lists from the drawing
;;;C:RKEYVIEW - restores the saved layer state list associated with a saved view name in the drawing
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-18-2010
;;;		   EDITED: 9-18-2010
;;;
;;;	Requires: gvpno.lsp, xrlayers.lsp, ustr.lsp (these may have requirements of their own)
;;;
;;;**************************************************************************************************

    
Commands/functions defined: c:dkeyview, c:keyviews, c:rkeyview, c:skeyview, c:sview, c:ukeyview, c:zkeyview, delete_svname, restore_svname, save_svname, set_sview_list, update_svname, zoom_back, zoom_svname
Requires: Doslib, check_for_doslib, gvpno, ustr, xrlayers,
kkelv.lsp
;;;Writes MYKELV.DEF to protect all atoms in ATOMS-FAMILY.
;;;For use with Kelvinator - autolisp symbol scrambling tool.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:kkelv
Requires: Doslib, check_for_doslib, gvpno, ustr, xrlayers,
lamacs.lsp
;;;Layer macros
;;;"GOF" "GON" "PGOF" "PGON" "GROF" "GRON" "PTOF" PTON" "PTFRX" "PTTHW" "TOPON" "TOPOF"
;;;"WDLNOF" "WDLNON" "WDON" "WDOF" "XRON" "XROF" "SVOF" "SVON" "PATOF" "PATON" "RWOF"
;;;"EASOF" "EPOF" "TPOF" "EXOF" "TXTOF" "INSOF" "EROF" "CTOF" "PPOF" "HDOF" "AOF" "AON"
;;;"RWON" "EASON" "EPON" "TPON" "EXON" "TXTON" "INSON" "ERON" "CTON" "PPON" "HDON"
;;;"ALTON" "ALTOF" "ISOALT" "VLOCK" "CCPTOF" CCPTON"
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;==================================================================================================

    
Commands/functions defined: c:algnof, c:algnon, c:alnof, c:alnon, c:alt0, c:alt1, c:alt2, c:alt3, c:alt4, c:altof, c:alton, c:aof, c:aon, c:brkof, c:brkon, c:ccptof, c:ccpton, c:clgcolors, c:corof, c:coron, c:corrof, c:corron, c:ctfrz, c:ctof, c:cton, c:ctrlay, c:ctrlayer, c:ctthw, c:ctvpfrz, c:ctvpthw, c:dimlay, c:dimlayer, c:dolb, c:easof, c:eason, c:epof, c:epon, c:erof, c:eron, c:exof, c:exon, c:fillof, c:fillon, c:fkey#, c:fkey##, c:g100, c:g1000, c:g1k, c:g200, c:g500, c:gof, c:gofall, c:gon, c:gonall, c:grof, c:gron, c:hdof, c:hdon, c:hrof, c:hron, c:imgfrz, c:imgo, c:imgof, c:imgon, c:imgthw, c:infof, c:infon, c:infoof, c:infoon, c:insof, c:inson, c:isoalt, c:isoaltvp, c:key#, c:key##, c:keyiso, c:keynn, c:keyoff, c:keyxx, c:lablof, c:lablon, c:lblof, c:lblon, c:mgon, c:npltof, c:nplton, c:offhdsize, c:onhdsize, c:patof, c:paton, c:pgof, c:pgon, c:ppfr, c:ppof, c:ppon, c:ppth, c:prvwof, c:prvwon, c:ptfrz, c:ptof, c:pton, c:ptthw, c:rbarof, c:rbaron, c:restkeys, c:restvpkeys, c:rwof, c:rwon, c:savekeys, c:sbof, c:sbon, c:showkeys, c:sidoff, c:sidon, c:sof, c:son, c:svof, c:svon, c:tinof, c:tinon, c:topof, c:topon, c:tpof, c:tpon, c:txtof, c:txton, c:vl, c:vlock, c:vpkey#, c:vpkey##, c:vpkeyiso, c:vpkeynn, c:vpkeyoff, c:vpkeyon, c:vpkeyxx, c:vpoffhdsize, c:vponhdsize, c:wdlnof, c:wdlnon, c:wdof, c:wdon, c:xrcolors, c:xrgray, c:xrof, c:xron, c:xronall, chkcurlayoff, getfrozenvplayers, help_keys, lamacs_act, massoc, movehdboxes, vplamacs_act
Requires: Doslib, check_for_doslib, chkctabname, gvpno, make_layer_ent, mklayr, uint, ukword, ustr, xrlayers,
lapset.lsp
;;;Set layer color and linetype for selected entity.
;;;If entity colors and linetypes are bylayer the effect is to change the
;;;color and linetype of entities on the selected entity's layer.
;;;
;;;Specifically: This routine allows changing of Xref layer color and linetype
;;;		 by a simple selection of a visible xref entity.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		1-31-2004
;;;

    
Commands/functions defined: c:lapset
Requires: Doslib, mklayr, ukword,
laybent.lsp
;;;Turn off layers, freeze layers, or set to a layer by entity selection.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		2-21-2004
;;;
;;;	Made C:SHOLAY a separate file
;;;

    
Commands/functions defined: c:laybent, c:unlay
Requires: Doslib, make_layer_ent, mklayr, ukword,
layerlist.lsp

    
Commands/functions defined: c:layerlist
Requires: Doslib, ukword,
laylst.lsp
;;;Generate a sorted list of layer names in the drawing.
;;;
;;;	The list is written to a
;;;	file named .LAY in the current directory.
;;;	The list can be viewed in AutoCAD by entering
;;;	!newlist at the command prompt.  A page by page
;;;	listing can be viewed by entering LLIST after the
;;;	lay_list routine has been run.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-28-96
;;;	Edited:		1-31-2003
;;;

    
Commands/functions defined: c:laylst, c:llist
Requires: Doslib, ukword,
laymapcar.lsp

    
Commands/functions defined: c:layfreezeall, c:layoffall, c:layonall, c:laythawall, layofflist, layonlist
Requires: Doslib, ukword,
layoffall.lsp

    
Commands/functions defined: c:layoffall, c:layonall
Requires: Doslib, ukword,
lbl.lsp
;;;Automatically stamp drawing with file/user/time/scale information.
;;;	as a string in an attribute called FILSPEC in a block
;;;	named DWGSTAMP.  This block must exist in the drawing or the
;;;        drawing must exist in a directory included in the ACAD= environment
;;;        variable and it must contain an attribute with the tag FILSPEC.
;;;        The attribute is positioned and rotated to fit just inside the
;;;        "binding edge" of any standard sheet size.  Currently all sheet
;;;        sizes except 8.5" x 11" will be stamped	along the short side of
;;;        the sheet in all cases.  The 8.5" x 11"	sheet will be stamped
;;;        along the long side of the sheet.  The "sheet" is defined by
;;;        setting AutoCAD's "limits".
;;;		
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	LBL.LSP	Copyright:  1991-1995
;;;                   Edited:  11-28-95
;;;                The items are, in order,
;;;       Filespec:          (path\filename)          (dwgprefix + dwgname + .DWG)
;;;       Edited By:         user login name          (environment var.)
;;;       Date:              mm/dd/yy                 (from cdate)
;;;       Time:              hh:mm	                  (from cdate)
;;;       Scale:             nn"=1'-0" or 1"=nn'      (from dimscale and lunits)
;;;       Xref names:        name1, name2, etc.       (from table search)
;;;

    
Commands/functions defined: c:lbl, f_date, f_name, setsclfac
Requires: Doslib, attupd, check_for_doslib, dimscl, mklayr, xiupdate,
lbld.lsp
;;;Label lines and polylines with segment distance.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1996-2013
;;;	Edited:		5-23-2013
;;;

    
Commands/functions defined: c:lbld, c:lbldoptions
Requires:remlt, dimscl, getstyle, gvpno, mklayr, srvang, survang, txtsize, uint, ukword, ureal,
lbnd.lsp
;;;Place a block named LTIC at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:ltic
Requires:dimscl, mklayr,
ldlsp.lsp
;;;File dialog for loading lisp files.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:ldlsp
Requires:edfil),
ldrfix.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:ldrfix
Requires:dimscl, mklayr, transpt,
linedraw.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: add-mdash, c:linedraw, c:loadltypes, col_tile, drawpattern, getindex, linedraw_error, ltedit_act, ltlist_act, makeltlists, reset-lt, tile_rect, vi
Requires:initandsdichk, mklayr,
linejump.lsp
;;;Draws an ARC (semicircle) on either side of any line or polyline intersection and trims the line inside the arc.
;;;
;;;Entity definitions are currently stored in variables in anticipation of future code making use of
;;;ENTMAKE, ENTMOD, and/or ENTUPD rather than the TRIM command.  Once written, the code will eliminate arc
;;;creation (except at lines) and the use of the TRIM command and its occasional trim errors (wrong entity trimmed).
;;;
;;;The number of crossing Lines, Polylines, or LWPolylines has been arbitrarily limited to 6. More than 4 increases
;;;the possibility of trimming the wrong line.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://www.paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/3/2010
;;;		   EDITED: 5/3/2010
;;;
;;;	Required subroutines: dimscl.lsp, ureal.lsp, upoint.lsp, ukword.lsp
;;;
;;;****************************************************************************

    
Commands/functions defined: c:linejump, c:lj, pick_inters_error
Requires:dimscl, ukword, upoint, ureal,
lineonpipe.lsp

    
Commands/functions defined: c:lineonpipe
Requires:dimscl, ukword, upoint, ureal,
linesum.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  4-8-2005
;;;	   Edited:  6-25-2014
;;;
;;;Added Polylines and LWpolylines
;;;Changed data source from entity data to object data.
;;;Note: 3D polylines will return 3D lengths.

    
Commands/functions defined: c:linesum
Requires:3d, ukword,
lisp_sum.lsp

    
Commands/functions defined: c:itout
Requires:3d, ukword,
lispfunslist.lsp
;;;****************************************************************************

    
Commands/functions defined: c:lispfunslist
Requires: Doslib, check_for_doslib, ukword,
listfuns.lsp

    
Commands/functions defined: ")), c:listfuns
Requires: Doslib, )),
listfuns2.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    
Commands/functions defined: ,*(eq, c:listfuns
Requires: Doslib, )),
listlayers.lsp
;;;C:LISTLAYERS Lists all of the layers in the current drawing and their descriptions if applicable.
;;;
;;;(LISTLAYERS)	Creates a sorted list of ( ) pairs for all layers in the
;;;		current drawing for subsequent autolisp use.
;;;
;;;variable name of the list is: sorted_ldlist
;;;
;;;	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
;;;
;;;****************************************************************************

    
Commands/functions defined: c:listlayers, listlayers
Requires: Doslib, )),
llsp.lsp
;;;Dialog to display/print/save list or load/edit lisp files.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;

    
Commands/functions defined: c:llsp, chg_drvdir, edit_file, load_file, make_lsp_list, print_list, regen_list, save_list, set_file_list
Requires:_file), ff_name),
loadpagesetups.lsp
;;;Loads standard page setups from PAGESETUP.DWT template file.
;;;Match list of page setup names below, (setq setupslst ...), to setups
;;;named in PAGESETUP.DWT  Changes to PAGESETUP.DWT require changes here.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  2-8-2002
;;;	   Edited:  2-8-2002
;;;
;;;******************************************************************************

    
Commands/functions defined: c:pgset, getpages (name_to_check, loadpagesetups
Requires:getpages, pagesetups),
loadx.lsp
;;;Load any *.EXP file (specifically for Automanager Organizer).
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    
Commands/functions defined: c:loadx
Requires:getpages, pagesetups),
locatez.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 02-21-2013
;;;	   Edited: 08-7-2014
;;;

    
Commands/functions defined: c:dayltcircle, c:delzcircle, c:locatez, c:lz
Requires: Doslib, ukword, upoint, ureal, ustr,
log_it.lsp
;;;Add or create Log data (EED) in a drawing. (log_it)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-18-1996
;;;	Edited:		9-24-2008
;;;
;;;**************************************************************************************************

    
Commands/functions defined: log_it, newent, nxdata, update_dwgeditlog
Requires: Doslib, ukword, upoint, ureal, ustr,
lslbl.lsp
;;;Custom Dialog routine written for Dennis Facia to label landscape plantings.
;;;Requirements:
;;;      MKLAYR.LSP, MLT.LSP, UUTILS.LSP, GETSTYLE.LSP
;;;      (preexisting routines by H.C. Francis)
;;;
;;;      Author:  Henry C. Francis
;;;               425 N. Ashe Street
;;;               Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;      All rights reserved
;;;
;;;     Created:  3/13/97
;;;

    
Commands/functions defined: *error*, c:lslbl, c:lsn, datalst, matllst, set_note, set_reqd
Requires:lstbl, mlt,
lsplst-anchors.lsp
;;;Automatically generates complete HTML listing all autolisp files selected.
;;;You may edit for your location but you must leave
;;;the heading with credits to LSPLST.LSP from PARAGLIDE.
;;;
;;;Only those functions that have an explicit (load ) statement
;;;or are included in the list represented by the symbol myfuns_lst will
;;;be included in the "Requires" line in the resulting HTML.
;;;
;;;Doslib useage is accounted for separately.
;;;
;;;The existence of myfuns_lst can significantly slow the HTML generation
;;;process.  It is best to include conditional load statements for external
;;;functions in your autolisp files.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 05-05-2001
;;;>		   EDITED: 01-20-2017
;;;
;;;****************************************************************************

    
Commands/functions defined: c:lsplst, c:summarylist
Requires: Doslib, check_for_doslib, listfuns, ukword,
lsplst.lsp
;;;Automatically generates complete HTML listing all autolisp files selected.
;;;You may edit for your location but you must leave
;;;the heading with credits to LSPLST.LSP from PARAGLIDE.
;;;
;;;Only those functions that have an explicit (load ) statement
;;;or are included in the list represented by the symbol myfuns_lst will
;;;be included in the "Requires" line in the resulting HTML.
;;;
;;;Doslib useage is accounted for separately.
;;;
;;;The existence of myfuns_lst can significantly slow the HTML generation
;;;process.  It is best to include conditional load statements for external
;;;functions in your autolisp files.
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 05-05-2001
;;;>		   EDITED: 01-20-2017
;;;
;;;****************************************************************************

    
Commands/functions defined: c:lsplst, c:summarylist
Requires: Doslib, check_for_doslib, listfuns, ukword,
lstr.lsp
;;;Place text above or below a line or polyline segment. ("above" breaks @ 107^-287^)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		7-25-2007
;;;
;;;Fixed coordinated returned for lines nested in blocks (xrefs).
;;;

    
Commands/functions defined: c:lstr
Requires:slent, dimscl, getstyle, mklayr, txtsize, ukword, ustr,
lstsample.lsp
;;;List processing example
;;;
;;;

    
Commands/functions defined: lstsample
Requires:slent, dimscl, getstyle, mklayr, txtsize, ukword, ustr,
lterm.lsp
;;;Place an arrowhead (block name LDRARO) at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:lterm
Requires:dimscl, mklayr,
ltgen.lsp
;;;Modify linetype generation on a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-17-94
;;;	Edited:		10-22-2006
;;;

    
Commands/functions defined: c:ltgen
Requires:ukword,
ltic.lsp
;;;Place a block named LTIC at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:ltic
Requires:dimscl, mklayr,
lto.lsp
;;;Place an arrowhead (block name LDRARO) at end of a line.
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:lto
Requires:dimscl, mklayr,
ltp.lsp
;Convert lines into a polyline.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		Southern Pines, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	12-20-94
;	Edited:		11-13-96
;

    
Commands/functions defined: c:ltp
Requires:dimscl, mklayr,
ltscl.lsp
;;;Modify the LTSCALE of a selection set of entities. (uses UREAL
;;;       The only input required is the desired ltscale
;;;       and selection of the entities to modify.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http:paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-15-00
;;;	Edited:		6-16-00
;;;

    
Commands/functions defined: c:ltscl
Requires:ureal,
ltwid.lsp
;Modify linetype width of a selection set polyline entities.
;       The only input
;       required is the selection of the polylines to modify.  There
;       is no need to worry about not selecting non-polyline entities
;       because they will be automatically filtered out of the
;       selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	5-17-94
;	Edited:		3-13-96
;

    
Commands/functions defined: c:ltwid
Requires:ureal,
ltxt.lsp
;;;Place text on polyline or line.  (uses MKLAYR GETSTYLE USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	1994-2011
;;;	Edited:		4/27/2011
;;;

    
Commands/functions defined: c:ltxt
Requires:dimscl, getstyle, gvpno, mklayr, txtsize, ukword, ustr,
make_dimaro.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: make_dimaro
Requires:dimscl, getstyle, gvpno, mklayr, txtsize, ukword, ustr,
make_layer_ent.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
;;;Requires: mklayr.lsp, stdltypes.lsp, 
;;;

    
Commands/functions defined: make_layer_ent
Requires:mklayr, stdltypes,
makedirs.lsp
;;;
;;;      Author:  Henry C. Francis
;;;               425 N. Ashe Street
;;;               Southern Pines, NC 28387
;;;
;;;      All rights reserved without prejudice.
;;;
;;;     Created:  9/21/2015
;;;      Edited:  9/21/2015
;;;
;;;********************************************************************

    
Commands/functions defined: c:makedirs, makedir_error, set_folder_list, set_mkdpath
Requires: Doslib, check_for_doslib, set_drive_letters,
makefolders.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:makefolders
Requires: Doslib, check_for_doslib,
makegroup.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-25-2013
;;;	   Edited: 1-25-2013
;;;
;;;****************************************************************************

    
Commands/functions defined: makegroup
Requires:groups,
makeinsert.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: makeinsert
Requires:groups,
makenotes.lsp

    
Commands/functions defined: c:makenotes, c:mltnotes
Requires: Doslib, check_for_doslib, dimscl, gvpno, make_layer_ent, upoint,
makestddirs.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 6-1-2015
;;;	   Edited: 6-1-2015
;;;

    
Commands/functions defined: c:makestddirs
Requires: Doslib, set_drive_letters, ukword,
mapout.lsp

    
Commands/functions defined: c:mapout
Requires: Doslib, set_drive_letters, ukword,
masfen.lsp
;Place masonry fence linear symbol as anonymous block.

    
Commands/functions defined: c:masfen
Requires:dimscl, upoint,
matchvctr.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5/24/2010
;;;		   EDITED: 5/24/2010
;;;

    
Commands/functions defined: c:matchvctr, c:matchviewcenters, c:mvc, c:mvpctr
Requires:ukword,
maxmin.lsp

    
Commands/functions defined: c:maxmin, stabreak
Requires:ukword, upoint,
mcloud.lsp
;;;Creates LWPolyline with fixed length arcs
;;;Can be used to make cloud symbol.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/2/2007
;;;		   EDITED: 8/16/2007
;;;

    
Commands/functions defined: c:mcloud, c:rmcloud
Requires:dimscl, mklayr,
mcpu_d_sheet.lsp
;;;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
;;;

    
Commands/functions defined: copy-tb-to-project-folder, mcpu_d_sheet
Requires: Doslib, set_drive_letters, setstdpage, ukword, ustr,
mddatte.lsp
;;;Multiple block attribute edits
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:mddatte
Requires: Doslib, set_drive_letters, setstdpage, ukword, ustr,
measd.lsp
;Measure distance and preserve variables for use with commands.

    
Commands/functions defined: c:measd, c:ulnum, measd_error, survang
Requires:upoint,
mechdims.lsp
;;;This autolisp routine was created using:
;;;	WDIMSTYLE.LSP
;;;	By: Henry C. Francis
;;;	All rights reserved
;;;	www.paracadd.com
;;;

    
Commands/functions defined: c:mechdims
Requires:upoint,
menubackup.lsp
;;;Locates BMPs associated with a menu and copies them, the .MNL (if exists), and the selected .MNS file
;;;to the BAKUP subfolder to the menu folder.
;;;Lists BMP's that are not found in the AutoCAD Support File Search Path.
;;;Look in the folder that the menu was loaded into AutoCAD from for these BMPs.
;;;Add their path to the AutoCAD Support File Search Path and rerun MENUBACKUP to copy them to the BAKUP folder.
;;;
;;;	Requires: DOSLIB (free from McNEEL & Associates)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1-26-2006
;;;	   Edited: 1-26-2006
;;;

    
Commands/functions defined: c:menubackup
Requires:upoint,
mesh2pl.lsp
;;;
;;;
;;;Convert Polyline Mesh to a Polyline
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:mesh2pl
Requires:upoint,
mgn.lsp
;;;Place a Magnetic North Symbol (block) in the drawing at any orientation.
;;;(uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-27-94
;;;	Edited:		2-23-96
;;;

    
Commands/functions defined: c:mgn
Requires:mklayr, dimscl, gvpno, upoint,
mhang.lsp
;;;Place a fixed radius DMS angle dim. (w/o DIM). Fills in leading zeros.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;	
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-28-96
;;;	Edited:		1-25-2013
;;;
;;;	Separated "Label/Display" and format prompts , added option to label in degrees.
;;;

    
Commands/functions defined: c:mhang, makedimaro, mh_survang, mhang_error
Requires:dimscl, gvpno, make_layer_ent, makegroup, txtsize, ukword, ureal,
mhe.lsp
;Place a sized ellipse to scale at the station and invert supplied to it.
;
;	AUTHOR: Henry C. Francis
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;
;		All rights reserved without prejudice.
;
;	Copyright:	3-2-95
;	Edited:		6-20-96
;
;       PURPOSE:        This program will place a sized ellipse to scale at
;                       the station and invert supplied to it.  It is for
;                       profiles with a vertical scale 10x the horizontal
;                       scale.
;
;

    
Commands/functions defined: c:mhe
Requires:mklayr, uint, upoint, ureal,
mhel.lsp
;;;modify RIM ELEV. text to match SDSK point value (rnd to 10th).
;;;Requires SDSK point block with correct elevation and
;;;existing RIM ELEV. text string
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;

    
Commands/functions defined: c:mhel
Requires:mklayr, uint, upoint, ureal,
mhlbl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    
Commands/functions defined: c:imh, c:mhlbl
Requires:mklayr, dimscl, gvpno, stait, uint, ustr,
mhproj.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-12-08
;;;		   EDITED: 10-16-08
;;;

    
Commands/functions defined: c:mhproj, mhproj_error
Requires: Doslib, pttxt, ukword,
mklayr.lsp
;;;Save, Restore and Make layer utilities.  (uses modified CLG format)
;;;
;;;       This function is to save layer settings before running a utility
;;;       that sets its own layer so that the previous condition can be
;;;       restored.
;;;
;;;       Contains many layer related command and function definitions:
;;;
;;;	C:ALLON     C:CLGCOLOR     C:CLGLTYPE     C:CLGMAJOR     c:clgminor
;;;	c:clgmodif  c:clguser      c:clgvport     C:CLTHID       c:mklayr
;;;	c:rslayr    C:SRLAYER      c:svlayr       c:updlay       clcoxst
;;;	clltxst     clmgxst        clnmstd        force_layoff   force_layoffreeze
;;;	force_layonthaw            force_layunlock               get_lt
;;;	hycolr      layentmake     layentupdate   nonstd-nomod-msg
;;;	set_color_# set_layer_ltype_name          tlnmstd
;;;
;;;****************************************************************************
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://www.paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-18-95
;;;		   EDITED: 7-22-2016
;;;
;;;	Changed layer name modification routines to work properly while REFEDIT is active (accounts for $0$* layer names)
;;;
;;;	Added CLGLTYPE help to put a linetype name with the available symbols
;;;
;;;	Requires: set_mjrg.lsp, ustr.lsp, ukword.lsp, unit.lsp, make_layer_ent.lsp
;;;

    
Commands/functions defined: c:allon, c:appendlayer, c:clg5user, c:clgcolor, c:clgltype, c:clgmajor, c:clgminor, c:clgmodif, c:clguser, c:clgvport, c:clthid, c:mklayr, c:rslayr, c:srlayer, c:svlayr, c:updlay, clcoxst, clltxst, clmgxst, clnmstd, force_layoff, force_layoffreeze, force_layonthaw, force_layunlock, get_lt, hycolr, layentmake, layentupdate, mklayr_error, nonstd-nomod-msg, set_color_#, set_layer_ltype_name, tlnmstd
Requires: Doslib, check_for_doslib, initandsdichk, make_layer_ent, set_mjrg, srstring, uint, ukword, ustr,
mkstddir.lsp

    
Commands/functions defined: c:mkstddir
Requires: Doslib, ukword,
mlins.lsp
;;;Inserts a match line along the alignment (requires GPDGN alignment)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:mlins
Requires:uint,
mlsleft.lsp
;;;Authored by Lee Mac and posted to AutoCAD forums on 10-02-2013

    
Commands/functions defined: c:mlsleft
Requires:uint,
mlt.lsp
;;;Place leader and single or multiple line text notes. ~ reissues last note text for that line.
;;;
;;;	This program will place a leader with a vertical line for multiline
;;;	notes in the drawing.  the leader may be single or multiple lines
;;;	at any angle.  A vertical line will be placed at the end of the last
;;;	leader line if you input points for its Y values.  After the vertical
;;;	line is placed the notes and line are repositioned so that the vertical
;;;     line is centered on the end of the last leader line.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;	
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-14-1994
;;;	Edited:		7-17-2015
;;;
;;;	Requires Lisp files: uutils, getstyle, dimscl, gvpno, mklayr, txtsize
;;;	Requires DWG file: Ldraro
;;;

    
Commands/functions defined: c:ldropts, c:mlt, makenoteheader, mlt_error, pgld_makeleader
Requires:archldrs, dimscl, getstyle, gvpno, harchldrs, mklayr, ntxtstr, set_mjrg, txtsize, uangle, udist, uint, ukword, upoint, ureal, ustr,
mltht.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:mltht, c:showmlth
Requires:dimscl, ureal,
mltstyle.lsp

    
Commands/functions defined: addnewtextstyle, c:mltstyle, c:updatetextstyles, fun, listtextstyles
Requires:errortrap, mlsleft,
mnucmd.lsp
;;;Sets POP0 menu to either POPPIPE or the active CLG Major Group.
;;;Define submenus in the MNS file and swap them in this fashion.

    
Commands/functions defined: mnucmd
Requires:errortrap, mlsleft,
modtinpts.lsp

    
Commands/functions defined: c:addtinpts, c:modtinpts
Requires:ukword,
movetitl.lsp

    
Commands/functions defined: movetitl
Requires:ukword,
movez.lsp
;;;Changes Z coordinate to new value.  Uses Move trick to zero out Z value first.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  9-3-2002
;;;	   Edited:  9-3-2002

    
Commands/functions defined: c:movez
Requires:ureal,
mpdrop.lsp
;;;Converts Mpolygon entities into Polylines
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:mpdrop
Requires:ustr,
mpe.lsp
;;;Place pvmt edge blocks on 'right' side of polyline beginning at nearest end.
;;;Requires blocks PE and PEO (Pvmt Edge and Pvmt Edge Other side).
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:mpe
Requires:dimscl, ukword, ureal,
mpn.lsp
;;;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-27-94
;;;	Edited:		11-16-2005
;;;

    
Commands/functions defined: c:mpn
Requires:mklayr, dimscl, gvpno, upoint,
mpnh.lsp
;;;Place a Map North Symbol "n" (block) in the drawing.  (uses UPOINT)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-27-94
;;;	Edited:		11-20-2013
;;;

    
Commands/functions defined: c:mpnh
Requires:mklayr, dimscl, gvpno, upoint,
mss.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:mss, c:resetmss
Requires: Doslib, uint, ukword, ureal, ustr,
msview.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:msview ()
Requires:tsnap, ukword, vpbnd,
mt2ml.lsp
;;;
;;;
;;;	Author:	Unknown
;;;
;;;	From AUGI Forum
;;;	Posted by: icbinr
;;;

    
Commands/functions defined: c:mltstyle, c:mt2ml
Requires:dimscl, gvpno, mklayr, set_mjrg,
mtextexp.lsp

    
Commands/functions defined: c:mltexp, c:mtextexp, mtextexp-error
Requires:dimscl, gvpno, mklayr, set_mjrg,
mtoi.lsp
;;;Convert a number in (m)any text string(s) from meters to feet.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-29-98
;;;

    
Commands/functions defined: c:mtoi
Requires:uint,
mvsta.lsp

    
Commands/functions defined: c:mvsta
Requires:uint,
mxplode.lsp
;; MXPLODE.LSP    Training Department - 2/19/91  Release 11
;
;     Copyright (C) 1991-92 by Autodesk, Inc.
;
;     Permission to use, copy, modify, and distribute this software 
;     for any purpose and without fee is hereby granted, provided 
;     that the above copyright notice appears in all copies and that 
;     both that copyright notice and this permission notice appear in 
;     all supporting documentation.
;
;     THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;     WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;     PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;     ****************************************************************
;; This routine explodes uniformly scaled blocks that have
;; been mirrored, or blocks inserted with both negative and
;; positive xyz scale factors (i.e. 1 -1 -1).
;; The steps taken are as follows:

;;  1)  Select enitity
;;  2)  Find x, y, & z scale factors
;;  3)  Check to see if selected entity is a block with or
;;      without uniform scale factors
;;  4)  Check to see if block has uniform absolute scale
;;      factors
;;  5)  Switch UCS to view
;;  6)  Copy block off screen
;;  7)  Switch to UCS of the the copied block insertion and
;;      modify (entmod) its scale factors
;;  8)  Explode block
;;  9)  Collect entities resulting from explode into a set
;; 10)  Reposition the selection set back into place
;; 11)  Erase originally selected block insertion
;; 12)  Switch back UCS back to view, and move entites into
;;      position
;; 13)  Switch back to original UCS

;; Step 5,6,11, & 12 are not necessary.  It is done so the 
;; user does not see the modified block being mirrored or
;; rotated into place.



    
Commands/functions defined: -x-yz, -xy-z, -xyz, c:mxplode, m-err, x-y-z, x-yz, xy-z
Requires:uint,
myatoms.lsp

    
Commands/functions defined: c:getmyatoms, c:initatoms, c:killmyatoms, c:listmyatoms
Requires:uint,
myblks.lsp

    
Commands/functions defined: c:myblks
Requires:getblockinserts,
mydim.lsp
;;;Requires (ARXUNLOAD "ACDIM") before first run to enable this defun as (C:DIM) in lieu of AutoCAD's built in DIMension functions.
;;;typing (ARXLOAD "ACDIM") at the command prompt will load ACDIM.ARX restoring the default DIM command.
;;;
;;;Purpose:
;;;
;;;    Automatically set view dependent layers for dimensions within floating viewports so that their display can easily
;;;    be isolated to the view they are in.
;;;
;;;Limitations:
;;;
;;;    This function can only be used for Horizontal or Vertical dimensions.
;;;    While using this function you cannot select the entity to dimension, you must select both extension line origins.
;;;
;;;Subroutines used:
;;;
;;;    mklayr.lsp, gvpno.lsp, ukword.lsp, upoint.lsp, ustr.lsp
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6-19-2009
;;;		   EDITED: 2-10-2011
;;;

    
Commands/functions defined: c:acdim, c:dim, c:dimlay, c:mydim, mydim_error
Requires:gvpno, mklayr, set_mjrg, ukword, upoint, ustr,
mydim2.lsp
;;;Requires (ARXUNLOAD "ACDIM") before first run to enable this defun in lieu of AutoCAD's built in DIMension functions.
;;;typing (ARXLOAD "ACDIM") at the command prompt will load ACDIM.ARX restoring the default DIM command.
;;;
;;;Purpose:
;;;
;;;    Automatically set view dependent layers for dimensions within floating viewports so that their display can easily
;;;    be isolated to the view they are in.
;;;
;;;Limitations:
;;;
;;;    This function can only be used for Horizontal or Vertical dimensions.
;;;    While using this function you cannot select the entity to dimension, you must select both extension line origins.
;;;
;;;Subroutines used:
;;;
;;;    mklayr.lsp, gvpno.lsp, ukword.lsp, upoint.lsp, ustr.lsp
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6-19-2009
;;;		   EDITED: 2-10-2011
;;;

    
Commands/functions defined: c:dim
Requires:gvpno, mklayr, set_mjrg, ukword, upoint, ustr,
mydimstyles.lsp

    
Commands/functions defined: c:elldrs, c:ftdims, c:ftldrs, c:indims, c:inldrs, c:mydimstyles
Requires:archdims, archldrs, elecldrs, engrdims, engrldrs,
mymldr.lsp
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2006
;;;	Edited:		1-20-2016
;;;
;;;****************************************************************************

    
Commands/functions defined: c:mltang, c:mltarrow, c:mltcolor, c:mltdot, c:mltelev, c:mlthalf, c:mlthelp, c:mltht, c:mltjust, c:mltloop, c:mltrot, c:mltscale, c:mltspot, c:mltstd, c:mlttilde, c:mltutils, c:mltwid, c:mtognew, c:mymldr, c:showmlth, c:tl, elevation-mlt, half-mlt, mymldr_error, spot-mlt, standard-mlt
Requires: Doslib, dimscl, errortrap, getstyle, gvpno, mklayr, mltstyle, remlt, truecolor, uint, ukword, upoint, ureal,
mymview.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 3-5-2008
;;;		   EDITED: 3-5-2008
;;;

    
Commands/functions defined: c:mymview
Requires:clg_color, make_layer_ent, ukword, upoint, ustr,
myopen_fun.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;**************************************************************************************

    
Commands/functions defined: debug_what_to_do, myopen_fun
Requires:acaddoclist, dlog, errortrap, ukword,
myopencmd.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;**************************************************************************************
;;;
;;;NOTE:
;;;Some problems (crashing AutoCAD) will happen randomly when .OPEN is called from within
;;;autolisp routines.  It has been observed that this problem never or very rarely occurs
;;;when drawings are opened using a script.  This is true regardless of how many drawings
;;;are opened in succession using the script; therefore, the autolisp calls for the .OPEN
;;;command herein have been replaced by script execution of the .OPEN command in the hope
;;;of eliminating or greatly reducing the number of crashes resulting from autolisp calls
;;;to the .OPEN command.
;;;
;;;**************************************************************************************

    
Commands/functions defined: debug_what_to_do, myopen_fun, myopencmd
Requires: Doslib, \, check_for_doslib, chkxrefsizes, dlog, initandsdichk, log_it, princdebugstrs,
mypl.lsp

    
Commands/functions defined: c:mypl
Requires: Doslib, \, check_for_doslib, chkxrefsizes, dlog, initandsdichk, log_it, princdebugstrs,
myplotdwg.lsp

    
Commands/functions defined: c:myplotdwg()
Requires: Doslib, autodpifix,
myqsave.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:qsave
Requires:backup, lbl, clbl, dlog, log_it, princdebugstrs, prjndx,
mytime.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;******************************************************************************

    
Commands/functions defined: c:mytime, get-edit-day-lst, get-job-time
Requires: Doslib, check_for_doslib, stacklist,
myucs.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:myucs
Requires:upoint,
myvlfuns.lsp

    
Commands/functions defined: c:vlfuns
Requires:upoint,
navoffall.lsp

    
Commands/functions defined: c:ctr, c:navoffall, c:navonall
Requires:upoint,
navvcubedisplay-off-reactor.lsp

    
Commands/functions defined: endcommand, reactor-navvcube
Requires:upoint,
ncmap.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2/8/2012
;;;		   EDITED: 2/8/2012
;;;

    
Commands/functions defined: c:ncmap
Requires:ukword, upoint,
nentsel_to_mcs.lsp

    
Commands/functions defined: nentsel_to_mcs
Requires:ukword, upoint,
newgroup.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 1/13/2010
;;;		   EDITED: 1/13/2010
;;;
;;;****************************************************************************

    
Commands/functions defined: c:newgroup
Requires:groups, ustr,
newmvpc.lsp
;;;This function is intended to automate the positioning of a detail enlargement in a "numbered" viewport.
;;;The commands are ZC3 through ZC6 (additional command numbers may be easily added below).
;;;
;;;Viewport numbers are specified in characters 3-6 of the viewport layer name, e.g. C-VI037NPLT (This is a modified CLG format)
;;;
;;;In the example viewport layer name:
;;;	1st character "C" specifies it is a Civil layer.
;;;	2nd character "-" specifies the layer linetype is "continuous".
;;;		(2nd character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	3rd through 6th character "VI03" specifies is a viewport number of 3.
;;;	7th character "7" specifies a layer color 7.
;;;		(7th character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	8th through 11th character "NPLT" specifies it is a Non-Plot layer.
;;;
;;;VPSET, an external subroutine, works using this layer format.
;;;UPOINT is an external subroutine.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2011
;;;		   EDITED: 11/17/2011
;;;

    
Commands/functions defined: c:zc1, c:zc10, c:zc2, c:zc3, c:zc4, c:zc5, c:zc6, c:zc7, c:zc8, c:zc9, newmvpc
Requires:tsnap, uint, upoint, vpset,
newxrswap.lsp
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses Robert McNeel & Assoc.'s DOSLIB)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	9-30-2009 Completely rewritten 
;;;
;;;;******************************************************************************

    
Commands/functions defined: c:xrswap, calc_zoom_pts, do_swap_stuff, isdbmod, rotate_scale_pts
Requires:tsnap, uint, upoint, vpset,
newz.lsp
;;;NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		8-28-96
;;;

    
Commands/functions defined: c:dotconts, c:matz, c:newz, c:offz, c:showz, c:ze
Requires:uint, ureal,
next.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:next, c:nextdwg, c:prev, c:xreturn, set_from_proj_desc
Requires: Doslib, check_for_doslib, initandsdichk, myopen_fun, myopencmd, proj, save_file_chk, setprevdwg, sopen,
nilbns.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:nilbns
Requires: Doslib, check_for_doslib, initandsdichk, myopen_fun, myopencmd, proj, save_file_chk, setprevdwg, sopen,
nilit.lsp

    
Commands/functions defined: c:nilit
Requires: Doslib, check_for_doslib, initandsdichk, myopen_fun, myopencmd, proj, save_file_chk, setprevdwg, sopen,
nint.lsp
;;;Change the first number in a text string by the user specified value. The
;;;new number is conformed to the units of 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.
;;;
;;;If the symbol 'do_elevincr' evaluates to T (true), and
;;;If the symbol 'elevincr_lst' exists and is a list of numbers (INT or REAL)
;;;C:NINT will adjust the 'value to change number by' by subtracting the numbers
;;;in the list in order, one each pick.  E.g., if your initial values to change are
;;;all 000.00 such as standard elevations on pump station sections might be at first,
;;;they can be set to different values each calculated as a difference from the
;;;previous value.
;;;
;;;(uses UINT UKWORD UREAL USTR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		1-30-2015
;;;

    
Commands/functions defined: c:n-, c:n+, c:nint, c:nints, fix_str_prec, nint
Requires:uint, ukword, ureal, ustr,
nn.lsp
;;;Changes numbers by specified amount.  If text is in Station format, "+" is
;;;kept in the number which is still properly read and edited.  The new number
;;;is conformed to the current linear units precision setting (LUPREC).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-02-94
;;;	Edited:		6-18-2014
;;;

    
Commands/functions defined: c:nn
Requires:stait, uint, ustr,
notby.lsp
;;;Select everything that is NOT layer and color BYBLOCK.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:notby
Requires:stait, uint, ustr,
nsang.lsp
;;;Reformats bearing (DMS) text while optionally changing the angle
;;;and/or the direction.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved
;;;

    
Commands/functions defined: c:nsang
Requires:uint, ukword,
ntxtstr.lsp
;;;Subroutine for use with MLT and REMLT

    
Commands/functions defined: ntxtstr
Requires:uint, ukword,
numhses.lsp
;;;Requires a block named HOUSE with attribute tag HOUSE#
;;;
;;;Required subroutines:	UINT.LSP
;;;				ATTUPD.LSP
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:numhses
Requires:attupd, uint,
objcolor.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/4/2012
;;;	   Edited: 4/42012
;;;

    
Commands/functions defined: c:objcolor
Requires:truecolor, uint,
ohsnap.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:ohsnap
Requires:truecolor, uint,
oldxrswap.lsp
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses UKWORD)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	3-6-2008 Completely rewritten 
;;;

    
Commands/functions defined: c:xrswap, calc_zoom_pts, isdbmod, rotate_scale_pts
Requires: Doslib, gvpno, log_it, sopen,
open.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "open") is required or this DEFUN will not
;;;redefine QSAVE (COMMAND ".undefine" "open") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    
Commands/functions defined: c:open, myownopencmd
Requires: Doslib, check_for_doslib, initandsdichk, myopen_fun, myopencmd, princdebugstrs, proj, save_file_chk, setprevdwg,
opendwg.lsp

    
Commands/functions defined: c:opendwg
Requires: Doslib, check_for_doslib, initandsdichk, myopen_fun, myopencmd, princdebugstrs, proj, save_file_chk, setprevdwg,
openpagesetups.lsp

    
Commands/functions defined: c:donepagesetups, c:editpagesetups
Requires: Doslib, ukword,
openprof.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:openplan, c:openprof
Requires: Doslib, ukword,
panpnt.lsp
;;;Made for use with voice commands. returns a pan displacement
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6/2004
;;;	   Edited:  6/2004

    
Commands/functions defined: panpnt
Requires: Doslib, ukword,
paramask.lsp
;;;Place "masking" objects under text, mtext and dimensions.
;;;Adjust margin spacing via dialog interface.
;;;
;;;Added exclusion of text with thickness = 1.0
;;;(to always exclude certain text from processing give it a thickness of 1.0)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		12-28-12
;;;
;;;	removed creation of 3Dfaces - now makes HDBOX inserts only.
;;;	requires image 1x1.bmp and block HDBOX.
;;;

    
Commands/functions defined: c:demask, c:hdmatch, c:hdspace, c:hdupd, c:paramask, c:pmask, ddhtextsof, dodraworder, fun, fun, getsets, hddimmtext, hdtext_values, makepmasks, maskdims, paravpset, pmask, pmskgvpno, set_margin
Requires:\, browser_help, mklayr, pttxt, uint, ukword, ureal, ustr,
parlbl.lsp

    
Commands/functions defined: c:parlbl
Requires:mymldr,
pbrk.lsp
;;;Place pipe break symbol automatically by selecting sides.
;;;(uses PBRK.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		6-6-99


    
Commands/functions defined: c:pbrk
Requires:mymldr,
pbrkd.lsp
;;;Place double-line pipe break symbol automatically by selecting outside walls.
;;;(uses PBRK.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		6-6-99


    
Commands/functions defined: c:pbrkd
Requires:mymldr,
pbs.lsp
;;;Draws a concrete duct bank (rectangle) to scale at the station and invert supplied.
;;;It is for profiles with a vertical scale 10x the horizontal scale.
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	8-18-95
;;;	Edited:		12-18-97
;;;
;;;requires ureal.lsp uint.lsp upoint.lsp

    
Commands/functions defined: c:pbs
Requires:mklayr, uint, upoint, ureal,
peseal.lsp
;;; Xref attachment function for PE seal.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2001
;;;	Edited:	2-21-2007
;;;

    
Commands/functions defined: c:peseal, c:sealcolor
Requires:dimscl, mklayr, uint, ukword, ustr,
pgl.lsp
;;;Place a standard Plan Grid array beginning at the point you specify
;;;       and terminating at the north and east
;;;       distances you specify.  The grid will be divided into 100', 500'
;;;       and 1000'grid lines on separate layers so that you can easily
;;;       change between display of these intervals without editing the grid.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-31-94
;;;	Edited:		6-15-99
;;;

    
Commands/functions defined: c:1000grid, c:100grid, c:200grid, c:500grid, c:egrid, c:pgl
Requires:upoint, ureal,
phlay.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/2007
;;;		   EDITED: 6/2007
;;;

    
Commands/functions defined: c:phlay
Requires:uint,
pl2box.lsp
;;;Converts a (LW)Polyline through any 3 points into a closed 4 point polyline that describes a parallelogram
;;;with corners at the original 3 points (4th point is mathematically constructed).
;;;
;;;Purpose:	To "finish the box" described by 3 surveyed points on a 4 cornered object, e.g. equipment pads, etc.
;;;		Typically used to create an approximate square or rectangle from 3 survey points.  It will always
;;;		create a parallelogram.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 4/15/2010
;;;		   EDITED: 4/15/2010
;;;

    
Commands/functions defined: c:pl2box
Requires:uint,
placeview-layer-reactor.lsp
;; by default turn the ability ON

    
Commands/functions defined: acdb-objectappended, dlog-reactor, docbecamecurrent, dwgclosebegan, dwgsavebegan, dwgsavecomplete, enddwgopen, reactor-editor
Requires:autowhodunit, dlog, errortrap, make-layer-ent, make_layer_ent, setdefplot, uint,
planvpfix.lsp
;;;
;;;Shifts right-most edge of standard PPGEN generated ANSI-D plan viewport left by 0.275 units.
;;;Purpose is to provide clear space for "NOT FOR CONSTRUCTION" or other interim note without
;;;the necessity to invoke "Plot paperspace last" to avoid modelspace wipeouts obliterating the note.
;;;Execute this routine from a script applied to all plan and profile sheets for best time economy.
;;;

    
Commands/functions defined: c:planvpfix
Requires:autowhodunit, dlog, errortrap, make-layer-ent, make_layer_ent, setdefplot, uint,
plbl.lsp
;;;Plot label utility.  Written By: Henry C. Francis	7/22/91
;;;
;;;	This routine will automatically place several informational
;;;	items as a string in an attribute called FILSPEC in a block
;;;	named pltstamp.  The attribute is positioned and rotated to
;;;	fit just inside the binding edge of any standard sheet size.
;;;	Currently all sheet sizes except 8.5" x 11" will be stamped
;;;	along the short side of the sheet in all cases.  The 8.5" x 11"
;;;	sheet will be stamped along the long side of the sheet.
;;;		
;;;               The items are, in order,
;;;	       Filespec:	(path\filename)	         (dwgprefix + dwgname + .DWG)
;;;	      Edited By:	user login name		 (reads from environment)
;;;		   Date:	mm/dd/yy	         (extracted from cdate)
;;;		   Time:	hh:mm		         (extracted from cdate)
;;;		  Scale:	nn"=1'-0" or 1"=nn'	 (calculated from dimscale)
;;;

    
Commands/functions defined: c:plbl, pdate, setsclfac
Requires: Doslib, check_for_doslib, dimscl, mklayr,
plcolor.lsp

    
Commands/functions defined: c:plcolor, c:replcolor
Requires:uint,
pldir.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:pldir
Requires:uint,
plgrid.lsp
;;;Place a standard Plan Grid array beginning at the point you specify
;;;       and terminating at the north and east
;;;       distances you specify. The grid will be divided into 100', 500'
;;;       and 1000'grid lines on separate layers so that you can easily
;;;       change between display of these intervals without editing the grid.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-28-96
;;;	Edited:		4-22-2004
;;;

    
Commands/functions defined: c:plgrid
Requires:mklayr, upoint,
pln.lsp
;Place a Plan North Symbol in the drawing at any orientation. (uses UPOINT)
;Also uses NA1.DWG (static horizontal part) and NA2.DWG (pointer, set to 
;any rotation)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;
;	Copyright:	5-27-94
;	Edited:		6-18-94
;

    
Commands/functions defined: c:pln
Requires:dimscl, gvpno, mklayr, upoint,
ploc.lsp
;Open/Close a selection set of polyline entities.
;	The only input
;       required is the selection of the polylines to modify.  There
;       is no need to worry about not selecting non-polyline entities
;       because they will be automatically filtered out of the
;       selection set.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	5-17-94
;	Edited:		6-7-94
;

    
Commands/functions defined: c:ploc
Requires:ukword,
plot2f.lsp

    
Commands/functions defined: c:plot2f()
Requires:ukword,
plotbars.lsp

    
Commands/functions defined: c:make_bars_xml, c:make_html, c:make_lisp_xml, c:plotbars
Requires: Doslib, check_for_doslib, myopen_fun,
plotfull.lsp

    
Commands/functions defined: c:plotfull()
Requires:autodpifix,
plothalf.lsp

    
Commands/functions defined: c:plothalf()
Requires:autodpifix,
plrev.lsp
;;;This routine will reverse the order of vertices in any polyline.  It
;;;creates a new polyline at the end of the existing one that has just two
;;;vertices occupying the same point as the existing end.  It then uses
;;;PEDIT JOIN to accomplish the reversal.  If your polylines must not have
;;;more than one vertex occupying the origin point of the newly ordered
;;;polyline then don't use this routine or PEDIT the result to remove the
;;;extra vertices created by this routine.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-3-95
;;;	Edited:		8-28-2013
;;;
;;;	Incorporated AutoCAD's Reverse option in its curent PEDIT command
;;;

    
Commands/functions defined: c:plrev
Requires:autodpifix,
plthk.lsp
;Modifies thickness of a selection set of entities.
;	The only input
;       required is the selection of the entities to modify.
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	8-4-97
;	Edited:		8-4-97
;

    
Commands/functions defined: c:plthk
Requires:ureal,
pltl.lsp
;;;Place title text, underline and scale text.
;;;       Uses DIMSCALE and LUNITS to format scale string and scale bubble
;;;       and text.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-30-93
;;;	Edited:		6-17-2003
;;;
;;;       Requirements:   GETSTYLE.LSP (gets current style values and changes
;;;                                     them as req'd for this function only.)
;;;

    
Commands/functions defined: c:pltl
Requires:mklayr, dimscl, getstyle, gvpno, ukword, ustr,
pltsiz.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: pltsiz
Requires:mklayr, dimscl, getstyle, gvpno, ukword, ustr,
plwid.lsp
;;;Modifies width of a selection set of polyline entities.
;;;	The only input
;;;       required is the selection of the polylines to modify.  There
;;;       is no need to worry about not selecting non-polyline entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	5-17-94
;;;	Edited:		6-7-94
;;;

    
Commands/functions defined: c:plwid
Requires:ukword, ureal,
plwids.lsp

    
Commands/functions defined: c:plwids
Requires:ureal,
plxl.lsp
;;;Translate plines w/ arcs to plines w/ mult. straight segments for use
;;;with DTM TIN's for contouring.  Rounds out pline arcs via a suitable no.
;;;of straight segments.  The determiner is based on small angle deflection.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-10-96
;;;	Edited:		10-16-2006
;;;

    
Commands/functions defined: c:plxl
Requires:ureal,
pntel.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-17-2004
;;;	   Edited:  5-17-2004

    
Commands/functions defined: c:pntel
Requires:ureal,
pointangle.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.

    
Commands/functions defined: c:pntang, c:pointangle, c:ptang
Requires:ureal,
poptl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  10-23-2002
;;;	   Edited:  10-3-2002
;;;

    
Commands/functions defined: c:bthtl, c:cdmlsttl, c:cdmtl, c:civtl, c:cmptl, c:dlvtl, c:drwtl, c:enttl, c:fittl, c:gattl, c:laytl, c:mectl, c:msctl, c:pmptl, c:poptl, c:slvtl, c:stdtl, c:swrtl, c:tretl, c:txttl, c:wtrtl
Requires:ureal,
ppdisp.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:ppdisp
Requires:uint,
ppgrid-arch-d.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  2-13-2007

    
Commands/functions defined: c:ppgrid-arch-d, ppgrid-arch-d_error
Requires:mklayr, ukword,
ppgrid.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  5-7-2014

    
Commands/functions defined: c:ppgrid, ppgrid_error
Requires:mklayr, ukword,
ppgrida.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  5-21-2004
;;;	   Edited:  2-13-2007

    
Commands/functions defined: c:ppgrida, ppgrida_error
Requires:mklayr, uint,
pppset.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    
Commands/functions defined: c:pppset
Requires:uint, ukword, ustr,
princdebugstrs.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6/21/2006
;;;	   Edited:	12/8/2016

    
Commands/functions defined: princdebugstrs
Requires:uint, ukword, ustr,
prjmgmt.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1997-1999
;;;	   Edited: 3-19-99
;;;

    
Commands/functions defined: c:prjmgmt
Requires: Doslib, set_drive_letters, ukword, ustr,
prjndx.lsp
;;;Lisp function: (prjndx)
;;;     and other supporting lisp subroutines are included in this file.
;;;
;;;     (prjndx) Creates/Updates PRJNDX.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
;;;
;;;Use SHTNDX to create a complete drawing index from PRJNDX.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.
;;;
;;;PRJNDX.TXT Notes:
;;;
;;;       Use EDTXT to open PRJNDX.TXT in Notepad.  Open PRJNDX.TXT to
;;;       view drawing names and their associated sheet numbers (a very
;;;       handy reference).
;;;
;;;       PRJNDX 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-22-2007
;;;

    
Commands/functions defined: c:prjndx, prjndx, vpbnds
Requires: Doslib, shtbnd,
procp.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;****************************************************************************

    
Commands/functions defined: c:procp, c:procps, procp_error
Requires:mlt, getstyle, lamacs, mymldr, ukword, upoint, ureal,
profxing.lsp
;;;Layout vertically exaggerated circles (ellipses) for double reverse curve in profile for pipeline
;;;crossings to be accomplished using deflections instead of bends.
;;;User specifies non-exaggerated radii for circles and ellipses are drawn to match the user specified
;;;vertical exaggeration for the circles.  Radius of each ellipse can be dynamically increased or decreased
;;;prior to accepting the ellipse placement.
;;;
;;;The layout is of the pipe invert where the user specifies the pipe size and
;;;the required clearance between the selected point on the crossing object and
;;;the top of the pipe.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 4-27-2009
;;;		   EDITED: 12-18-2015
;;;
;;;****************************************************************************

    
Commands/functions defined: c:profxing, calc-left-elev, calc-mid-elev, calc-right-elev, calcalignpnts, fixthisellcolor
Requires:ukword, upoint, ureal,
proj.lsp
;;;Dialog - Create, Select or Delete Project listings (delete has no effect on files
;;;or folders, it just removes from list of available projects).
;;;Sort projects by Client #, Project #, Client Name, or Project description.
;;;Explorer window and Open dialog start in the project folder.  No need to browse and
;;;find the correct folder.
;;;
;;;Change values set in (set_drive_letters) to customize for your needs
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1999-2010
;;;	Edited:		8-20-2010
;;;
;;;********************************************************************

    
Commands/functions defined: c:fast, c:last, c:proj, delete_name, do_dir_stuff, do_writelast, exp_list (), explore_proj, fresh_list, fun, get_proj_seed, openlastdwg, preview_proj, proj_action, save_proj, sel_proj (sv_optn, set_client_list, set_proj_desc, set_proj_list, sort_prj (/), subf_dialog
Requires: Doslib, acaddoclist, browser_help, check_for_doslib, dlog, initandsdichk, log_it, myopen_fun, myopencmd, save_file_chk, set_drive_letters, setprevdwg, sopen, ukword,
proj_notes.lsp

    
Commands/functions defined: c:proj_notes()
Requires: Doslib, acaddoclist, browser_help, check_for_doslib, dlog, initandsdichk, log_it, myopen_fun, myopencmd, save_file_chk, set_drive_letters, setprevdwg, sopen, ukword,
propno.lsp
;;;Place property number block (triangle with number as attribute)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  6/19/2001
;;;	   Edited:  6/19/2001

    
Commands/functions defined: c:propno ()
Requires:dimscl, gvpno, mklayr, uint, upoint,
prov.lsp
;;;Prints a proverb to the output (text) screen and command line.
;;;Requires proverbs.dat
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:prov
Requires:dimscl, gvpno, mklayr, uint, upoint,
psct.lsp
;;;Place a pipe section symbol (yin-yan, sans the dots) in an arc or circle.
;;;(uses YINYAN.DWG)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-18-94
;;;	Edited:		1-14-2008
;;;

    
Commands/functions defined: c:psct, psct_error
Requires:make_layer_ent,
psets.lsp
;;;Sets ParaPIPE parameters to match previously drawn ParaPIPE entities
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  4/2003
;;;	   Edited:  6/2003

    
Commands/functions defined: c:psets
Requires:uint, ukword,
pspace.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;If tilemode must be 0 then why don't we just set it?

    
Commands/functions defined: funfun
Requires:uint, ukword,
psty2ctb.lsp
;;;Force PSTYLEMODE=1 (Drawing uses color tables for plotting).

    
Commands/functions defined: c:psty2ctb
Requires:uint, ukword,
ptank.lsp
;;;Draws a pressure tank from centers or ends.
;;;Requires: Ukword.lsp, Upoint.lsp, Ureal.lsp
;;;

    
Commands/functions defined: c:ptank
Requires:ukword, upoint, ureal,
ptprogress.lsp
;;;****************************************************************************

    
Commands/functions defined: c:ptprogress, c:ptselect
Requires:ustr,
pttxt.lsp
;(subroutine) Place text at points.

    
Commands/functions defined: c:delpttxt, pttxt
Requires:tsnap,
pubcolor.lsp

    
Commands/functions defined: c:pubcolor()
Requires:tsnap,
publish-reactor.lsp
;define function reactor for publish command start and end

    
Commands/functions defined: end-cmd, fc:cmd-publish, start-cmd
Requires:setdef,
pucs.lsp
;Set a UCS to match a profile grid (Y is exagerated 10X).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;

    
Commands/functions defined: c:pucs
Requires:upoint, ureal, ustr,
purgeall.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:purgeall
Requires:upoint, ureal, ustr,
purgeldd.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:purgeldd
Requires:upoint, ureal, ustr,
qlay.lsp
;;;Quick "set to existing layer" dialog.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-28-96
;;;	Edited:		9-11-97
;;;
;;;requires QLAY.DCL

    
Commands/functions defined: c:qlay, lay_list, set_clayr, w_list
Requires:upoint, ureal, ustr,
qsave.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;At some point prior to the DEFUN/DEFUN-Q below the statement (COMMAND ".undefine" "qsave")
;;;is required or this DEFUN/DEFUN-Q will not redefine the internal QSAVE command.
;;;The statement (COMMAND ".undefine" "qsave") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN/DEFUN-Q.
;;;

    
Commands/functions defined: c:qsave, fun, fun
Requires: Doslib, backup, corpndx, dlog, groups, lbl, log_it, lvndx, ukword,
quit.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Logs the quit.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "quit") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "quit") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    
Commands/functions defined: c:quit
Requires: Doslib, dlog, myopen_fun,
rasterptsize.lsp
;;;
;;;
;;;	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
;;;
;;;The bulk and foundation of this code is from Jeff M. of Autodesk Forums (also a swamper, http://www.theswamp.org/)
;;;Thank you Jeff!
;;;
;;;Modify "drawing scale" point style sizes for raster display and output

    
Commands/functions defined: c:normalalignlabelsize, c:normalcontourlabelsize, c:ptdownsize, c:ptscaledownsize, c:ptscaleupsize, c:ptupsize, c:rasteralignlabelsize, c:rastercontourlabelsize, c:setptsize, changealignlabelsize, changecontourlabelsize, changeptsize, fun, fun
Requires:c3difodoc, truecolor, ukword, ureal,
rattr.lsp
;;;Search and Replace ATTRIBUTE values; copyright 1997, H.C. Francis
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-8-97
;;;	Edited:		2-5-01
;;;

    
Commands/functions defined: c:rattr, rattr, rattr_core
Requires:ukword, ustr, uutils,
rblk.lsp
;;;Update or Replace an existing block. (uses USTR UKWORD)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1991 - 2011
;;;	   Edited:  2-28-2008
;;;
;;;Fixed to retain attribute values for identical tags in replacement block.
;;;
;;;Requires subroutines: UKWORD.LSP, USTR.LSP, MKLAYR.LSP
;;;which are available free here: http://paracadd.com/lisp/lisp_lst.htm
;;;or by direct download: http://paracadd.com/lisp/[filename.ext]
;;;

    
Commands/functions defined: c:rblk, rblk
Requires:mklayr, uint, ukword, ustr,
rbrkl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2-18-2004
;;;	   Edited:  2-18-2004

    
Commands/functions defined: c:rbrkl
Requires:dimscl, gvpno, upoint,
rbub.lsp

    
Commands/functions defined: c:fixhouses, c:fixrr, c:flo, c:flo1, c:flo2, c:rbub
Requires:rrtxt, tolayer, txtj, dimscl, upoint,
rdname.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:rdname
Requires:mklayr, dimscl, gvpno, txtsize, uangle, upoint, ustr,
reacs.lsp

    
Commands/functions defined: c:reacs, listallreactions(), listallreactors(
Requires:mklayr, dimscl, gvpno, txtsize, uangle, upoint, ustr,
reactstate.lsp
;;;Eric Schneider, 8/18/00
;;;tests for constructed "reactor"
;;;syntax: (REAC:STATE 'reactor mode)
;;;arguments: reactor - quoted typical reactor construction syntax, mode - integer 0-7
;;;usage: (REAC:STATE '(VLR-Command-Reactor nil '((:VLR-commandWillStart . TEST))) 1)
;;;"mode" 0 constructs "reactor" once even if already constructed
;;;"mode" 1 constructs "reactor" once if "reactor" has not already been constructed
;;;"mode" 2 removes first constructed "reactor" with matching "event" and "call", then constructs once
;;;"mode" 3 removes *all* constructed "reactor"s with matching "event" and "call", then constructs once
;;;"mode" 4 removes first constructed "reactor" with matching "event" and "call"
;;;"mode" 5 removes *all* constructed "reactor"s with matching "event" and "call"
;;;"mode" 6 removes *all* constructed "reactor"s with matching "event" regardless of "call"
;;;"mode" 7 removes *all* constructed "reactor"s regardless of "call" or "event"
;;;returns last VLR object acted upon, else nil

    
Commands/functions defined: reac:state, rev-callback
Requires:mklayr, dimscl, gvpno, txtsize, uangle, upoint, ustr,
reattr.lsp
;;;Reformat and reposition/reinsert multiline text notes (not MTEXT).
;;;Copies text and attributes from Xrefs to format new notes.
;;;
;;;          AUTHOR: HENRY C. FRANCIS
;;;                  425 N. Ashe Street
;;;                  Southern Pines, NC 28387
;;;              
;;;          All rights reserved without prejudice.
;;;
;;;       Copyright:     1999
;;;       Edited:        11-24-2006
;;;
;;;When Text size is specified, it is in Leroy template sizes.  Leroy template
;;;sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
;;;dimscale of 1.  It is 3.00" high at a dimscale of 30.
;;;
;;;The following are required:
;;;GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP
;;;
;;;
;;;****************************************************************************

    
Commands/functions defined: c:reattr, reattr_error
Requires:dimscl, getstyle, gvpno, mklayr, txtsize, uangle, ukword, upoint, uutils,
reattrall.lsp
;;;Reformat and reposition/reinsert multiline text notes (not MTEXT).
;;;Copies text and attributes from Xrefs to format new notes.
;;;
;;;          AUTHOR: HENRY C. FRANCIS
;;;                  425 N. Ashe Street
;;;                  Southern Pines, NC 28387
;;;              
;;;          All rights reserved without prejudice.
;;;
;;;       Copyright:     1999
;;;       Edited:        11-24-2006
;;;
;;;When Text size is specified, it is in Leroy template sizes.  Leroy template
;;;sizes are in 1000ths. Leroy 100 template is 100/1000ths or 0.10" high at a
;;;dimscale of 1.  It is 3.00" high at a dimscale of 30.
;;;
;;;The following are required:
;;;GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP, TXTSIZE.LSP
;;;
;;;
;;;****************************************************************************

    
Commands/functions defined: c:rat, c:reattrall, reattr_error
Requires:dimscl, getstyle, gvpno, mklayr, txtsize, uutils,
rebar.lsp
;;;REBAR - Draws rebar at specified spacing in already drawn slabs and walls
;;;
;;;RCORNER - Draws rebar at intersecting corners
;;;
;;;RHOOK - Draws individual rebar hooks
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:rcorner, c:rebar, c:rebarpl, c:rhook, make_rebar_group, rebar_error
Requires:mklayr, pttxt, uangle, ukword, upoint, ureal,
recentdwg.lsp

    
Commands/functions defined: c:recentdwg, recentdwg-error
Requires:mklayr, pttxt, uangle, ukword, upoint, ureal,
recloud.lsp

    
Commands/functions defined: c:recloud
Requires:ukword,
refreshfiles.lsp

    
Commands/functions defined: c:refreshfiles
Requires:ukword,
regsetacad.lsp
;;;Note: This routine is specifically written for AutoCAD 2004 registry keys.
;;;Adds 'pathlist' (a list of paths) to the "AutoCAD Support File Search Path" of all current user profiles
;;;Paths that already exist in the "AutoCAD Support File Search Path" are ignored.
;;;Paths that do not exist on the user workstation will not be added.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 2-16-2008
;;;		   EDITED: 2-16-2008
;;;

    
Commands/functions defined: regsetacad
Requires:ukword,
rehd.lsp
;;;Replaces old hd??? block definitions with new ones.
;;;Requires new hd??? drawings.
;;;2005

    
Commands/functions defined: c:rehd
Requires:ukword,
relay.lsp
;;;Change all entities on a layer to another layer (or a new layer).
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;             
;;; 		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-6-96
;;;	Edited:		4-9-2008
;;;


    
Commands/functions defined: c:relay
Requires:mklayr, ukword, ustr,
remdescrsp.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: June 10, 2011
;;;		   EDITED: June 10, 2011
;;;

    
Commands/functions defined: c:remdescrsp, remdescrsp_error
Requires: Doslib, collist, stacklist,
remlt.lsp
;;;Places leader, line(s) of text and a vertical line w/ multiple lines of text.
;;;    The leader may include a single line segment or multiple line segments
;;;    at any angle.  A vertical line will be placed at the end of the last
;;;    leader line if there is more than one line of text.  After the vertical
;;;    line is placed the notes and line are repositioned so that the vertical
;;;    line is centered on the end of the last leader line.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1996 - 2006
;;;	Edited:		9-2-2006
;;;
;;;****************************************************************************

    
Commands/functions defined: c:reinitremlt, c:remlt, c:teeless, c:tees, c:tognew, cons_text_str, create-mleader, create-text-leader, remlt_error, set-remlt-options, set-remlt-prod
Requires: Doslib, archldrs, calctxt, dimscl, errortrap, getfield, getstyle, gvpno, harchldrs, mklayr, mymldr, ntxtstr, set_mjrg, txtsize, uangle, udist, uint, ukword, upoint, ureal, ustr,
remove-reactors.lsp
;;;Columbia: 
;;;I don't really know why the reactor is remaining persistent in a SDI=1 mode, but the following tips might help with some of the problems.
;;;
;;;First...how to distinguish which reactor is yours in a reactor command stack.
;;;In each reactor creation method there is an argument that is normally left 'nil' by a lot of coders, because they don't know what to do with it.  Well here's a nifty idea.  The first argument in the (vlr-editor-reactor) function is a data argument.  In the Acad help files it says to use this argument to attach any LISP code to the argument.  This also means you can attach a string to the reactor object.  You can then READ that string using the (vlr-data) functions passing it an vlr-object.  Do you follow what I'm saying?  Here's an example:
;;;
;;;--- Code: ---

    
Commands/functions defined: remove-reactors
Requires: Doslib, archldrs, calctxt, dimscl, errortrap, getfield, getstyle, gvpno, harchldrs, mklayr, mymldr, ntxtstr, set_mjrg, txtsize, uangle, udist, uint, ukword, upoint, ureal, ustr,
renamebaks.lsp
;;;Special function to rename *(#).bak files created by prior versions of BACKUP.LSP
;;;Renames *(#).bak files to *(#).dwg unless the *(#).dwg file already exists.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9/25/2010
;;;		   EDITED: 9/25/2010
;;;

    
Commands/functions defined: c:renamebaks
Requires: Doslib, archldrs, calctxt, dimscl, errortrap, getfield, getstyle, gvpno, harchldrs, mklayr, mymldr, ntxtstr, set_mjrg, txtsize, uangle, udist, uint, ukword, upoint, ureal, ustr,
renameorthos.lsp

    
Commands/functions defined: c:renameorthos
Requires: Doslib, ustr,
renote.lsp
;;;;Reformat and relocate/reinsert multiline text notes (pre-MTEXT). 
;;;;
;;;;          AUTHOR: HENRY C. FRANCIS
;;;;                  425 N. Ashe Street
;;;;                  Southern Pines, NC 28387
;;;;              
;;;;          All rights reserved without prejudice.
;;;;
;;;;       Copyright:      1997
;;;;       Edited:         11-24-2006
;;;;
;;;;     Requirements:
;;;;       Dimscale must be set to drawing scale, e.g., if drawing scale is
;;;;       1/4" = 1'-0" set dimscale to 48, if dimscale is 1" = 30' set
;;;;       dimscale to 30.  (Note: dimscale=0 is equivalent to dimscale=1
;;;;       within this function).  Dimscale is a multiplier in this function.
;;;;       A Leroy 100 template is 0.10" high with no scale multiplier or a
;;;;       dimscale of 1.  It is 3.00" high with a scale multiplier of 30 on a
;;;;       1" = 30' full scale drawing.  If your drawing is not drawn full
;;;;       scale then adjust dimscale to match.
;;;;
;;;;       The following function's path must be in your SET ACAD= statement:
;;;;       GETSTYLE.LSP, MKLAYR.LSP, UUTILS.LSP
;;;;
;;;; 
;;;****************************************************************************

    
Commands/functions defined: c:renote (/, renote_error
Requires:dimscl, getstyle, mklayr, txtsize, ukword, upoint,
renumdwg.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited: 7/6/2010
;;;****************************************************************************

    
Commands/functions defined: c:renamefile, c:renumdwg
Requires: Doslib, ustr,
repathimages.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2015
;;;	   Edited: 4/2/2016
;;;
;;;****************************************************************************

    
Commands/functions defined: c:repathimages
Requires: Doslib, ukword, ustr,
replmnote.lsp
;;;replaces a specific MTEXT starting with the string below with a block named scrnote.dwg
;;;The block's insertion point is extracted from the insertion point of the MTEXT.

    
Commands/functions defined: c:replmnote
Requires: Doslib, ukword, ustr,
repltxtnos.lsp

    
Commands/functions defined: c:repltxtnos
Requires:dimscl,
rerot.lsp
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		9-16-15
;;;
;;;	Added option to sepcifiy rotation angle by points
;;;

    
Commands/functions defined: c:rerot
Requires:ukword, upoint,
rerots.lsp
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		8-22-05
;;;

    
Commands/functions defined: c:rerots
Requires:ukword, upoint,
rerottxt.lsp

    
Commands/functions defined: c:rerottxt
Requires:ukword, upoint,
retext.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:retext
Requires:ukword, upoint,
revlay.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  1999-2002
;;;	   Edited:  2-22-2002

    
Commands/functions defined: c:revlay ()
Requires:ukword, upoint,
revs.lsp
;;;Revision Box layer management by number, i.e., 1, 2, 3... (uses REVTXUR.DWG)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://parqacadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:revs
Requires:ureal,
revtxt.lsp
;;;Inserts REVTXLR.DWG, Revision Box for Lower Right corner of sheet.  (see REVS)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-19-96
;;;	Edited:		6-19-96
;;;

    
Commands/functions defined: c:revtxt
Requires:dimscl, ukword, upoint,
revxlay.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  1999-2002
;;;	   Edited:  2-22-2002

    
Commands/functions defined: c:revxlay ()
Requires:ustr,
rfldwgs.lsp
;;;
;;;	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/19/2016
;;;
;;;****************************************************************************

    
Commands/functions defined: c:rfldst, c:rfldwgs, get_recent_list
Requires: Doslib, myopen_fun,
rlayc.lsp
;;;Revert Layer colors to CLG Colors.  Will set colors by character #7
;;;of any layer name.  Character must be a (color)number or a letter A-F.
;;;I.e., 1 2 3 4 5 6 7 8 9 A B C D E F correspond to colors:
;;;1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
;;;
;;;!!!CAUTION!!! ANY Layer with these characters as their 7th char. WILL BE
;;;MODIFIED by this routine, AS WILL LAYERS from XREF's with names 8
;;;characters long. (9th char is checked for "|" and then 16th char. is
;;;checked for color key as above.)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;            
;;;		All rights reserved without prejudice.
;;;	Copyright:	10-11-96
;;;	Edited:		10-11-96
;;;


    
Commands/functions defined: c:rlayc
Requires:ukword,
rnbindla.lsp

    
Commands/functions defined: c:rnbindla
Requires:ukword,
rnfseries.lsp

    
Commands/functions defined: c:rnfseries, get_fnr_range
Requires: Doslib, uint, ukword, ustr,
rnlayout.lsp
;;;Author: (of function rnlayout which was originally named DT:LAYOUT-RENAME and posted on AUGI Forums)
;;;		R. Robert Bell
;;;		Design Technology Manager
;;;		S P A R L I N G
;;;
;;;		Date: 2005-03-11
;;;all other functions are derivatives of Robert's function
;;;

    
Commands/functions defined: rnlayout, rnlayout1, rnlayouts
Requires: Doslib, uint, ukword, ustr,
rnlayouts.lsp

    
Commands/functions defined: rnlayouts
Requires: Doslib, uint, ukword, ustr,
rockprofile.lsp
;;;Creates polylines in profile representing rock as determined from drill logs.
;;;
;;;Required csv format is:
;;;
;;;    Station,OB Right,DD Right,Sub Right,Rock Depth Right,OB Center,DD Center,Sub Center,Rock Depth Center,OB Left,DD Left,Sub Left,Rock Depth Left,Pattern Width,Pattern Advance
;;;
;;;OB = Overburden (dirt thickness over rock)
;;;DD = Drill Depth
;;;Sub = Subdrill (drill depth below pay depth)
;;;Rock Depth = ((DD-Sub)-OB)
;;;Pattern Width = Distance between center drill hole and left and right drill holes.
;;;Pattern Advance = Distance between center drill holes along alignment.
;;;
;;;Important Note:
;;;
;;;     When creating your spreadsheet of drill log entries enter static stations at manholes
;;;     and calculate all other drill location stations from a specified manhole by using the
;;;     drill pattern advance values.  This routine compares subsequent stations to the pattern
;;;     advance value (EQUAL...) to determine where horizontal gaps (or breaks) occur in either
;;;     the rock as drilled or in the drill pattern itself.  This is necessary to accurately
;;;     show only those locations where rock was actually found.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: March 30, 2010
;;;		   EDITED: March 30, 2010
;;;

    
Commands/functions defined: c:rockprofile
Requires: Doslib, \nfile, mklayr, stait, str_to_list, ukword,
rockqty.lsp

    
Commands/functions defined: rockqty
Requires: Doslib, \nfile, mklayr, stait, str_to_list, ukword,
rotag.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/2006
;;;	   Edited: 1/2007
;;;

    
Commands/functions defined: c:rotag
Requires:uint, ukword,
rotang.lsp
;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7/28/2007
;;;	Edited:		7/28/2007
;;;

    
Commands/functions defined: c:blkang
Requires:uangle,
rotx.lsp
;;;Set X-hairs and optionally viewtwist.
;;;
;;;
;;;
;;;
;;;****************************************************************************

    
Commands/functions defined: c:rotx, c:svang, rotx, rotx_error
Requires: Doslib, tsnap, ukword, upoint,
roundtxt.lsp

    
Commands/functions defined: c:roundtxt
Requires:ukword, upoint,
rrchanl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    
Commands/functions defined: c:rrchanl
Requires:mklayr,
rrect.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:rrect
Requires:dimscl, mklayr,
rrtxt.lsp
;;;This program will standardize text orientation of a selection set of text entities.
;;;       There is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;             
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		11-26-95
;;;

    
Commands/functions defined: c:rrtxt
Requires:ukword, uutils,
rsprfx.lsp

    
Commands/functions defined: c:rsprfx
Requires:ukword, uutils,
rxact.lsp
;Search and Replace TEXT; copyright 1996, H.C. Francis
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;	Copyright:	8-8-97
;	Edited:		8-8-97
;

    
Commands/functions defined: c:rxact
Requires:ukword, ustr,
rxref.lsp
;;;Convert block to XREF.  (Filename must be on search path and = block name)
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		Southern Pines, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-20-94
;;;	Edited:	        11-10-95
;;;

    
Commands/functions defined: c:rxref
Requires:ukword, ustr,
sampleseries.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6/2/2015
;;;	   Edited:	7/27/2015
;;;
;;;	Requires:	AutoCAD Civil 3D, ureal.lsp, ukword.lsp, ustr.lsp
;;;
;;;****************************************************************************

    
Commands/functions defined: c:sampleseries, c:svrename
Requires:stait, ukword, ureal, ustr,
save.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Stamps the drawing and logs the save.
;;;Prior to DEFUN below (COMMAND ".undefine" "save") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "save") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    
Commands/functions defined: c:save
Requires: Doslib, backup, corpndx, cstmp, dlog, initandsdichk, lbl, log_it, lvndx,
save_file_chk.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: save_file_chk
Requires: Doslib, qsave, check_for_doslib, myopen_fun, princdebugstrs, ukword,
saveas.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Stamps the drawing and logs the saveas.
;;;
;;;Prior to DEFUN below (COMMAND ".undefine" "saveas") is required or this DEFUN will not
;;;redefuine QSAVE (COMMAND ".undefine" "saveas") can be executed from here or anywhere
;;;else as long as it is called before this DEFUN
;;;

    
Commands/functions defined: c:saveas
Requires: Doslib, backup, cstmp, lbl, dlog, initandsdichk, log_it,
savelayouts.lsp

    
Commands/functions defined: c:isovpall, c:savelayouts, c:slo
Requires:qsave, xrlayers, isovp, vpset,
sbrest.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    
Commands/functions defined: c:sbrest
Requires:mklayr,
sbrkl.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 7/26/2010
;;;		   EDITED: 7/26/2010
;;;

    
Commands/functions defined: c:sbrkl
Requires: Doslib, dimscl, gvpno, mklayr, ukword, upoint,
scrimage.lsp
;;;Command: SCRIMAGE or SRI
;;;Moves, scales and rotates an existing instance of any image matching
;;;two points from the image with two corresponding points from the drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 6/17/2010
;;;		   EDITED: 7/15/2010
;;;
;;;Requires subroutine UPOINT.LSP
;;;

    
Commands/functions defined: c:scrimage, c:sri, scrimage_error
Requires:upoint,
scs.lsp
;;;Place a Section Cut Symbol in the drawing at any orientation.
;;;Either one of US Army Corps of Engr or our standard.
;;;Uses UKWORD UPOINT MKLAYR SECLIN.DWG ELVCUT.DWG SECCUT.DWG
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;	Copyright:	3-10-93
;;;	Edited:		4-7-01
;;;

    
Commands/functions defined: c:scs
Requires:dimscl, gvpno, mklayr, ukword, upoint,
sdlbl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 1997
;;;	   Edited: 12-9-2016
;;;****************************************************************************

    
Commands/functions defined: c:sdlbl, sdlbl_error, sdlbl_mldrfun
Requires:dimscl, gvpno, make_layer_ent, mlt, mymldr, txtsize, ukword, upoint,
sdll.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 01-13-2000
;;;	   Edited: 01-13-2000

    
Commands/functions defined: c:sdll
Requires:dimscl, gvpno, txtsize,
searchfiles.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:searchfiles
Requires: Doslib, ustr,
selaylist.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:selaylist
Requires: Doslib, ustr,
sellayers.lsp

    
Commands/functions defined: c:allusedon, c:sellayers, entityis, getblocklayers
Requires:ukword,
selpv.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:selpv
Requires:ukword,
set-this-anno-scale.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    
Commands/functions defined: c:setannscale, set-this-anno-scale
Requires:ukword,
set_drive_letters.lsp
;;;
;;;	AUTHOR: Henry C. Francis
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, N.C. 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1999-2010
;;;	Edited:		8-20-2010
;;;
;;;********************************************************************

    
Commands/functions defined: set_drive_letters
Requires: Doslib, check_for_doslib, ukword,
set_mjrg.lsp
;;;
;;;	Requires: ukword.lsp
;;

    
Commands/functions defined: set_mjrg ()
Requires: Doslib, ukword,
setallpages.lsp

    
Commands/functions defined: c:setallpages
Requires:setcurrentpagesetup,
setannoscale.lsp

    
Commands/functions defined: c:setannoscale, c:setcannoscale
Requires:ukword,
setautofuns.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 07/22/2012
;;;	   Edited: 07/22/2012
;;;
;;;****************************************************************************

    
Commands/functions defined: setautofuns
Requires:ukword,
setbldg.lsp
;;;Sets all segments of a polyline (or lwpolyline) orthogonal to each other.
;;;The first and second point of the polyline are used as a baseline and the remaining points are
;;;recalculated by their original distance from the preceding point and the new orthogonal angle.
;;;The angle used is the nearest one (within 6�) of the four values determined from the baseline angle.
;;;
;;;If the angle between any two segments is greater than 6� the angle will not be changed.
;;;This value is arbitrary and is identified by a comment in the code thus: ;0.10472R = 6�
;;;The value may be changed to suit your needs.  (substitute your new value in radians)
;;;
;;;The last point is examined and adjusted if necessary to be orthogonal to both the preceding point
;;;and the first point of the polyline.
;;;
;;;This routine was created to fix poorly drawn (obviously not orthogonal) building outlines.
;;;
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	10/23/2013
;;;	   Edited:	12/20/2016
;;;

    
Commands/functions defined: c:setbldg
Requires:mklayr, ukword, upoint,
setcurrentpagesetup.lsp
;;;From JTBWorld.com
;;; Set a named page setup as current on current layout by avoiding command usage
;;; (SetCurrentPageSetup  )
;;; (SetCurrentPageSetup (vla-get-activedocument (vlax-get-acad-object)) "Setup2")
;;;********************************************************************

    
Commands/functions defined: setcurrentpagesetup
Requires:mklayr, ukword, upoint,
setdefplot.lsp

    
Commands/functions defined: c:setdefplot
Requires: Doslib, check_for_doslib,
setminr.lsp
;Standalone tool for setting minor group in CLG layernames.  (uses USTR MKLAYR)

    
Commands/functions defined: setminr
Requires:mklayr, ustr,
setmodf.lsp
;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)

    
Commands/functions defined: setmodf
Requires:ustr,
setpages.lsp
;;;Copied from JTB WORLD http://www.jtbworld.com/lisp/pagesetup.htm 4/25/2012
;;; PageSetup.LSP
;;; Miscellaneous routines related to Page Setup
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2011 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2000-04-05 - First release
;;; 2011-02-10 - Second release
;;; Tested on AutoCAD 2000 and AutoCAD 2011

    
Commands/functions defined: addpagesetup, allpagesetups, allpagesetupsandmodeltype, allpagesetupsoflayouttype, allpagesetupsofmodeltype, deleteallpagesetups, deletepagesetup, getallpagesetupname, getpagesetupname, layout-tab-list, listpagesetups, setcurrentpagesetup, setpagesetupname (doc
Requires:ustr,
setpointstyle.lsp

    
Commands/functions defined: c:setpointstyle
Requires:ustr,
setprevdwg.lsp
;;;(setprevdwg): preserves the path and filename of the "previous" drawing (current drawing at the time it is run)
;;;(getprevdwg); recalls the last value preserved as the "previous" drawing (current drawing the last time (setprevdwg) was run).
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 9-18-2010
;;;		   EDITED: 4-9-2012
;;;

    
Commands/functions defined: getprevdwg, setprevdwg
Requires:ustr,
setprofilelayers.lsp

    
Commands/functions defined: c:setprlay, c:setprofilelayers
Requires:make_layer_ent, ustr,
setpsize.lsp
;;;****************************************************************************

    
Commands/functions defined: c:setpsize, setpsize_error
Requires:uint, ukword, upoint,
setrimelevsfrom3dpoly.lsp
;;;Sets existing MH rims in a GPDGN alignment data list from 3D Polyline Vertex elevations

    
Commands/functions defined: c:setrimelevsfrom3dpoly
Requires:uint,
setstdpage.lsp

    
Commands/functions defined: c:setstdpage, setpagesetup, setstdpage
Requires: Doslib, check_for_doslib, ukword, ustr,
setsysvarlist.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 05/11/2015
;;;	   Edited: 05/11/2015
;;;
;;;****************************************************************************

    
Commands/functions defined: c:comparesavedsysvars, c:csvsv, c:setsysvarlist, c:sysvarall, makesysvarnamelist, savsvfile, setacaddisplay
Requires:file2compare), ukword,
setuser.lsp
;Standalone tool for setting modifier in CLG layernames.  (uses USTR MKLAYR)

    
Commands/functions defined: setuser
Requires:ustr,
sfill.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:sfill
Requires:mklayr,
shatr.lsp
;;;Show attribute tag and value of picked attribute.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:shatr
Requires:mklayr,
sholay.lsp
;;;Turn off layers, freeze layers, set to a layer, etc. by entity selection.
;;;C:SHOLAY displays entity properties and associated layers so the correct layer
;;;can be selected for action.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-5-96
;;;	Edited:		7-22-2016
;;;
;;;****************************************************************************

    
Commands/functions defined: c:sholay, get-xref-path, lay_sel, lay_set, set_sel_list, set_sholay_list, sholay_error
Requires: Doslib, sof, lamacs, mklayr, myopen_fun,
shotxt.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4-7-99
;;;	   Edited: 7-23-99

    
Commands/functions defined: c:shotxt
Requires:gent, make_layer_ent,
show_debug.lsp

    
Commands/functions defined: c:kill_debug, c:show_debug
Requires:gent, make_layer_ent,
show_log.lsp
;;;SHOW_LOG Shows Drawing log (EED) PRINTLOG to print.  (uses LOG_IT to make log)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:printlog, c:show_log, c:writelog
Requires:gent, make_layer_ent,
showcommands.lsp
;;;****************************************************************************

    
Commands/functions defined: c:*"), c:showcommands
Requires: Doslib, check_for_doslib,
showdefuns.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;
;;;****************************************************************************

    
Commands/functions defined: *"), c:*"), c:showcommands, c:showdefuns
Requires: Doslib, check_for_doslib,
showlisp.lsp

    
Commands/functions defined: c:showlisp
Requires: Doslib, ustr,
showptstyles.lsp

    
Commands/functions defined: c:ptlblstyles, c:showptstyles
Requires:c3difodoc,
showsize.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1/2007
;;;	   Edited: 
;;;

    
Commands/functions defined: c:showsize
Requires:dimscl,
shtbnd.lsp
;;;Draws vport bounds plines from info in CORPNDX.TXT which is written by CORPNDX.LSP.
;;;Sets current view to match a specified viewport if it has been stored in CORPNDX.TXT
;;;(See CORPNDX.LSP - the routine that stores sheet and viewport info in CORPNDX.TXT)
;;;
;;;Commands: ESBND, erases vport bounds drawn by SHTBND; and
;;;          VIEWSHT, zooms (and dview twists if necessary) the selected
;;;                   sheet vport area in view.
;;;	     PGRT, pages to the next sheet/view in the list
;;;	     PGLT, pages to the previous sheet/view in the list
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 9/16/99
;;;	   Edited: 12/8/2016
;;;
;;;	12/8/2016	Appended source drawing name to the end of items in 'bnds so it can be added as xdata to the sheet frames
;;;			which allows identifying of the drawing that the data came from.  Need is to correct sheet number fields
;;;			in the source drawing so that the correct field value is created with the sheet boundary or eliminate
;;;			drawings that are included in corpndx.txt but are no longer part of the set of sheets.
;;;			CORPNDX.LSP writes sheet boundary and title information to corpndx.txt in the current drawing folder
;;;			whenever our custom QSAVE is executed in a sheet.
;;;
;;;****************************************************************************

    
Commands/functions defined: c:esbnd, c:pglt, c:pgrt, c:resjnt, c:sbnd, c:sbndwgname, c:shtbnd, c:viewsht, make_bnds_lst, make_shtbnd_group, when_prev_aln
Requires: Doslib, dimscl, getstyle, gvpno, make_layer_ent, stait, tsnap, txtsize, uint, ukword, upoint, ureal, ustr,
shtfix.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:

    
Commands/functions defined: shtfix
Requires: Doslib, dimscl, getstyle, gvpno, make_layer_ent, stait, tsnap, txtsize, uint, ukword, upoint, ureal, ustr,
shtgen.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  10-19-1999
;;;	   Edited:  10-19-1999

    
Commands/functions defined: c:shtgen
Requires:attupd, qsave, uint, ustr,
shtndx-save.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	copyright and all other rights reserved.
;;;     Edited: 11/17/2005
;;;
;;;"Bogus" lines may be used in the Index text file to create section headers
;;;but they must contain a tab for every column that normal lines have,
;;;(i.e., include a blank the description).
;;;
;;;UINT, UPOINT, MKLAYR, GVPNO, GETSTYLE, TXTSIZE

    
Commands/functions defined: c:mergendx, c:shtndx (/ , chkfil, clr_txt, column_headings, dirlst, drvlst, fun, merge_ndx_files, mergendx_key_search, ndxbrkstr, restorendxlst, revsel, savendxlst, setfdrv, setone, setrem, shtndx_error, sortfiles
Requires: Doslib, browser_help, getstyle, gvpno, mklayr, princdebugstrs, txtsize, uint, upoint,
shtndx.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	copyright and all other rights reserved.
;;;     Edited: 11/17/2005
;;;
;;;"Bogus" lines may be used in the Index text file to create section headers
;;;but they must contain a tab for every column that normal lines have,
;;;(i.e., include a blank the description).
;;;
;;;UINT, UPOINT, MKLAYR, GVPNO, GETSTYLE, TXTSIZE

    
Commands/functions defined: c:mergendx, c:shtndx (/ , clr_txt, column_headings, merge_ndx_files, mergendx_key_search, ndx_chkfil, ndx_dclst, ndx_dirlst, ndx_drvlst, ndx_setone, ndx_sortfiles, ndxbrkstr, restorendxlst, rstdir, savendxlst, setndxfdrv, setrem, shtndx_error, shtndx_layer_ent (ent_assoc_8_lst
Requires: Doslib, browser_help, dimscl, getstyle, gvpno, mklayr, princdebugstrs, txtsize, uint, upoint,
sidimage.lsp
;;;Specifically for importing SID images of aerial topography keyed to State Plane Coordinates by name.
;;;Must have AutoCAD Map as this function uses the MAPInsert command.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 4-8-2009
;;;		   EDITED: 8-23-2013
;;;
;;;	8/232/2013:	Added Draworder Back and Imageadjust fade 50% to sid image placement function.
;;;			Added While Loop for image area pick point.  Loops while an area pick point is selected.
;;;
;;;********************************************************************

    
Commands/functions defined: c:esidbnd, c:showsid, c:sidcontours, c:sidimage, calsidpt (), fun, imageadjustmsg, mapimgcover, rstdir, setsidfdrv, sid_chkfil, sid_dclst, sid_dirlst, sid_drvlst, sid_sortfiles
Requires: Doslib, mklayr, uint, ukword, upoint, ustr,
siltfen.lsp
;;;Place silt fence linear symbol as an anonymous block.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:siltfen
Requires:dimscl, upoint,
sizemh.lsp
;;;Checks manholes for adequate diameter to accomodate specified pipe sizes.
;;;Requires GPDGN alignment
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  3/29/00
;;;	   Edited:  3/29/00

    
Commands/functions defined: c:sizemh, calc_size_mh, prin_size_mh
Requires:stait, ukword, upoint, ureal,
slent.lsp

    
Commands/functions defined: c:slent
Requires:mklayr,
slope.lsp
;;;Label lines and polylines with segment distance.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-24-96
;;;	Edited:		2-17-99
;;;
;;;********************************************************************

    
Commands/functions defined: c:plslope, c:slope, slope_error
Requires: Doslib, dimscl, getstyle, gvpno, mklayr, uint, ukword, ureal, ustr,
slopebytext.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	11-18-2014
;;;	   Edited:	11-18-2014
;;;

    
Commands/functions defined: c:resetrim, c:slopebytext
Requires: Doslib, check_for_doslib, dimscl, upoint, ureal,
slpb.lsp
;;;Place a single line pipe break symbol (polyline) at the end of a line.
;;;
;;;       Requirements: transpt.lsp (point translator used with the list
;;;                                  returned by an nentsel selection)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	4-16-95
;;;	Edited:		10-31-2005
;;;

    
Commands/functions defined: c:slpb, slpb_error
Requires: Doslib, dimscl, gvpno, make_layer_ent, mklayr, transpt,
sol2face.lsp
;;;Convert Solids to 3Dfaces
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:sol2face
Requires: Doslib, dimscl, gvpno, make_layer_ent, mklayr, transpt,
solaro.lsp
;;;Check all selected solids, find only autocad solid arrows and replace them with arrow blocks, extend lines to their point.  (uses LDRARO.DWG MKLAYR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:solaro
Requires:dimscl, mklayr,
soldier.lsp
;;;Place soldier course on 'right' side of polyline or spline beginning at nearest end.
;;;Requires blocks named "CRSExA" and "CRSExB"
;;;where  and  are integers with their value = the dimensions x 8
;;;(i.e., = the whole number of eigths contained in each dimension)
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:soldier
Requires:ureal,
sopen.lsp

    
Commands/functions defined: sopen
Requires:ureal,
sortmh.lsp

    
Commands/functions defined: c:sortmh
Requires:ureal,
sp.lsp
;TIP1344.LSP:    SP.LSP    3D Spiral stairs    (c)1997, Xu-Hong Yang 


    
Commands/functions defined: c:sp, dtr, rtd, sbuild, spcalc, spinfo
Requires:ureal,
splittolayers.lsp

    
Commands/functions defined: c:splittolayers
Requires:ureal,
splitvp.lsp
;;;Requirements:
;;;
;;;This Drawing (block) must exist on AutoCAD's search path (or in the drawing):
;;;	##ppgridlbl
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These blocks must contain specific attribute tags for elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		MLB+0, MLB+5, MLB+10, etc. but ordered from highest MLB+## to MLB+0;
;;;		Space these vertically at 1" unscaled (english), unit distance (metric)
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		MRB+0, MRB+5, MRB+10, etc. also ordered from highest MRB+## to MRB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;Drawing must contain:
;;;	The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
;;;	The profile grid block named "##ppgrid" or "##spclgrid" or "##spfbgrid"
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These profile grid blocks must contain specific attribute tags for stations and elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		LB+0, LB+5, LB+10, etc. but ordered from highest LB+## to LB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	station attribute tags
;;		0, +0, 1, +1, 2, +2, etc. from left to right as many as are required
;;;		place these in pairs at scaled 100' increments (english), 50m increments (metric).
;;;		integer tags are right justified and +integer tags are left justified so that the first character,
;;;		typically a plus sign (+), will lay directly under the grid line.  This solves justification related
;;;		misalignment of labels.
;;;		(The total number of these tags is unlimited)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	3/30/2007

    
Commands/functions defined: c:splitvp, splitvp_error
Requires:upoint, ustael,
spot.lsp
;;;Place spot elevation X's and text. (uses GETSTYLE UPOINT USTR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:spot
Requires:dimscl, getstyle, txtsize, upoint, ustr,
spotldrs.lsp

    
Commands/functions defined: c:spotldrs
Requires:dimscl, getstyle, txtsize, upoint, ustr,
spt.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:spt, call_spt_dialog, reset_typ, spt_error
Requires:(substr, c3difodoc, stdstyle,
squig.lsp
;;;Creates LWPolyline with alternating long and short reversing arcs
;;;We use it for flexible cable symbology (as opposed to conduit) on electrical drawings.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/2/2007
;;;		   EDITED: 8/2/2007
;;;

    
Commands/functions defined: c:rsquig, c:squig, seg_data
Requires:dimscl, mklayr, ureal,
srcht.lsp
;;;"Display Text Found by Search" dialog.
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. Ashe Street
;		Southern Pines, NC 28387
;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	12-22-97
;;;	Edited:		12-22-97
;;;

    
Commands/functions defined: c:srcht, del_text, text_list, text_mod
Requires:ustr,
srstring.lsp
;;;Search and replace text in a string.  Returns the new string if a match is found, else it returns original string.
;;;Search is case sensitive.
;;;Autolisp wildcard characters: *?,@`#.~ must each be preceded by the escape character ` for them to match as literal characters.
;;;i.e., the escape character ` causes the next character to be read literally.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: srstring
Requires:ustr,
srtext.lsp
;;;Search and Replace strings within TEXT, DIMENSIONS, MTEXT, ATTRIBS, and ATTDEFS
;;;copyright 1996-2003 by H.C. Francis
;;;
;;;Original command name RTEXT changed to SRTEXT 12/20/01
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-21-96
;;;	Edited:		9-30-16
;;;
;;;Requires: UANGLE UDIST UINT UKWORD UPOINT UREAL USTR
;;;****************************************************************************

    
Commands/functions defined: c:resrtext, c:setfield1, c:setfield2, c:srtext (/ , c:srtext_help, replctxtfun, srtext (original_str, srtext_error, srtext_errors
Requires: Doslib, srtext, uangle, udist, uint, ukword, upoint, ureal, ustr,
srvang.lsp
;;;Format supplied radian angle in Northing and Easting format.
;;;Degree symbol is specified using either (CHR 176) or %%221 depending upon
;;;current style font.  Also, pads zeros in minutes and seconds for
;;;2 digit zero to 9 readings.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: srvang
Requires: Doslib, srtext, uangle, udist, uint, ukword, upoint, ureal, ustr,
ssbylayer.lsp

    
Commands/functions defined: ssbylayer
Requires: Doslib, srtext, uangle, udist, uint, ukword, upoint, ureal, ustr,
sslayer.lsp

    
Commands/functions defined: sslayer
Requires: Doslib, srtext, uangle, udist, uint, ukword, upoint, ureal, ustr,
ssln.lsp
;;;Label line length (decimal feet).  (XREFs Blocks or current drawing, plines too.)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:ssln
Requires:mklayr,
ssnap.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;Sets sysvars SNAPANG and SNAPBASE from picked points

    
Commands/functions defined: c:ssnap
Requires:upoint,
stacklist.lsp
;;;recursively dumps contents of a list (expands sublists)

    
Commands/functions defined: collist, stacklist
Requires:upoint,
stairpl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;     http://paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:stairelf, c:stairels, c:stairpl, make_strhids, maketread
Requires:mklayr, n, n), uint, ukword, upoint, ureal,
stait.lsp
;;;Subroutine to convert a real no into a station string.  If m_units=T then string is metric.
;;;
;;;		Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: stait
Requires:mklayr, n, n), uint, ukword, upoint, ureal,
stap.lsp
;;;place sewer tap on a single run.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-1-2001
;;;	   Edited:  6-1-2001

    
Commands/functions defined: c:stap
Requires:ukword, ureal,
stat.lsp
;;;Modemacro - shows full  Ortho Snap Tablet Pspace
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:stat
Requires:ukword, ureal,
statutxt.lsp
;;;Inserts not-for-construction-cover.dwg at a fixed location matching our cover sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    
Commands/functions defined: c:statutxt
Requires:ukword, ureal,
statutxta.lsp
;;;Inserts not-for-construction-cover.dwg at a fixed location matching our cover sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    
Commands/functions defined: c:statutxta
Requires:ukword, ureal,
statutxts.lsp
;;;Inserts not-for-construction-standard.dwg at a fixed location matching our standard (ANSI-D) sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    
Commands/functions defined: c:statutxts
Requires:ukword, ureal,
statutxtsa.lsp
;;;Inserts not-for-construction-standard.dwg at a fixed location matching our standard (ANSI-D) sheet.
;;;This is a dynamic block that contains the several statutory statements that
;;;may be required on a drawing sealed by an engineer in North Carolina.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	1-9-13
;;;	Edited:		1-9-13
;;;

    
Commands/functions defined: c:statutxtsa
Requires:ukword, ureal,
stdlayr.lsp
;;;Convert layer names to Standard CLG (as modified for color and linetype). (PER OUR STANDARD)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	2-6-96
;;;	Edited:		6-30-2006
;;;

    
Commands/functions defined: c:stdlayr, fix_lay, getdefs, laylst, rnlay
Requires:mklayr, ukword, ustr,
stdltypes.lsp
;;;Creates linetypes that are included in ltdefs_list below (no need to load linetype files).
;;;Entries in the list must have group codes 2, 3, 72, and 73 first followed by dash, dot, and space codes
;;;(49 followed by 74) and group codes 75, 340, 46, 50, 44, 45, and 9 for shapes or text if applicable.
;;;Shapes and styles, if used, must already exist in the drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-19-2010
;;;		   EDITED: 5-19-2010
;;;
;;;****************************************************************************

    
Commands/functions defined: c:stdltypes, do_foreach_ltdefs_list, make_ltdefs_list, stdltype
Requires:errortrap,
stdstyle.lsp
;;;
;;;Written by:	Henry C. Francis
;;;	http://www.paracadd.com
;;;
;;;	 Date:		11/1/2001
;;;	 Edited:	1/8/2007
;;;
;;;Purpose:	To convert drawing contents from old font/style standard to new
;;;		font/style standard. This is accomplished by replacing the old
;;;		fonts and styles with the new standard AutoCAD fonts in new
;;;		CDM standard styles (RomanS, Arial). The old unreferenced styles
;;;		are then purged from the drawing.
;;;
;;;	Old Font	Old Style	New Style	New Font
;;;-----------------------------------------------------------------------------
;;;	CDMLROY.SHX		RomanS		RomanS.shx
;;;	CDMLROYC.SHX	ditto		RomanS		RomanS.shx
;;;	CDMLROYS.SHX	ditto		RomanS		RomanS.shx
;;;	CDMHELV.SHX	ditto		Arial		Arial.ttf
;;;	ARCHS.SHX	ditto		SketchFlow	SketchFlow Print.ttf
;;;	NOTING.SHX	ditto		RomanS		RomanS.shx
;;;	TXT.SHX		ditto		RomanS		RomanS.shx
;;;	BOLD.SHX	ditto		Arial		Arial.ttf
;;;	SYMETEO.SHX	ditto		Symeteo		Symeteo.ttf
;;;	SYMAP.SHX	ditto		Symap		Symap.ttf
;;;
;;;	(old 15� oblique that was built into CDMLROYS is made part of existing
;;;	text/mtext entity definitions by this routine. The RomanS style has an
;;;	oblique angle of zero).
;;;
;;;	Added provision for ROMANSOB style used to create 15� oblique dimension text.
;;;	Addressed fact that style "Standard" cannot be purged.
;;;	Excluded xreference styles from being considered.
;;;
;;;

    
Commands/functions defined: c:stdstyle, procmtxstr, spec_char, updstrfont, updstyle
Requires:errortrap,
stepz.lsp
;;;NEWZ: Set "Z"; MATZ: match "Z"; SHOWZ Display "Z"; OFFZ Set "Z" +- reference "Z"
;;;
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:      1-26-96
;;;	Edited:		8-28-96
;;;

    
Commands/functions defined: c:stepz
Requires: Doslib, mklayr, ukword, ureal,
stlayr.lsp

    
Commands/functions defined: c:stlayr
Requires:mklayr,
str_to_list.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: January, 2010
;;;		   EDITED: March, 2010
;;;

    
Commands/functions defined: str_to_list
Requires:mklayr,
striplay.lsp

    
Commands/functions defined: c:striplay, c:stripltyp
Requires:mklayr,
striplayersuffix.lsp
;;;
;;;
;;;	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
;;;

    
Commands/functions defined: c:striplayersuffix
Requires:tolayer, ustr,
stript.lsp
;;;Strips duplicate vertices from LWpolylines

    
Commands/functions defined: c:stript
Requires:tolayer, ustr,
stripvertex.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 08-15-2013
;;;	   Edited: 08-15-2013
;;;

    
Commands/functions defined: c:stripvertex
Requires:tolayer, ustr,
styinf.lsp
;;;Show current style NAME, FONT, HEIGHT
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:tt
Requires:tolayer, ustr,
sublst.lsp
;;; C:SUBLST	Creates, Opens or Renews a catalog of DEFUN'd and DEFUN-Q'd
;;;		commands and/or functions within all AutoLisp files in the
;;;		selected folder for use with C:FINDFUNC
;;;
;;; C:FINDFUNC	Lists all AutoLisp files containing DEFUN'd OR DEFUN-Q'd
;;;		commands and/or functions matching the user's entry.
;;;		Enter command names as you would at the command line (w/o C:)
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 1-20-2007
;;;		   EDITED: 1-20-2007
;;;

    
Commands/functions defined: c:findfunc, c:sublst, fundefloc
Requires: Doslib, ukword, ustr,
subt.lsp
;;;Place a detail subtitle text string at 'our' standard size (175 leroy template, 0.175" @ 1:1) and color (cyan) on the standard layer (?-????4NOTE) (uses GETSTYLE MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-15-94
;;;	Edited:		2-17-2004
;;;

    
Commands/functions defined: c:subt
Requires:dimscl, getstyle, mklayr, ustr,
sumlines.lsp

    
Commands/functions defined: c:sumlines
Requires:dimscl, getstyle, mklayr, ustr,
sumtextnos.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 10/20/2016
;;;	   Edited: 10/20/2016
;;;
;;;****************************************************************************

    
Commands/functions defined: c:sum#, c:sumtextnos
Requires:dimscl, getstyle, mklayr, ustr,
supportpaths.lsp

    
Commands/functions defined: c:supportpaths
Requires:dimscl, getstyle, mklayr, ustr,
surfacedata.lsp

    
Commands/functions defined: c:surfacedata, optioncase
Requires: Doslib, uint, ukword,
survang.lsp
;;;Format supplied radian angle in Northing and Easting format.
;;;Degree symbol is specified using (char 176) OR %%221 (custom font character) depending on the font.
;;;Also, pads zeros in minutes and seconds for 2 digit zero to 9 readings.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: survang
Requires: Doslib, uint, ukword,
sv-env.lsp
;;; -*-  Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;;      environment writing function **Release 9**

;;; -*-  Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988, 1989

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: SV-ENV.LSP Copyright (C) Benjamin Olasov    Graphic Systems, Inc. ;;;
;;; Inquiries:                                                              ;;;
;;;                                                                         ;;;
;;;     Benjamin Olasov                                                     ;;;
;;;     Graphic Systems, Inc.:                                              ;;;
;;;                                                                         ;;;
;;;                    New York, NY:   PH (212) 725-4617                    ;;;
;;;                    Cambridge, MA:  PH (617) 492-1148                    ;;;
;;;                    MCI-Mail:       GSI-NY   344-4003                    ;;;
;;;                    Arpanet:        olasov@cs.columbia.edu               ;;;
;;;                                                                         ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; This program is provided 'as is' without warranty of any kind, either 
;; expressed or implied, including, but not limited to the implied warranties of
;; merchantability and fitness for a particular purpose.  The entire risk as to
;; the quality and performance of the program is with the user.  Should the 
;; program prove defective, the user assumes the entire cost of all necessary 
;; servicing, repair or correction. 
;;
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This function C:SV-ENV saves the current LISP environment into a file with
;; the name of the drawing and with the extension .LSP.  For example, if the
;; name of the current drawing whose LISP environment you wish to save is
;; FOOBAR.DWG, then the name of the LISP file to which the environment is saved
;; will be FOOBAR.LSP.
;; For this function to work at all, you must have placed a marker in your
;; ATOMLIST (AutoLISP's record of all LISP variables, functions, etc.).
;; To do this, simply place the following line at the end of your ACAD.LSP file:
;; (setq MARK nil)
;; That's all.  Then the SV-ENV function will not attempt to record 
;; AutoLISP's primitive functions, or the functions automatically loaded with
;; your ACAD.LSP.
;;
;; To restore your previous environment of variables and user functions, just
;; type (load "dwgname") at the command prompt, where "dwgname" is the name
;; of the drawing whose LISP environment you saved.

;; This is a beta version, which I hope to improve soon.
;; If you have ideas on how to improve this, please don't just munge this file
;; and redistribute it- let me hear your ideas.  If they would create errors
;; of which I'm aware, I'll let you know- if not, I'll include them in a 
;; revision. 


    
Commands/functions defined: c:sv-env, write-atom
Requires: Doslib, uint, ukword,
sview.lsp
;;;The old SVIEW has been completely replaced by KEYVIEWS.LSP
;;;which defines the new C:SVIEW and several other commands
;;;This SVIEW.LSP is to ensure older versions of SVIEW.LSP do not
;;;interfere with the proper operation of the new command.

    
Commands/functions defined: dummy_sview
Requires:keyviews,
switchdefaultprinter.lsp
;;;From Thalon (Mechanical) at "http://www.eng-tips.com/viewthread.cfm?qid=175937" copied  4/24/2012
;;;Changes text strings to match what I use.

    
Commands/functions defined: c:switchdefaultprinter, getactiveplotdevice, getcanonicalmedianames, getplotstyletablenames
Requires:keyviews,
swrcadlaycolor.lsp

    
Commands/functions defined: c:swrcadlaycolor
Requires:keyviews,
symblt.lsp
;;;Place a user supplied block name near the end of a line. (bend part, tee, gv, bfv)
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 8-6-2000
;;;	Edited:   11-11-2011
;;;
;;;****************************************************************************

    
Commands/functions defined: c:symblt, symblt_error
Requires:dimscl, mklayr, ukword,
symbpt.lsp
;;;********************************************************************

    
Commands/functions defined: c:symbpt, symbpoint_error
Requires: Doslib, c3difodoc, check_for_doslib, ukword,
tags.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2005
;;;	   Edited:  10-9-2006
;;;****************************************************************************

    
Commands/functions defined: c:tags, tags_error
Requires:dimscl, getstyle, gvpno, make_layer_ent, txtsize, ukword, ulbl, upoint,
tally.lsp

    
Commands/functions defined: c:tally
Requires:attupd,
tblk.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:tblk
Requires:attupd,
tcl.lsp
;Raw graphic construction tool for square-to-round transitions (sheet metal)

    
Commands/functions defined: c:ccl, c:tcl
Requires:upoint,
tdlt.lsp
;;;Set custom linetypes (command-ltype) TDLT-TDL, TDRT-TDR, and SEDF-SEDFENCE
;;;Use TDLT to point left and TDRT to point right, then use PLREV.LSP to reverse them if they point the wrong way.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:dblsedf, c:enkalt, c:excelt, c:geot, c:gllt, c:glrt, c:grlt, c:grrt, c:pltools, c:rrap, c:sedf, c:stream, c:tdlt, c:tdrt, c:tracks, c:treeln, c:wdlne, c:wdlnp, c:wirefe, c:wirefp, c:woodfe, c:woodfp, loadcustltype
Requires:custltype, initandsdichk, mklayr,
teelt.lsp
;;;Place a block named TEELT near the end of a line. (a bend part)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.

    
Commands/functions defined: c:teelt
Requires:dimscl, svlayr,
temp.vars.lsp

    
Commands/functions defined: c:teelt
Requires:dimscl, svlayr,
textline.lsp
;;;Place a custom linetype as an anonymous block. It allows linear as well as curved sections. (uses UPOINT UREAL)
;;;       The user toggles
;;;       between the two during placement.  The block entity is not placed in
;;;       the drawing until the user terminates the input with a return
;;;       supplied to the "next point" prompt.  Size of the graphic elements
;;;       is determined by the dimscale.  If the user matches the dimscale
;;;       with the drawing scale the graphics will scale the same on all
;;;       drawings.  The linetype consists of equally spaced X's (nearest
;;;       to 1/2" spacing at scale for the length of arc or line) and lines
;;;       between them that do not touch.  If the variable modf = "EXST" the
;;;       circle radius is 0.0625125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		7-29-2005
;;;

    
Commands/functions defined: bulge, c:textline
Requires:dimscl, upoint, ureal, ustr,
textout.lsp
;;; TEXTOUT.LSP - KETIV
;;;
;;; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;; All rights reserved.
;;; KETIV Technologies, Inc.
;;; 6645 NE 78th Court #C-2
;;; Portland, OR 97218
;;;
;;; Layer Group: None
;;;
;;; Menu Location: Text I/O pull down
;;;
;;; Purpose: To export text strings from a drawing to an ascii text file.
;;;
;;; Prompts: Filename to write 
;;;          Pick the text in the order in which it will be written to the file:
;;;          Select objects:
;;;          XX Lines of text written to "file"
;;;
;;; Assumptions/Limitations: None
;;;
;;;======================================================================================================
;;; Initialize memory and important system variables

    
Commands/functions defined: c:textout
Requires:dimscl, upoint, ureal, ustr,
textscrnmem.lsp
;;;Sets AutoCAD's number of Text Screen lines that are remembered (viewable by scrolling up in the text screen).
;;;nlines=2048 is the maximum legal value for the HistoryLines property
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/31/2010
;;;		   EDITED: 8/31/2010
;;;

    
Commands/functions defined: textscrnmem
Requires:dimscl, upoint, ureal, ustr,
thgt.lsp
;;;Modify the text height of a selection set of text entities. (uses USTR)
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		11-26-95
;;;

    
Commands/functions defined: c:thgt
Requires:dimscl, ustr,
thgts.lsp
;;;Modify the text height of a related selection set of text entities by scaling to the ratio NEW/EXIST or by factor Xnn.nnn (uses USTR UPOINT)
;;;       The only input required is the desired text width factor and selection
;;;       of the text to modify.  There is no need to worry about selecting
;;;       non-text entities because they will be automatically filtered out of
;;;       the selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-13-94
;;;	Edited:		10-31-2005
;;;

    
Commands/functions defined: c:thgts
Requires:dimscl, upoint, ustr,
thinpl.lsp
;;;Thin Polyline vertices based on user specified angles and distances. (uses UANGLE UDIST)
;;;
;;;	Requires: UUTILS.LSP  (uangle, udist)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	5-14-96
;;;	Edited:		9-6-2005
;;;

    
Commands/functions defined: c:thinpl, thinpl
Requires:uangle, udist,
thkfix.lsp
;;;Finds entities on layers having linetypes with embedded text and
;;;entities whose linetypes have embedded text and changes their
;;;thickness to 1.0 so they will hide properly with hidden line removal.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    
Commands/functions defined: c:thkfix
Requires:wipeprom,
tif2pdf.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/18/2012
;;;	   Edited: 12/18/2012
;;;

    
Commands/functions defined: c:tif2pdf
Requires: Doslib, check_for_doslib, get_project_data, have_irfanview, sort, uint, ukword,
tiffdpi.lsp
;;;TIFFDPI Sets the DPI for TIFF files in the DefaultPlotToFilePath location or another selected location
;;;Default DPI is either the value of dpiresstr (as a string) or 288.  (dpiresstr is set within my BPLOT2k lisp application but can be set independently)
;;;If halfdpi evaluates True the default dpi is doubled to produce half-size images.  (halfdpi is set within my BPLOT2k lisp application but can be set independently)
;;;
;;;Requires DOSLIB 			from Robert McNeel & Associates (free download @ http://www.mcneel.com/)
;;;Requires IrfanView 			(free download from http://www.irfanview.com/)  This is an external application which is executed using a DOSLIB function.
;;;Requires autodpifix.lsp 		(free from http://www.paracadd.com/) Subroutine for fixing the DPI of a single file.  It is designed to be called by autolisp or scripts.
;;;Requires check_for_doslib.lsp	(free from http://www.paracadd.com/) Subroutine for insuring the correct version of DOSLIB is loaded.
;;;Requires have_irfanview.lsp		(free from http://www.paracadd.com/) Subroutine for insuring IrfanView is available.
;;;

    
Commands/functions defined: c:tiffdpi
Requires: Doslib, autodpifix, check_for_doslib, have_irfanview,
tifflist.lsp

    
Commands/functions defined: c:tifflist
Requires: Doslib, autodpifix, check_for_doslib, have_irfanview,
tinborder.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	5-12-2014
;;;	   Edited:	5-12-2014
;;;

    
Commands/functions defined: c:tinborder
Requires: Doslib, autodpifix, check_for_doslib, have_irfanview,
tincr.lsp
;;;Place text with incremented numbers.
;;;Requires uutils.lsp, dimscl.lsp getstyle.lsp mklayr.lsp
;;;(and maybe some I didn't catch)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:tincr
Requires:dimscl, getstyle, txtsize, uint, ukword, upoint, ustr, uutils,
tinmacs.lsp

    
Commands/functions defined: c:myaddl, c:myaddp, c:mycc, c:myeditp, c:myerasel, c:myerasep, c:myff, c:myi3dl, c:mysavtin
Requires:dimscl, getstyle, txtsize, uint, ukword, upoint, ustr, uutils,
tnote.lsp
;;;Dialog utility for storing, editing and retrieving/placing Typical Notes into a drawing.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  2/1995
;;;	   Edited:  11/26/2013
;;;
;;;Requires:	getstyle.lsp, browser_help.lsp, mymldr.lsp, mlt.lsp, upoint.lsp, uint.lsp, ukwword.lsp,
;;;		ureal.lsp, mltstyle.lsp, dimscl.lsp, remlt.lsp, errortrap.lsp. mklayr.lsp, tnote.dcl
;;;

    
Commands/functions defined: add_tn_item, c:tnote, c:tnote_trace, c:tnote_untrace, chk_tnlst, citocs, clear_wsnote, copyto_wsp, cstoci, del_tnlines, do_abstr, f_tnote, fix_pview_lst, fltr_tnlist, get_color_no, get_tnotedat_file, intchk, major_action, mandatbak, new_tnote_dat, newitem_mgr, paste_wsedits, place_note, pview, renametnbfile, repl_item, res_tn_thts, set-as-existing, set-m-leader, set-place-tnote-text, set-t-leader, set_ascolor, set_bubl, set_color_swatch, set_colr_mode, set_decimal, set_just, set_leroy, set_pview, set_srchbubl, set_tnote_ebox, set_tnote_list, set_tnotecolor, set_tnotecolor_no, set_wrap, sets_ldrc, sets_txtc, setv_ldrc, setv_txtc, srch_tnlist, tn-pcpyrt, tn_set_caps, tnote_error, tnote_sorter, upd_tn_thts, upd_tnote_dat, wrap_lines_action, wrap_slide_action, wrap_value_action
Requires: Doslib, browser_help, dimscl, getstyle, mlt, mymldr, upoint,
todo.lsp


    
Commands/functions defined: c:modo, c:todo
Requires: Doslib, browser_help, dimscl, getstyle, mlt, mymldr, upoint,
toglabels.lsp
;;;This function replaces style names used in the current drawing and ending with "Normal" or "Raster"
;;;with matching style names of the opposite ending.  The styles must be in the current drawing and have
;;;the same name except for the ending (not case sensitive).  Assigning a Raster plot device to a layout
;;;will cause C3D label styles and other objects to be scaled down to 1/12th their intended size.
;;;For label styles my solution is to create duplicate styles with parameters that are 12X larger for use
;;;with a raster plot device.  This function will swap out the Pipe and Structure label styles on command.
;;;Eventually I will modify the function to swap out all other C3D label styles meeting the criteria.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	9/29/2015
;;;	   Edited:	9/29/2015
;;;
;;;Assistance of Jeff_M, also a frequent Swamper, acknowledged:
;;;http://forums.autodesk.com/t5/autocad-civil-3d-customization/accessing-pipe-network-label-style-object-collection-s-via-vlisp/m-p/5836183
;;;Specifically: how to access the AeccPipeApplication;
;;;(SETQ c3dpipe (VLA-GETINTERFACEOBJECT *acad* (STRCAT "AeccXUiPipe.AeccPipeApplication." verstr)))
;;;I substituted 'verstr for 'c3d in Jeff's code
;;;
;;;Requires Subroutines: UKWORD.LSP, CHKKWDS.LSP
;;;
;;;****************************************************************************

    
Commands/functions defined: c:toglabels, swapstyles
Requires:c3difodoc, ukword,
tolayer.lsp
;;; TOLAYER.LSP - KETIV
;;;
;;; Copyright 1986, 1987, 1988, 1989 by KETIV Technologies, Inc.
;;; All rights reserved.
;;; KETIV Technologies, Inc.
;;; 6645 NE 78th Court #C2
;;; Portland, OR  97218
;;;
;;; Layer Group: None
;;;
;;; Menu Location: Edit1 pull down
;;;
;;; Purpose:  To move selected entities to the current layer
;;;
;;; Prompts:
;;;           Select objects:
;;;           Destination layer :
;;;             [If the layer does not exist]
;;;             Layer "name" does not exist."
;;;
;;; Assumptions/Limitations: NONE
;;; 3-10-2008 Revised GETSTRING to accept layer names with spaces
;;;
;;;======================================================================================================
;;; Initialize memory and important system variables

    
Commands/functions defined: c:tolayer
Requires:make_layer_ent, mklayr,
tolist.lsp

    
Commands/functions defined: variantvalue, tolist
Requires:make_layer_ent, mklayr,
tooltipsoff.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;

    
Commands/functions defined: c:tooltipsoff, c:tooltipson
Requires:make_layer_ent, mklayr,
tpan.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:stz, c:tpan
Requires:stait, ureal,
tparno.lsp
;;;Change a number in (m)any text string(s) by a value.
;;;Adds parenthesis around number.  (uses UINT USTR)
;;;Specify or change precision (decimal places) too.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	9-19-95
;;;	Edited:		9-19-95
;;;

    
Commands/functions defined: c:tparno
Requires:stait, ureal,
transpt.lsp
;;;Subroutine. Translates points from MCS to WCS.  Only for list returned by nentsel from block selection.
;;;
;;;       Requirements:   nntlst  must be a list returned by (nentsel) for a
;;;                               selection of a block (and not selected by an
;;;                               attribute).
;;;
;;;                       defpnt  is a coordinate list (x y z) of an entity
;;;                               within the selected block.
;;;
;;;       newdpt  =  the coordinate location of defpnt in the WCS.
;;;                               
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-24-97
;;;       Edited:         4-24-97
;;;

    
Commands/functions defined: transpt
Requires:stait, ureal,
truecolor.lsp
;;;From The Swamp http://www.theswamp.org/index.php?topic=35588.0
;;;with minor edits to symbol names and added limits for int color values

    
Commands/functions defined: truecolor
Requires:stait, ureal,
truetrim.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2007
;;;	   Edited: 
;;;

    
Commands/functions defined: c:eraseout, c:truetrim
Requires:stait, ureal,
tsize.lsp
;Shows text characteristics.
;
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	11-13-96
;	Edited:		11-13-96
;

    
Commands/functions defined: c:tsize
Requires:stait, ureal,
tsnap.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:snap0, c:snap30, c:snap45, c:snap60, c:snapp, c:tsnap, c:tsnap30, c:tsnap45, c:tsnap60
Requires:upoint,
ttarc.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-21-99
;;;	   Edited:	9-6-2005

    
Commands/functions defined: c:ttarc, ttarc_error
Requires:ureal,
ttlb.lsp
;Inserts title block (attribs) and Xrefs static title info.  (attribs in CORPTTLAT.DWG, static text in ??????TC.DWG, ??????=6 chars of default dir)
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	2-16-96
;	Edited:		2-16-96
;

    
Commands/functions defined: c:ttlb
Requires:mklayr, dimscl,
twid.lsp
;;;Modify the text width factor of a selection set of text entities.
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	6-7-94
;;;	Edited:		6-18-99
;;;

    
Commands/functions defined: c:twid
Requires:ukword, ureal,
tx2pt.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:tx2pt
Requires:ukword, ureal,
txadd.lsp
;;;Add text to existing text before or after
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7-15-94
;;;	Edited:		8-22-2001
;;;

    
Commands/functions defined: c:txadd
Requires:ustr,
txang.lsp
;;;Modify the text obliquing angle of a selection set of text entities. (uses UREAL
;;;       The only input required is the desired
;;;       text obliquing angle and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		1-24-06
;;;

    
Commands/functions defined: c:txang
Requires:ukword, ureal,
txbelo.lsp
;;;Place text below a line.  Prompts for text layer by entity pick. (uses GETSTYLE USTR MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		3-6-2006
;;;

    
Commands/functions defined: c:txbelo
Requires:dimscl, getstyle, mklayr, slent, ustr,
txonl.lsp
;;;Place text on a line.  (uses GETSTYLE USTR MKLAYR)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	4-7-95
;;;	Edited:		10-6-2005
;;;

    
Commands/functions defined: c:txonl
Requires:mklayr, slent, dimscl, getstyle, ustr,
txran.lsp
;;;Modify the text rotation angle of a selection set of text entities. (uses UREAL)
;;;       The only input required is the desired
;;;       text obliquing angle and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7-15-94
;;;	Edited:		7-15-94
;;;

    
Commands/functions defined: c:txran
Requires:ureal,
txt2arc.lsp
;;;Constructs ARCALIGNEDTEXT from standard text.
;;;Asks user to place a new arc which the text will be aligned to and erases the old text.
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:
;;;	   Edited:
;;;
;;;****************************************************************************

    
Commands/functions defined: c:hidearctext, c:hidearctxt, c:maskarctext, c:maskarctxt, c:text2arc, c:txt2arc, fun, mask-arc-text
Requires: Doslib, gvpno, img, make_layer_ent, uint, ukword, upoint,
txtblks.lsp
;;;Change text in blocks to separate layer (*-TXT) from other entities.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  2001
;;;	   Edited:  8-27-2001

    
Commands/functions defined: c:txtblks
Requires: Doslib, gvpno, img, make_layer_ent, uint, ukword, upoint,
txthk.lsp
;;;Modify the thickness of a selection set of text entities. (uses UREAL
;;;       The only input required is the desired thickness
;;;       and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	8-27-97
;;;	Edited:		8-27-97
;;;

    
Commands/functions defined: c:txthk
Requires:ureal,
txtin.lsp
;Import notes (a text file with or without numbered notes).  It uses the current text style and layer settings except the user can specify any height desired
;	regardless of the style settings.  The current text size is
;	the default.  In order to indent notes that are numbered
;       the numbers must be alone on the line before the note they
;	refer to AND they must be no longer than three characters
;	INCLUDING a required period.  Any line of three characters or
;	less that ends in a period Will be treated as a note number!
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;              
;		All rights reserved without prejudice.
;
;	Copyright:	5-28-96
;	Edited:		5-28-96
;

    
Commands/functions defined: c:txtin, newerr
Requires:dimscl, getstyle, gvpno, upoint, ureal, ustr, uutils,
txtj.lsp
;;;Modify the text justification of a selection set of text entities. (uses UKWORD UPOINT)
;;;       The only input required is the desired
;;;       text justification and selection of the text to modify.  There
;;;       is no need to worry about selecting non-text entities because
;;;       they will be automatically filtered out of the selection set.
;;;	DO NOT select more than one "common note group".  All of the text
;;;	selected is assumed to belong to such a group and it ALL will be
;;;	justified to the same reference position.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	7-12-94
;;;	Edited:		8-13-01
;;;

    
Commands/functions defined: c:fixmt, c:tjmc, c:txtj
Requires:ukword, upoint,
txtlayr.lsp
;;;C:TXTLAYR appends "-TXT" to text's layer name.  C:UNTXTLAYR removes "-TXT" from text's layer name.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  6-30-99
;;;
;;;

    
Commands/functions defined: c:txtlayr, c:untxtlayr
Requires:ukword, upoint,
txtlin.lsp
;Place Line under text strings. (on same layer).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		1-26-96
;

    
Commands/functions defined: c:txtlin
Requires:mklayr,
txtlst.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:txtlst
Requires:mklayr,
txtm.lsp
;;;Match text Style and Height. Match layer if standard, else set layer. (uses MKLAYR)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:txtm
Requires:mklayr,
txtsize.lsp
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	1990-2005
;;;	   Edited:	10-16-2005
;;;
;;; Extracted from multiple routines and made into this subroutine
;;; 8-18-99
;;;
;;;	Loads USTR.LSP, DIMSCL.LSP and MKLAYR.LSP
;;;
;;;
;;; Style is forced to STANDARD on line 124.  Comment out this line
;;; to
;;; use any
;;; style.
;;;
;;;****************************************************************************

    
Commands/functions defined: cmud_colr, set_txt_colr, txtsize
Requires:dimscl, mklayr, set_mjrg, ureal,
txtsty.lsp
;;;Modify the text style of a selection set of text entities. (uses USTR UKWORD)
;;;       The only input required is the desired
;;;       text width factor and selection of the text to modify.  There
;;;       is no need to worry about not selecting non-text entities
;;;       because they will be automatically filtered out of the
;;;       selection set.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-94
;;;	Edited:		6-7-94
;;;

    
Commands/functions defined: c:txtsty (/
Requires:ukword, ustr,
u#.lsp
;******************************************************************************

    
Commands/functions defined: c:u#, c:u2, c:u3, c:u4, c:u5, c:u6, c:u7, c:u8, c:u9, u#sel
Requires:uint,
uangle.lsp
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function to check keywords

;* UANGLE User interface angle function 
;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;* for INITGET. MSG is the prompt string, to which a default real in rads is
;* added as  (nil for none), and a : is added. BPT is base point (nil
;* for none).
;*

    
Commands/functions defined: uangle
Requires:chkkwds,
ublk.lsp
;;;Update block insertions and preserve attributes. (uses MKLAYR.LSP, UKWORD.LSP)
;;;both are available FREE at http://www.paracadd.com
;;;
;;;	AUTHOR: Henry C. Francis
;;;           425 N. Ashe Street
;;;	        Southern Pines, NC 28387
;;;	All rights reserved without prejudice.
;;;
;;;	Copyright:	12-20-94
;;;	Edited:	7-20-2012
;;;
;;;	Now looks for the updated block (external DWG file) in AutoCAD Search Path; ./Blocks/; H:/Util/Fittings/; and, H:/Util/ in that order.
;;;	Updates using the first found DWG in the search order that the user approves.
;;;

    
Commands/functions defined: c:ublk, ublk
Requires:makeinsert, mklayr, ukword,
ublka.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;       Copyright:      4-22-97
;;;       Edited:         4-22-97
;;;

    
Commands/functions defined: c:ublka
Requires:ukword, ustr,
udist.lsp
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UDIST User interface function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as  (nil
;* for none), and a : is added. BPT is base point (nil for none).
;*

    
Commands/functions defined: udist
Requires:chkkwds,
udpipe.lsp
;;;Update hiding images to match edits to pipe linework
;;;Used with pipes created by ParaPIPE
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:udpipe
Requires:chkkwds,
udtitlefields.lsp

    
Commands/functions defined: c:udtitlefields
Requires:attupd,
uint.lsp
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UINT User interface function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as  (nil
;* for none), and a : is added.
;*

    
Commands/functions defined: uint
Requires:chkkwds,
ukword.lsp
;;; This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New
;;; Riders Publications.  This credit must accompany all copies of this
;;; function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;;;* UKWORD User key word. DEF, if any, must match one of the KWD strings
;;;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;;;* for INITGET. MSG is the prompt string, to which a default string is added
;;;* as  (nil or "" for none), and a : is added.
;;;*

    
Commands/functions defined: ukword
Requires:chkkwds,
ulbl.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  1997-2011
;;;	   Edited:  9/14/16
;;;
;;;	Requires: gvpno.lsp, dimscl.lsp, getstyle.lsp, mklayr.lsp, tags.lsp, ukword.lsp, txtsize.lsp, ureal.lsp, nentsel_to_MCS.lsp, upoint.lsp, mltstyle.lsp, tnote.lsp, tnote.dcl, ureal.lsp
;;;		(the required files above may have their own additional requirements)
;;;
;;;	A section of code below forces multileader/text option where automatic placement
;;;	of aligned text would otherwise happen:
;;;	search for it using (WCMATCH sytxt "GATE") as the search string.
;;;

    
Commands/functions defined: bcen, c:ulbl, c:ulblsize, c:ulbltext, lpipe, set-ex-lst, set-new-lst, ulbl_error, ulbl_opts, use_mymldr
Requires:dimscl, errortrap, getstyle, gvpno, mklayr, mlt, mltstyle, mymldr, nentsel_to_mcs, tags, tnote, txtsize, ukword, upoint, ureal, ustr,
umlt.lsp

    
Commands/functions defined: c:umlt()
Requires:remlt, ulbl,
undefs.lsp
;;;Custom startup functions.  Contains combined DDEDIT+DDATTE, layer mgmt functs, logging functs, etc.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1990-2001
;;;	   Edited: 6-3-2005
;;;
;;;==================================================================================================
;;;C:DEBUGSETVAR moved to separate lisp file
;;;==================================================================================================
;;;C:NILBNS moved to separate lisp file
;;;==================================================================================================
;;;undefine C:OPEN and DEFUN C:OPEN moved to separate lisp file
;;;==================================================================================================
;;;CMDOPEN moved to separate lisp file and renamed MYOPENCMD.LSP ... and replaced by myopen_fun.lsp
;;;==================================================================================================
;;;SAVE_FILE_CHK moved to separate lisp file
;;;==================================================================================================
;;;C:NEXT function moved to separate lisp file
;;;==================================================================================================
;;;C:NEXTDWG function moved to separate lisp file NEXT.LSP
;;;==================================================================================================
;;;C:PREV function moved to separate lisp file NEXT.LSP
;;;==================================================================================================
;;;C:PSPACE function moved to separate lisp file
;;;==================================================================================================
;;;DLOG moved to separate file
;;;==================================================================================================
;;;UNDEFINE qsave and DEFUN QSAVE moved to separate lisp file
;;;==================================================================================================
;;;C:BU renamed to C:BACKUP and moved to separate lisp file
;;;==================================================================================================
;;;C:SAVE moved to separate lisp file
;;;==================================================================================================
;;;C:SAVEAS moved to separate lisp file
;;;==================================================================================================
;;;C:QUIT moved to separate lisp file
;;;==================================================================================================
;;;C:SSNAP moved to separate lisp file
;;;==================================================================================================
;;;C:IBLK moved to separate lisp file
;;;==================================================================================================

    
Commands/functions defined: c:limn, c:limx
Requires:dlog, getstyle, gvpno, panpnt,
underline.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 2/25/2010
;;;		   EDITED: 2/25/2010
;;;

    
Commands/functions defined: c:underline
Requires:ukword,
unlisp.lsp
;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com/
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:ddatte, c:ddedit, c:end, c:quit, c:save, c:saveas, c:unlisp, fun
Requires:ukword,
unrot.lsp
;;;Unrotate a selection set of entities by the negative of the rotation angle of a block.
;;;(for returning civil plans to "north up" orientation from a rotated north angle)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	8-31-95
;;;	Edited:		11-17-2004  (added while loop for null selection error)
;;;

    
Commands/functions defined: c:unrot
Requires:upoint,
unspace.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 2006
;;;	   Edited: 08-06-2012
;;;
;;;Fixed SSGET to ignore srings consisting of only spaces.
;;;Fixes problem where blanked out associative dimensions (just a space or spaces) would default
;;;to the actual dimension if the string was made nil (1 . "")
;;;
;;;Added MULTILEADERs to the function
;;;

    
Commands/functions defined: c:unspace
Requires:upoint,
update_title.lsp
;;;Requires a preset list with the symbol name update_list.  The list is constructed independently so that programs can
;;;simply call (update_title) as a subroutine without having to code the constantly changing list within their programs.
;;;sht_number may be incremented as shown in the sample code below.  If sht_number exists and is an integer the number
;;;you specify in update_list will be ignored. To reset sht_number to use the number you specify (SETQ sht_number NIL).
;;;
;;;The 1st item update_list requires is a list containing:
;;;	1. the sheet number prefix as a string
;;;     2. whether to separate prefix and number with an hyphen (T or NIL)
;;;     3. the starting sheet number as an integer
;;;
;;;     '("S" T 1) tells it all sheet numbers begin with the prefix "S" followed by an hyphen.
;;;     Of course this is provided you also have specified that sheet numbers will be updated,
;;;     e.g., '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;     The statement above will increment sheet numbers
;;;     One other option is to use the 1st character of the drawing folder as the sheet number prefix
;;;     To do this make the sheet number prefix "from_folder", i.e. '("from_folder" T 1)
;;;     The 1st character of the folder name is used unless the name matches "## @*" or "##@*" in which case the character at @ is used.
;;;     e.g. if the drawing folder is "Structural" the sheet prefix is "S" 
;;;     If the sheet number is not to be updated this list must be '(nil nil nil)
;;;
;;;For each new value to set, 'update_list requires:
;;;'("" "" ""), e.g.
;;;        (LIST
;;;          '("from_folder" T 1)
;;;          '("corpttbats" "DGN'D" "APK")
;;;          '("corpttbats" "DRWN" "HCF")
;;;          '("corpttbats" "CHK'D" "EWW")
;;;          '("corpttbats" "SCALE" "AS SHOWN")
;;;          '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;        )
;;;You may use run time evaluated expressions so long as they evaluate to the correct type (STR, SYM, or INT) in the designated positions
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-25-2010
;;;		   EDITED: 6-1-2012
;;;

    
Commands/functions defined: c:update_title
Requires: Doslib, attupd, qsave,
uplan.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:uplan, panprv
Requires:uint, ukword,
upoint.lsp
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function to check keywords

;* UPOINT User interface point function 
;* BIT (1 for no null, 0 for none) and KWD key word ("" for none) are same as
;* for INITGET. MSG is the prompt string, to which a default point variable
;* is added as  (nil for none), and a : is added. BPT is base point
;* (nil for none).
;*

    
Commands/functions defined: upoint
Requires:chkkwds,
upointtxt.lsp

    
Commands/functions defined: c:upointtxt
Requires:chkkwds,
uppfiles.lsp

    
Commands/functions defined: c:uppfiles
Requires: Doslib, parapoint,
ureal.lsp
;This function is freeware courtesy of the author's of "Inside AutoLisp" for rel. 10 published by New Riders Publications.  This credit must accompany all copies of this function.

;;;October 19, 2004 added function chkkwds (see description at end of file)

;* UREAL User interface real function 
;* BIT (0 for none) and KWD key word ("" for none) are same as for INITGET.
;* MSG is the prompt string, to which a default real is added as  (nil
;* for none), and a : is added.
;*

    
Commands/functions defined: ureal
Requires:chkkwds,
usedfuns.lsp
;;;
;;;	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
;;;
;;;****************************************************************************

    
Commands/functions defined: [(\t, [\t, c:usedfuns
Requires: Doslib, [()\t,
usrprofvars.lsp

    
Commands/functions defined: c:usrprofvars
Requires: Doslib, dimscl,
ustael.lsp
;;;Update profile location and station / elevation text
;;;(SETQ no_stations T) to eliminate station text where stations are not required, e.g. hydraulic profiles.
;;;remember to (SETQ no_stations NIL) to enable stations again during the same session.
;;;Requirements:
;;;	Requires UUTILS.LSP and STAIT.LSP to be loaded.
;;;
;;;Drawing must contain:
;;;	The profile viewport on layer "*VI01*NPLT*" (preferably "??VI01?NPLT" per CLG)
;;;	The profile grid block named "cpp##spl" or "##ppgrid*" or "##spclgrid" or "##spfbgrid"
;;;		(#'s are wildcards which must be replaced with digits representing profile horizontal scale)
;;;		These profile grid blocks must contain specific attribute tags for stations and elevations,
;;;	i.e.:
;;;
;;;	left side attribute tags (ordered before right side tags)
;;;		LB+0, LB+5, LB+10, etc. ordered from highest LB+## to LB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	right side attribute tags
;;;		RB+0, RB+5, RB+10, etc. also ordered from highest RB+## to RB+0;
;;;		(The total number of these tags is unlimited)
;;;
;;;	station attribute tags
;;;		0, +0; 1, +1; 2, +2; etc. from left to right as many as are required
;;;		place these in pairs at scaled 100' increments (english), 50m increments (metric).
;;;		integer tags are right justified and +integer tags are left justified so that the first character,
;;;		typically a plus sign (+), will lay directly under the grid line.  This solves justification related
;;;		misalignment of labels.
;;;		(The total number of these tags is unlimited)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		Copyright: 1-14-98
;;;		Edited: 8-20-2009
;;;
;;;****************************************************************************

    
Commands/functions defined: c:ustael, panprv, ustael_error
Requires:stait, uint, ukword, ureal,
ustapoints.lsp

    
Commands/functions defined: c:ustapoints, fix_descr
Requires:stait, uint, ukword, ureal,
ustr.lsp
;;; This function is freeware courtesy of the author's of "Inside AutoLisp" for
;;; rel. 10 published by New Riders Publications. This credit must accompany all
;;; copies of this
;;; function.
;;;
;;; USTR User interface string If BIT=1 no null "" input allowed, 0 for none, BIT
;;; ignored if DEF present. MSG is the prompt string, to which a default string
;;; is added as  (nil or "" for none), and a : is added. If SPFLAG T, spaces
;;; are allowed in
;;; string.
;;;

    
Commands/functions defined: ustr
Requires:stait, uint, ukword, ureal,
utlay.lsp
;;;Macro to set only SWWM project layers for utilities on.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines" " NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  6-6-2001
;;;	   Edited:  11-19-2001

    
Commands/functions defined: c:utlay
Requires:stait, uint, ukword, ureal,
uutils.lsp
;;; The 'U' functions loaded below can be found in the free autolisp
;;; section of http://www.paracadd.com
;;;
;;; They are freeware courtesy of the author's of "Inside AutoLisp"
;;; for rel. 10 published by New Riders Publications. This credit must
;;; accompany all copies of these functions.
;;;

    
Commands/functions defined: c:utlay
Requires:uangle, udist, uint, ukword, upoint, ureal, ustr
viewno.lsp
;;;
;;;10/4/2007 Added the command IDVIEWS to show the fixed view numbers specified
;;;by the CAD Layer Guidelines (CLG) layer name.  If the CLG minor group of the
;;;viewport layer name does not specify a viewport number in the form "VI##"
;;;the user is asked to specify a viewport number to assign to the viewport.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://paracadd.com
;;;	All rights reserved.
;;;
;;;

    
Commands/functions defined: c:idviews, c:rda, c:viewno
Requires:gvpno, uint, ukword,
vl-atoms-lst.lsp

    
Commands/functions defined: c:vlatomslst
Requires:gvpno, uint, ukword,
vl-plotfuns.lsp
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;;
;;;  PlotDevicesFunctions.lsp
;;;
;;; 2003-01-09 More functions added
;;; 2006-07-30 Make it possible to add this lisp into your acaddoc.lsp
;;; 2006-12-15 Corrected a minor bug
;;;


    
Commands/functions defined: actlay, getactiveplotdevice, getactivestylesheet, plotdevicenameslist, plotstyletablenameslist, putactiveplotdevice, putactiveplotdevicetocompanystandardifnotexist, putactiveplotdevicetodefaultifnotexistornone, putactiveplotdevicetononeifnotexist, putactivestylesheet, putactivestylesheettocompanystandardifnotexist, putactivestylesheettodefaultifnotexistornone, putactivestylesheettononeifnotexist
Requires:gvpno, uint, ukword,
vla-atoms-lst.lsp

    
Commands/functions defined: actlay, getactiveplotdevice, getactivestylesheet, plotdevicenameslist, plotstyletablenameslist, putactiveplotdevice, putactiveplotdevicetocompanystandardifnotexist, putactiveplotdevicetodefaultifnotexistornone, putactiveplotdevicetononeifnotexist, putactivestylesheet, putactivestylesheettocompanystandardifnotexist, putactivestylesheettodefaultifnotexistornone, putactivestylesheettononeifnotexist
Requires:gvpno, uint, ukword,
vlfuns.lsp

    
Commands/functions defined: c:vlfuns
Requires:gvpno, uint, ukword,
vlx.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 4/13/2006
;;;	   Edited: 4/13/2006

    
Commands/functions defined: c:vlx, c:vlxall
Requires:ustr,
vmap.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	11-25-2013
;;;	   Edited:	11-25-2013
;;;
;;;	Requires:	Irfanview - http://www.irfanview.com/
;;;			DOSLIB	  - http://www.en.na.mcneel.com/doslib.htm
;;;			check_for_doslib.lsp - assures DOSLIB is loaded if available
;;;			have_irfanview.lsp - checks irfanview availability
;;;
;;;	Modifies typical screen capture images of area maps so that they will
;;;	print well from within AutoCAD.  Program adjusts brightness and gamma
;;;	settings and converts the image to grayscale, then it adjusts contrast
;;;	and gamma before saving the final result.  The resolution captured is
;;;	not changed.
;;;

    
Commands/functions defined: c:areamap, c:locationmap, c:vicinitymap, c:vmap
Requires: Doslib, check_for_doslib, have_irfanview, ukword,
volcalc.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:volcalc, calc_values, circle_data, re_volc, set_af_vol, set_cf_vol, set_cy_vol, set_gal_vol, set_radi, set_volc_area, set_volc_ft, set_volc_in, set_volc_units, spec_modes, volc_error, volcalc
Requires: Doslib, check_for_doslib, have_irfanview, ukword,
vpbnd.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 2/5/2010
;;;		   EDITED: 
;;;

    
Commands/functions defined: ptisinvp, vpbnd
Requires: Doslib, check_for_doslib, have_irfanview, ukword,
vpfoff.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 3-12-2008
;;;		   EDITED: 3-12-2008
;;;

    
Commands/functions defined: c:vpfoff, test_layer_onthaw
Requires: Doslib, check_for_doslib, have_irfanview, ukword,
vpmnr.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:vpmnr
Requires: Doslib, check_for_doslib, have_irfanview, ukword,
vpset.lsp
;;;Generate list of user specified Vport #'s with Acad #'s associated
;;;Layer name must contain "VI##" where ## is a two digit user specified
;;;view number.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited: 4-9-2010	Corrected error where non-existent user viewport number
;;;				would cause an infinite loop.
;;;	Edited: 1-9-2012	Corrected error caused by selecting viewports on multiple layout tabs 
;;;

    
Commands/functions defined: c:vpset, vpset, vpset-error
Requires:uint,
vstat.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Revised 11/10/2012	Modified message text and changed message output from command line to alert box

    
Commands/functions defined: c:vstat
Requires:chkctabname, ukword,
vtoh.lsp
;;;Convert vertical (profile x-section) data to horizontal data (fault lines).
;;;Requires GPDGN alignment
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:vtoh
Requires:upoint, ureal,
vw_log.lsp
;;;;Save named views
;;;;
;;;;	AUTHOR: HENRY C. FRANCIS
;;;;		425 N. ASHE ST.
;;;;		SOUTHERN PINES, NC 28387
;;;;              
;;;;		All rights reserved without prejudice.
;;;;
;;;;	Copyright:	9-4-96
;;;;	Edited:		9-20-2010 Disabled (Obsolete)
;;;;

    
Commands/functions defined: newent, vw_log, vwnxdata
Requires:upoint, ureal,
waterpl.lsp
;;;Extracts data and creates polylines to replace a rather
;;;bothersome water surface block received from outside sources.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright: 9-20-99
;;;	   Edited: 9-20-99
;;;

    
Commands/functions defined: c:waterpl
Requires:upoint, ureal,
wb-bdry.lsp

    
Commands/functions defined: c:wb-bdry
Requires:gent,
wbclean.lsp
;;;Make a 'Clean' Wblock of only what is selected.
;;;(Not suitable for Mspace/Pspace drawings)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:wbclean
Requires: Doslib, backup, chk_for_doslib, vpset, xrlayers,
wbcln.lsp
;;;Make a 'Clean' Wblock of only what is selected.
;;;Drawings with both Model Space and Paper Space objects must have WBCLN run in both spaces
;;;and the resulting *-MS.DWG and *-PS.DWG files must be reassembled
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:wbcln
Requires: Doslib, backup, chk_for_doslib,
wdimstyle.lsp
;;;writes current dimension settings to an autolisp file.
;;;Usage: Load the autolisp file written by WDIMSTYLE into AutoCAD and execute the command
;;;       (command is the same as file/style name) to create the dimension style in any drawing.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:", c:wdimstyle
Requires: Doslib, backup, chk_for_doslib,
webpmt.lsp
;;;Opens WEB PMT for Xerox 8825 Plotter
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:webpmt
Requires: Doslib, backup, chk_for_doslib,
whodunit-reactor.lsp

    
Commands/functions defined: c:whodunit-reactor
Requires: Doslib, backup, chk_for_doslib,
whodunit.lsp
;;;Requires a preset list with the symbol name update_list.  The list is constructed independently so that programs can
;;;simply call (update_title) as a subroutine without having to code the constantly changing list within their programs.
;;;sht_number may be incremented as shown in the sample code below.  If sht_number exists and is an integer the number
;;;you specify in update_list will be ignored. To reset sht_number to use the number you specify (SETQ sht_number NIL).
;;;
;;;The 1st item update_list requires is a list containing:
;;;	1. the sheet number prefix as a string
;;;     2. whether to separate prefix and number with an hyphen (T or NIL)
;;;     3. the starting sheet number as an integer
;;;
;;;     '("S" T 1) tells it all sheet numbers begin with the prefix "S" followed by an hyphen.
;;;     Of course this is provided you also have specified that sheet numbers will be updated,
;;;     e.g., '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;     The statement above will increment sheet numbers
;;;     One other option is to use the 1st character of the drawing folder as the sheet number prefix
;;;     To do this make the sheet number prefix "from_folder", i.e. '("from_folder" T 1)
;;;     The 1st character of the folder name is used unless the name matches "## @*" or "##@*" in which case the character at @ is used.
;;;     e.g. if the drawing folder is "Structural" the sheet prefix is "S" 
;;;     If the sheet number is not to be updated this list must be '(nil nil nil)
;;;
;;;For each new value to set, 'update_list requires:
;;;'("" "" ""), e.g.
;;;        (LIST
;;;          '("from_folder" T 1)
;;;          '("corpttbats" "DGN'D" "APK")
;;;          '("corpttbats" "DRWN" "HCF")
;;;          '("corpttbats" "CHK'D" "EWW")
;;;          '("corpttbats" "SCALE" "AS SHOWN")
;;;          '("corpttbats" "SHT_NO." (STRCAT sht_prefix (ITOA (1-(SETQ sht_number (1+ sht_number)))))
;;;        )
;;;You may use run time evaluated expressions so long as they evaluate to the correct type (STR, SYM, or INT) in the designated positions
;;;
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 5-25-2010
;;;		   EDITED: 5-25-2010
;;;

    
Commands/functions defined: c:update_title
Requires: Doslib, attupd, qsave,
wipeprom.lsp
;;;moves the cursor to the start of the prompt.
;;;Subsequent PRINC will overwrite the prompt area but only
;;;to the character position it ends on.
;;;
;;;	AUTHOR:
;;;		HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;  Copyright: 5/25/01
;;;     Edited: 5/25/01
;;;

    
Commands/functions defined: wipeprom
Requires: Doslib, attupd, qsave,
wipewhite.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 5/17/2007
;;;		   EDITED: 5/17/2007
;;;

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

    
Commands/functions defined: bulge, c:wirefen
Requires:dimscl, upoint, ureal,
woodfen.lsp
;;;Place a custom linetype as an anonymous block. (uses UPOINT)
;;;       The block entity is not placed in
;;;       the drawing until the user terminates the input with a return
;;;       supplied to the "next point" prompt.  Size of the graphic elements
;;;       is determined by the dimscale.  If the user matches the dimscale
;;;       with the drawing scale the graphics will scale the same on all
;;;       drawings.  The linetype consists of equally spaced squares (nearest
;;;       to 1/2" spacing at scale for the length of arc or line) and lines
;;;       between them that do not touch.  If the variable modf = "EXST" the
;;;       circle radius is 0.03125 x dimscale, if not it is 0.0469 x dimscale.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	6-7-95
;;;	Edited:		7-29-2005
;;;

    
Commands/functions defined: c:woodfen
Requires:dimscl, upoint,
wpdxrpaths.lsp

    
Commands/functions defined: c:wpdxrpaths
Requires: Doslib, getxrefs,
xa.lsp
;;; Xref attachment function for standard symbols.  Attach at dimscale, angle=0 (uses USTR) Can preset pinit for PE seal
;;; "_PE", bname for drawings, else it
;;; prompts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 1991-2001
;;;	Edited:	2-28-2001
;;;

    
Commands/functions defined: c:xa
Requires:dimscl, ustr,
xa1.lsp
;;;Xref attachment function.  Attach at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-25-2010
;;;

    
Commands/functions defined: c:xa1
Requires: Doslib, check_for_doslib, mklayr, ukword, ustr, uutils,
xbrk.lsp

    
Commands/functions defined: c:xbrk, c:xtnd
Requires: Doslib, check_for_doslib, mklayr, ukword, ustr, uutils,
xi1.lsp
;;;Insert at 0,0; scale=1; angle=0. (uses USTR) Can preset bname for drawings, else it prompts.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	10-26-2005
;;;

    
Commands/functions defined: c:xi1
Requires: Doslib, check_for_doslib, ustr,
xilists.lsp
;;;vla-Select filter information comments below are from http://www.afralisp.net/
;;;
;;;(vla-Select object Mode Point1 Point2 FilterType FilterData)
;;;
;;;(vla-Select newSet acSelectionSetAll)
;;;
;;;Object : 	SelectionSet
;;;		The object or objects this method applies to. 
;;;
;;;Mode :  	AcSelect enum; input-only
;;;		acSelectionSetWindow
;;;		acSelectionSetCrossing
;;;		acSelectionSetPrevious
;;;		acSelectionSetLast
;;;		acSelectionSetAll 
;;;
;;;Point1 : 	Variant (array of doubles); input-only; optional
;;;		The 3D WCS coordinates, or array of coordinates, specifying Point1. See the mode definitions above for the proper use of Point1. 
;;;
;;;Point2 : 	Variant (three-element array of doubles); input-only; optional
;;;		The 3D WCS coordinates specifying Point2. See the mode definitions above for the proper use of Point2. 
;;;
;;;FilterType : Integer; input-only; optional
;;;		A DXF group code specifying the type of filter to use. 
;;;
;;;FilterData:	Variant; input-only; optional
;;;		The value to filter on. 

    
Commands/functions defined: xilists
Requires:errortrap, setdefplot,
xireactor.lsp

    
Commands/functions defined: c:xireactor
Requires:errortrap, setdefplot,
xiupdate.lsp

    
Commands/functions defined: c:xiupdate
Requires:xilists,
xjoin.lsp

    
Commands/functions defined: c:xjoin()
Requires:xilists,
xmlist.lsp

    
Commands/functions defined: c:xmlist
Requires: Doslib, ustr,
xngellip.lsp
;;;
;;;
;;;	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

    
Commands/functions defined: c:xngellip
Requires:mss, dimscl, ureal,
xo1.lsp
;;;Xref overlay function.  Overlay at 0,0; scale=1:1; angle=0�.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Edited:	2-25-2010
;;;

    
Commands/functions defined: c:xo1
Requires: Doslib, check_for_doslib, mklayr, ukword, ustr,
xodesign.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 8/19/2010
;;;		   EDITED: 8/19/2010
;;;

    
Commands/functions defined: c:xod, c:xodesign, xodesign_error
Requires: Doslib, check_for_doslib, ustr, xo1,
xor1.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:xor1
Requires: Doslib, check_for_doslib, ustr, xo1,
xpac.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:xpac
Requires: Doslib, check_for_doslib, ustr, xo1,
xpfl.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 
;;;		   EDITED: 
;;;

    
Commands/functions defined: c:xpfl
Requires: Doslib, check_for_doslib, ustr, xo1,
xplt.lsp
;;;
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;		COPYRIGHT: 4-21-2010
;;;		   EDITED: 5-23-2013
;;;

    
Commands/functions defined: c:xplt
Requires: Doslib, setdefplot,
xpts.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:xpts
Requires: Doslib, ukword,
xr2ins.lsp

    
Commands/functions defined: c:xr2ins
Requires: Doslib, ukword,
xrdet.lsp
;;;Detach selected XREF.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:xrdet
Requires: Doslib, ukword,
xreftree.lsp
;;;  ;Stephan Koster 2002, posted to adesk customization
;;;  ;newsgroup on 4/21/2002

    
Commands/functions defined: build_retlist, c:xreftree, c:xrs-test, c:zxrs, debug-lines, findinlist, fun, getxrefnames, isdbmod, nested_p, printresults, xreftree, xrswap-open
Requires: Doslib, lamacs, myopen_fun, next, setprevdwg, ukword, vpbnd,
xrfs.lsp
;;;Lists just names of all XREFs attached, one per line.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:xrfs
Requires: Doslib, check_for_doslib,
xrilst.lsp
;;;Lists just names of all XREFs attached, one per line.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:xrilst, c:xrout
Requires: Doslib, check_for_doslib,
xrlayers.lsp
;;;C:XRLAYERS writes layer status to file.  C:RXRLAY restores layer color/linetype from file.
;;;C:RLAYERS strips filename prefix from Xref layers and restores layer color/linetype from file.
;;;If XREF layer linetype is overridden in current drawing but not in settings file, linetype will remain unchanged.
;;;Turn off VISRETAIN, reopen the file, turn on VISRETAIN, then use C:RXRLAY to full effect.
;;;
;;;If symbol named write_ltype_needs is not nil, filename ltneeds.txt is written/appended with ltype needs.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  6-30-99
;;;	   Edited:  2-2-2008
;;;
;;;	Added Xref layer settings import (same layer names, different xref name prefix)
;;;	type IMPORTXRL at the command prompt.  May use wildcards preceding "|".
;;;	Do not include "|" (the [shift+backslash] key).
;;;
;;;
;;;	Default filename includes layout name and view number (as specified by the CLG layer name e.g. ??VI##?...
;;;
;;;	Now also saves status of layers frozen in the current viewport.
;;;
;;;	Requires: gvpno.lsp, uint.lsp, chkkwds.lsp, ukword.lsp, ustr.lsp, doslib##.arx (where ##=AcadVer as an integer), check_for_doslib.lsp, set_mjrg.lsp
;;;
;;;****************************************************************************

    
Commands/functions defined: c:importxrl, c:replpfx, c:rlayers, c:rvplay, c:rxlayers, c:rxrlay, c:xrlayers, islayervpfrozen, setvpfrzlst, str_ltype, xrl_file_spec, xrlayerserror
Requires: Doslib, tsnap, check_for_doslib, gvpno, ukword, ustr,
xrpath.lsp
;;;Makes XREF paths relative if possible.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:xrpath
Requires:qsave,
xrswap.lsp
;;;Open selected XREF for editing. (In which case it is then the active drawing.) (uses Robert McNeel & Assoc.'s DOSLIB)
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	11-15-2011 Completely rewritten 
;;;
;;;;******************************************************************************

    
Commands/functions defined: c:gotoxr, c:setzxst, c:xrswap, c:zxrs, c:zxst, isdbmod, return_sdi_0, xrswap-error, xrswap-open
Requires: Doslib, next, opendwg, setprevdwg, tsnap, ukword, vpbnd, xref,
xrunload.lsp
;;;Detach selected XREF.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		Modified 4-25-02 to unload xrefs instead of detach
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;

    
Commands/functions defined: c:xru
Requires: Doslib, next, opendwg, setprevdwg, tsnap, ukword, vpbnd, xref,
xstatus.lsp
;;;   XSTATUS.lsp
;;;   Copyright (C) 1991, 1992 by Autodesk, Inc.
;;;
;;;   Permission to use, copy, modify, and distribute this software and its
;;;   documentation for any purpose and without fee is hereby granted.
;;;
;;;   THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;;   ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;;   MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;   by Carl Bethea
;;;   9 September 1991
;;;
;;;   Revised: 17 Mar 92  CBB
;;;   Revised: 18 May 92  CBB
;;;
;;; * No error function defined. *
;;;--------------------------------------------------------------------------;
;;;   DESCRIPTION
;;;
;;;   This function represents the nesting of XRefs graphically.
;;;
;;;   XSTATUS prints a listing of the block table, indenting each name
;;;   based on the nesting level of the block.  It tries not to repeat block
;;;   names at the first level.  That is, if the block name is nested in
;;;   another block which XSTATUS has already investigated, then it won't be
;;;   listed again as an individual block, though it will show up if it is
;;;   nested again within another block.
;;;
;;;   Note: Externally dependent anonymous blocks have peculiar enames.
;;;   When an attempt is made to access the block def in the nested block,
;;;   ENTGET will fail. You will notice a period "." printed after a
;;;   anonymous block name indicating that TBLSEARCH failed.  Don't try
;;;   to access these block names through TBLSEARCH.
;;;
;;;
;;;--- c:xstatus --------------------------------------------
;;;    print block names, indented for each level of nesting
;;;

    
Commands/functions defined: c:xstatus, dxf, ferret, page, show
Requires: Doslib, next, opendwg, setprevdwg, tsnap, ukword, vpbnd, xref,
xydist.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:  
;;;	   Edited:  

    
Commands/functions defined: c:xydist
Requires:gent, xyscl,
xyscl.lsp
;;;Modify X, Y, and Z scale factors.  Each is specified individually allowing unequal scaling (or alternatively setting them equal). (uses UREAL)
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;
;;;	Copyright:	3-16-95
;;;	Edited:		3-16-95
;;;

    
Commands/functions defined: c:xyscl, c:xysclp, rescl_blks
Requires:ukword, upoint, ureal,
zc3.lsp
;;;This function is intended to automate the positioning of a detail enlargement in a "numbered" viewport.
;;;The commands are ZC3 through ZC6 (additional command numbers may be easily added below).
;;;
;;;Viewport numbers are specified in characters 3-6 of the viewport layer name, e.g. C-VI037NPLT (This is a modified CLG format)
;;;
;;;In the example viewport layer name:
;;;	1st character "C" specifies it is a Civil layer.
;;;	2nd character "-" specifies the layer linetype is "continuous".
;;;		(2nd character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	3rd through 6th character "VI03" specifies is a viewport number of 3.
;;;	7th character "7" specifies a layer color 7.
;;;		(7th character "-" is CLG but only if nothing is specified by it else it is non-CLG)
;;;	8th through 11th character "NPLT" specifies it is a Non-Plot layer.
;;;
;;;VPSET, an external subroutine, works using this layer format.
;;;UPOINT is an external subroutine.
;;;
;;;	Author:	Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;		http://paracadd.com
;;;		All rights reserved.
;;;
;;;		COPYRIGHT: 11/17/2011
;;;		   EDITED: 11/17/2011
;;;

    
Commands/functions defined: c:zc3, c:zc4, c:zc5, c:zc6, new-mvpc
Requires:uint, upoint, vpset,
zpoint.lsp
;;;
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;

    
Commands/functions defined: c:zpoint
Requires:uint, upoint, vpset,
ztrick.lsp
;;;
;;;	Author: Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright: 12/8/2012
;;;	   Edited: 12/8/2012
;;;

    
Commands/functions defined: c:ztrick
Requires:uint, upoint, vpset,