AutoLISP® utilities by Herman Mayfarth. Most files listed here are Copyright © by Herman Mayfarth, or have portions Copyright © by Herman Mayfarth. Some files may also include copyrighted code from other sources, including, but not limited to, Autodesk, Inc. All copyrighted code is, and must be, used by permission, in strict accordance with terms of original published copyright notice, and remains the exclusive property of the legal copyright holder.
Herman Mayfarth and Tekton Construction Services provides all programs listed here "as is" and with all faults.
Herman Mayfarth and Tekton Construction Services specifically disclaim any implied warranty of
merchantability or fitness for a particular use. Herman Mayfarth and Tekton Construction Services
do not warrant that the operation of any program listed here will be uninterrupted or error free.
Herman Mayfarth and Tekton Construction Services shall not be liable for any consequential damages due to the use of programs downloaded from this site.
THE USE OF ANY AND ALL PROGRAMS POSTED HERE IS ENTIRELY AT YOUR OWN RISK.
If you have comments on any of these files, or ideas for other utilities, please e-mail me. All constructive comments are welcome.
Owner, Tekton Construction Services
||12.2 k||V 1.2||20 October 2004||R2000 & later||$0.00||
AlignTxt aligns a selection set of TEXT &/or MTEXT entities to a selected LINE, LEADER,
LWPOLYLINE, MTEXT, POLYLINE, or TEXT entity. The entity used for alignment may
be part of a DIMENSION, but not embedded in a block INSERT.
RotTxt rotates a selection set of TEXT &/or MTEXT entities about their respective insertion points by a user specified angle.
Rot180 rotates the selected TEXT/MTEXT by 180º
Supports noun-verb selection for all commands.
||105 k||V 1.3||24 July 2010||R2000 & later||$0.00||
Calculates the slope of a LINE, LWPOLYLINE, or POLYLINE
and creates a two-sided or three-sided bevel symbol which
represents the slope as inches in 12, by selecting an entity and a
location for the bevel symbol. Displays a preview image to aid the drafter when selecting
the location for the bevel symbol. All entities are automatically scaled, and
the program may be configured to automatically place the entities
on a layer of your choice.
The bevel is always calculated with respect to global coordinates, and is always shown as 12 in 12 or less. Fractions are drawn without a horizontal fraction bar, per typical detailing practice in U.S. structural steel fabrication industry.
||94.5 k||V 1.5||25 July 2010||R2000 & later||$0.00||
Creates a lightweight polyline and two MTEXT objects to specify cope dimensions at the end of a steel beam
by picking the endpoints of the cope.
Displays a preview image to aid the drafter when selecting
the location for the copemark. All entities are automatically scaled, and
the program may be configured to automatically place the entities on a layer of your choice.
Copemark is always aligned with the current X-Y axes. Fractions are drawn without a horizontal fraction bar, per typical detailing practice in U.S. structural steel fabrication industry.
|3FONTS.ZIP||3.6 k||V 1.0||24 Feb. 1999||R13 & later||Free||Three bigfonts which display stacked fractions and other special characters. Provided as *.shp files.|
|AXStruct.lsp||14.3 k||V 0.75||8 July 3009||R2000 & later||Free||Implements data structures in AutoLISP using Active X datatypes|
|BEVELQUERY.LSP||6.0 k||V 1.1||1 July 2010||R13(?) & later||Free||Reports the global angle and the bevel as inches in 12 for a selected LINE or a straight segment of a LWPOLYLINE or POLYLINE. Also works with LINEs which are part of a DIMENSION. Version 1.1 is updated to work with AutoCAD 2011. This function is also included in Bevel.|
|BOXTEXT1.ZIP||3.9 k||V 1.0||24 May 2000||R14 & later||Free||Draws a LWPOLY rectangle to enclose each item in a selection set of TEXT &/or MTEXT entities. Allows noun/verb selection, thanks to code posted to Compuserve ACAD forum by Jon Fleming.|
|BUBBLE2.ZIP||7.0 k||V 1.4||27 Feb. 2000||R13 & later||Free||Creates callout bubbles with leader line. Autoscales all entities to DIMSCALE or viewport scale. Includes a suitable bubble block in R13 format which has 2 attributes. Use as supplied, modify to suit or substitute your own.|
|DDIMFIT.ZIP||1.8 k||V 1.0||6 Nov. 1998||R13 & later||Free||Changes the value of DIMFIT for a selection set of DIMENSIONs by selecting the desired value using a dialog box.|
|DDISCALE.ZIP||10.1 k||V 1.0||20 Nov. 1998||R13 & later||Free||Automatically scales blocks which need to display at an identical plotted size, regardless of drawing scale. This is a modification of Autodesk's DDINSERT program.|
|DDTAG.ZIP||43.2 k||V 1.1||20 Nov. 1998||R13||Free||Dialog driven program which automatically scales blocks as they are inserted. The "Autoscaling" feature means the INSERTs will always plot at the same size, regardless of drawing scale. Use supplied blocks or your own selection. This version was written for Release 13 and has not been updated.|
|DIMTAG.LSP||4.7 k||V 0.9||20 July 1999||R12 & later||Free||Substitutes the actual value of the text string in the DIMENSION block for the <> and color codes the dimension line to indicate the substitution has been made. Facilitates distorting lengths without exploding the dimension or manually typing in a dimension value.|
|DIMTXTOR.LSP||4.3 k||V 1.0||24 May 2001||R12(?) & later||Free||Rotates DIMENSION text by 180° for all DIMENSIONS in a selection set. May be useful to correct DIMENSIONs in which the text displays "upside down." Supports noun-verb selection. Tested on R14.01 & A2ki, but may run on earlier versions.|
|FILESIZE.LSP||0.4k||V 1.0||3 May 2003||R2000 ->||Free||Prints size of current drawing file to the command line, using Active X. If you need more extensive information, there is doslib.|
|LDRUPD.LSP||4.8 k||V 1.0||08 Oct. 2000||R14 & later||Free||Updates a selection set of leaders to values set by current leader style. Clears all existing overrides in the selection set. Ignores current dimstyle overrides (i.e. uses style params). Updates leader-associated MTEXT, if it exists.|
|LINELBL2.LSP||3.7 k||V 1.3||2 April 1998||R13 & later||Free||Labels selected lines with their length. Also calculates total length of lines selected. Autoscales text size to plot at height equal to value of DIMTXT. No error handler. Originally written for AutoLISP Programming Challenge #3 run by Randall Maxey on Compuserve Acad Forum, Dec. 1997.|
|LINELGND.LSP||5.3 k||V 1.2||2 Aug. 2001||R13 & later||Free||Labels selected lines with whatever text you supply. Place text above, below or centered on midpoint of lines. Autoscales text size to plot at height equal to value of DIMTXT. Works on lines only, not PLINEs. No error handler.|
|LUMBERXSECT.ZIP||11.4 k||V 1.0||3 Apr. 2005||R2006||Free||Demonstrates programmatic modification of a dynamic block.|
|NJUSTIFY.ZIP||9.6 k||V __||29 Jan. 2003||R12(?) & later||Free||Version of Elise Moss' JUSTIFY.LSP originally posted to Cserve ACAD Forum, reworked by Jon Fleming. Uses image button dialog by H. Mayfarth to select text justification points. This is a slightly improved version of the image_button dialog.|
|NTEXT.ZIP||6.3 k||V 1.1||12 Dec. 1999||R13 & later||Free||Creates so-called (by me) "normalized"
text. Text sizes are based on value of system variables,
thus eliminating the need for the user to calculate the correct "actual"
text size in order to produce the desired plotted size.
The "normal" text size is based on the value of DIMTXT, which is automatically scaled to DIMSCALE or the viewport scale as required.
The function defines a selection of named sizes which are scaled relative to the "normal" size, and allows you to define the scale factors. Thus, your text sizes will always be consistent, without ever having to do any math. All you have to know or care about is the eventual plotted size.
|PICKETS.LSP||11.7 k||V 0.7||8 Aug. 2009||R2000 & later||Free||Layout railing pickets.|
|PLSMINUS.LSP||10.6 k||V 1.0||15 Jan. 2002||R13 & later||Free||For the steel detailer - this will help you to place "plus," "minus,"and "reference" dimensions.|
|PURGENULLGROUPS.LSP||3.0 k||V 1.0||17 Oct 2001||R13-R14||Free||Purges a drawing of all GROUPs which contain no entities.|
|PURGEGROUPS.LSP||7.8 k||V 1.1||3 May 2003||R2000 ->||Free||Purges GROUPs which contain zero or at most one entities. Lists information on all GROUPs in a drawing.|
|RESCALB.LSP||8.3 k||V 1.2||02 May 00||R14 & later||Free||Rescales INSERT entities to "normalized" plotted sizes, which you may specify. Calculates all sizes based on value of system variables, thus eliminating the need for calculation by the user to determine the plotted size.|
|RESCALE.LSP||9.0 k||V 1.2||7 Mar. 1999||R13 & later||Free||Rescales Text and Mtext to "normalized" plotted sizes, which you may specify. Calculates all sizes based on value of system variables, thus eliminating the need for calculation by the user to determine the plotted text size.|
|RotSclSS.LSP||4.4 k||V 1.1||29 Apr. 2001||R13 & later||Free||Commands: RotSS, ScaleSS: Rotate or scale a selection set of INSERTs about their respective insertion points. RotTxt: Rotate a selection set of Text/Mtext about their respective insertion points. FlipSS: mirrors a selection set of INSERTs about their own current Y axes and deletes the original entities.|
|RPN.LSP||8.95 k||V 1.0||9 Aug 2003||R2000 & later||Free||RPN calculator which runs at the command line in text mode.|
|StretchRight.lsp||1.5 k||V 1.1||23 Apr. 2005||R2006||Free||Restores expected behavior of STRETCH command in ACAD 2006|
|Textjust.setup.zip||1.2 mb||V 1.0||26 Jul 2007||R2006 & later||Free||Modeless dialog to change justification of TEXT,MTEXT & ATTDEFs|
|TKTN_LDR.LSP||8.5 k||V 1.2||07 Nov. 1999||R13 & Later||Free||Creates leaders, either forward or reverse, splined or straight, on a layer you specify by configuring a global variable. No hook lines or annotation, just a leader. Entmakes the leaders.|
|VPLOCK.LSP||2 k||V 1.0||1 July. 2004||R2004 & later||Free||Locks/Unlocks Viewports by selection. Faster than using the MVIEW command.|
|XTL2CTR.LSP||3.5 k||V 1.0 <||11 Feb. 2009||R2009 & later||Free||Switches dimension extension lines to CENTER linetype by picking dimension geometry closest to the line to be switched.|
|XTSWITCH.LSP||3.1 k||V 1.2||7 Mar. 1999||R13 & later||Free||Switches dimension extension lines on or off by picking dimension geometry closest to the line to be switched.|
AutoCAD® and AutoLISP® are registered trademarks of Autodesk, Inc. All other trademarks are declared to be the respective property of their rightful owners.
Home| Hot Links
©1999-2021 Herman Mayfarth
Last updated 17 July 2021