Block/Xref Management
| blkscl.lsp | scale block occurances, one or many. (uses ureal ustr) |
| bs.lsp | rescale occurances of a block about insertion points. (uses ustr ureal) |
| bsr.lsp | place a block in the drawing at any orientation (scaled to dimscale). |
| bwbp.lsp | batch wblock purge, used by batp. (uses lbl dlog) |
| cpl.lsp | copies polylines and other entities from blocks and xrefs. |
| rblk.lsp | update or replace an existing block. (uses ustr ukword) |
| rxref.lsp | convert block to xref. (filename must be on search path and = block name) |
| ublk.lsp | update block insertions and preserve attributes in 'our' section symbols. (uses mklayr) |
| wbcln.lsp | make a 'clean' wblock of only what is selected. (not suitable for mspace/pspace drawings) discard changes! |
| wbp.lsp | wblock purge utility (uses lbl undefs-(dlog)) (not suitable for mspace/pspace drawings) |
| xa.lsp | xref attachment function for standard symbols. attach at dimscale, angle=0 (uses ustr) can preset vars pinit or bname. "(pinit)_pe" and bname for drawings, otherwise it will prompt. |
| xrfs.lsp | lists just names of all xrefs attached, one per line. |
| xrswap.lsp | open selected xref for editing. (in which case it becomes the active drawing.) (uses ukword) |
Civil Drafting
| adgrid.lsp | place a standard profile grid array |
| al.lsp | label the area of a closed polyline in ac., sq. yds., sq. ft. |
| asta.lsp | insert vertical lines at mh stations in profile. |
| autod.lsp | collect survey points from *.prn files which have two digit number keys |
| autodsi.lsp | collect survey points from *.txt files which have two digit number keys |
| bandj.lsp | automatic placement of bore & jack casing pipe in profile. |
| bjpln.lsp | automatic placement of bore & jack casing pipe in plan. |
| clab.lsp | place formatted northing and easting coordinates with a leader |
| clbl.lsp | label contour polylines with their elevation. |
| clfen.lsp | place a custom linetype as an anonymous block. (i call it chain-link fence) |
| cloud.lsp | place a revision cloud. |
| curvtbl.lsp | format and place a curve table using current style settings. (uses ukword,upoint,getstyle,dimscl,gvpno, and mklayr) |
| dc.lsp | output depth cut + lf info for mhp generated gravity sewers. |
| depthout.lsp | c:dc - output depth cut + lf for mhp sewers. (commented - latest?) also c:npl |
| diph.lsp | semi-auto placement of d.i.p. hatch pattern in profile. (on mhp sewers) |
| dmlt.lsp | places demolish (double hatch) or abandon (single hatch) linetype |
| dogl.lsp | dogleg existing vertical leaders and text in profiles. |
| epnt.lsp | erase dca point blocks c:epnt or tin lines c:etin |
| fixdca.lsp | find and remove extra softdesk proj_nam blocks. |
| gof.lsp | layer macros gof=grid off, gon=grid on, ptof, pton, ptfrz, ptthw=point.... |
| invd.lsp | place sewer invert line (profile) from station to station. |
| lbld.lsp | label lines and polylines with segment distance. |
| masfen.lsp | place masonry fence linear symbol as anonymous block. |
| mgn.lsp | place a magnetic north symbol (block) in the drawing at any orientation. |
| mh.lsp | insert a single manhole (profile, for use w/ mhp) |
| mhang.lsp | place a fixed radius DegMinSec angle dim. (w/o using dim). fills in leading zeros. (uses uint ldraro.dwg) |
| mhd.lsp | place vertical line @ mh sta. and invert for sewer profile design. |
| mhe.lsp | place a sized ellipse to scale at the station and invert supplied to it. |
| mhp.lsp | automatically draws full sewer profile by pick or key-in of sta./elevs. |
| mhpl.lsp | autolabel manholes along a gravity sewer alignment (plan). |
| mhsl.lsp | insert vertical lines at mh stations in profile. |
| mpn.lsp | place a map north symbol "n" (block) in the drawing. (uses upoint) |
| ntree.lsp | place woodline linear symbol as an anonymous block. |
| plcont.lsp | place polyline with small-angle-deflection segments instead of arcs. |
| plgrid.lsp | place a standard plan grid array beginning at the point you specify |
| plint.lsp | insert polyline vertices at all line intersections with the polyline. |
| plxl.lsp | translate plines w/ arcs to plines w/ mult. straight segments for use |
| pps.lsp | place a sized ellipse to scale at the station and invert supplied. |
| ptdcl.lsp | autodraft using point block descriptions. interactive softdesk "description keys" drafting on demand via dialog utility. (not free - $39 shareware) |
| pucs.lsp | set a ucs to match a profile grid (y is exagerated 10x). |
| siltfen.lsp | place silt fence linear symbol as an anonyumous block. |
| spot.lsp | place spot elevation x's and text. (uses getstyle upoint ustr) |
| ssln.lsp | label line length (decimal feet). (xrefs blocks or current drawing, plines too.) |
| sxel.lsp | place a sized ellipse to scale at the station and invert specified. also places a leader line and formatted text |
| tree.lsp | place woodline linear symbol as an anonymous block. (uses upoint) |
| 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) |
| wirefen.lsp | place a custom linetype as an anonymous block. it allows linear as well as curved sections. (uses upoint ureal) |
| woodfen.lsp | place a custom linetype as an anonymous block. (uses upoint) |
| xing.lsp | place culvert xing profile ellipses, select: align, inv1, inv2, inters. |
|
General Drafting
| angl.lsp | construct a line at an angle from selected line. |
| angline.lsp | construct a line at an angle from selected line. |
| bl.lsp | place a detail call bubble with a leader and text description |
| bpurge.lsp | purge files in batch using a script file. |
| bran.lsp | modify the rotation angle of a selection of block entities. |
| brkl.lsp | place breakline symbol as a polyline. |
| bscl.lsp | place engineering or architectural bar scales by dimscale. |
| bub.lsp | place a detail bubble, single or multiple references. |
| cec.lsp | change entity color, one or many |
| chgplw1.lsp | change the width of a selected set of polylines as a group |
| cl.lsp | constructs a pair of center lines through the center of a circle. |
| cpl.lsp | copy a polyline (even from an xref) starting at selected segment. |
| div.lsp | divides entities with block named tic. |
| dt.lsp | place a detail title bubble with title text, underline and scale text. |
| hdarea.lsp | place a "hiding" solid over a rectangular area (on layer ?-npltfarea). |
| hop.lsp | set temp. ucs before bhatch to control hatch origin. |
| hrail.lsp | draws handrail - pline outline and non-plot pline w/width inside |
| int.lsp | projected intersection point of lines and polylines. (transparent too) |
| lstr.lsp | place text above or below a line or polyline segment. ("above" breaks @ 107^-287^) |
| lt.lsp | place an arrowhead (block name ldraro) at end of a line. |
| ltgen.lsp | modify linetype generation on a selection set of polyline entities. |
| ltp.lsp | convert lines into a polyline. |
| ltwid.lsp | modify linetype width of a selection set polyline entities. |
| ltxt.lsp | place text on polyline or replaced line. (uses mklayr getstyle ustr) |
| measd.lsp | measure distance and preserve variables for use with commands. |
| pln.lsp | place a plan north symbol in the drawing at any orientation. (uses upoint) |
| ploc.lsp | open/close a selection set of polyline entities. |
| plrev.lsp | this routine will reverse the order of vertices in any polyline. it |
| plwid.lsp | modifies linetype generation on a selection set of polyline entities. |
| scs.lsp |
place a section or elevation cut symbol in the drawing at any
orientation. (2 - us army coe and 'our' standard. uses ukword
upoint mklayr
b.dwg b1.dwg seclin.dwg
elvcut.dwg seccut.dwg
sectail.dwg) |
| 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) |
| thinpl.lsp | thin polyline vertices based on user specified angles and distances. (uses uangle udist) |
| xyscl.lsp | modify x, y, and z scale factors. each is specified individually allowing unequal scaling (or alternatively setting them equal). (uses ureal)
|
Layer Management
| ce.lsp | change selection set color and linetype to bylayer |
| clg.lsp | clg doctor (a dialog clg mgmt tool). |
| clgentof.lsp | layer on/off/freeze/thaw tool keyed to clg fields. |
| clplt.lsp | make a selection set of entities on *nplt* layers. (junk?) |
| ctol.lsp | copy a selection set to a specified layer. |
| dattocdf.lsp | export rnlay.dat (rename layers data file) to comma-delimited format. |
| lafrz.lsp | freeze layers of a selection set of entities. |
| laybent.lsp | turn off layers, freeze layers, or set to a layer by entity selection. |
| laylst.lsp | generate a sorted list of layer names in the drawing. |
| mklayr.lsp | save, restore and make layer utilities. (uses modified clg format) |
| mtol.lsp | move a selection set to a specified layer. (uses ustr) |
| relay.lsp | change all entities on a layer to another layer (or a new layer). |
| revs.lsp | revision box layer management by number, i.e., 1, 2, 3... (uses revtxur.dwg) |
| rlayc.lsp | revert layer colors to clg colors. will set colors by character #7 |
| setcolr.lsp | standalone tool for setting color in (modified) clg layernames. (uses ustr mklayr) |
| setminr.lsp | standalone tool for setting minor group in clg layernames. (uses ustr mklayr) |
| setmodf.lsp | standalone tool for setting modifier in clg layernames. (uses ustr mklayr) |
| stdlayr.lsp | convert layer names to standard clg (as modified for color and linetype). (per our standard) |
| vplbent.lsp | vplayer freeze layers, or set to a layer by selecting an entity or entities in the current viewport.
|
Programming
| diesel.lsp | diesel test function (see customization manual) |
| dimscl.lsp | viewport scale subroutine |
| gent.lsp | get entity data. edump, aso or ucsc the data. |
| gent2.lsp | get entity data. edump or aso the data. |
| getstyle.lsp | text style util. style text ht=0 (getstyle "a"), restore ht (getstyle ""). |
| kkelv.lsp | writes mykelv.def to protect all atoms in atoms-family. |
| qsort.lsp | an exercise in recursive sorting (use acad_strlsort, not this) |
| tcl.lsp | raw graphic construction tool for square-to-round transitions (sheet metal) |
| 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. |
| 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. |
| 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. |
| 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. |
| undefs.lsp | "our" startup functions compiled over several years. note: "if it ain't broke, we don't fix it". contains combined ddedit+ddatte, layer mgmt functs, logging functs, etc. |
| 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. |
| 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. |
| 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. |
| uutils.lsp | these functions 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 this function.
|
Text Management
| ahgt.lsp | modify the text height of a selection |
| bstr.lsp | break a text string into two strings and automatically. |
| ctc.lsp | sets case of selected text and of attributes in selected blocks. |
| ded.lsp | auto invoke ddatte, ddedit or dim new based upon selection. |
| dtxt.lsp | custom dtext. auto sets layer attribs and text size. line-under-last option. |
| edbat.lsp | edit *.bat files |
| eddat.lsp | edit *.dat files |
| eddcl.lsp | edit *.dcl files |
| edlisp.lsp | edit *.lsp files |
| edlst.lsp | edit *.lst files |
| edmenu.lsp | edit *.mnu files |
| edmns.lsp | edit *.mns files |
| edout.lsp | edit *.out files |
| edpara.lsp | edit ParaCADD files |
| edscr.lsp | edit *.scr files |
| edsvw.lsp | edit *.svw files (saved views) |
| edtxt.lsp | edit *.txt files |
| gst.lsp | "glue" text strings. all adopt first's properties. |
| gstr.lsp | "glue" text strings. all adopt first's properties. |
| hdtext.lsp | place "hiding" solids over each text string. (on layer ?-nplt?????hs). |
| head.lsp | place heading text (ht=0.175 x dimscale, color=bylayer[yellow]) |
| ml.lsp | place a leader with a vertical line for height of multiline notes |
| mlt.lsp | place leader and single or multi-line text notes. |
| nint.lsp | change a number in (m)any text string(s) by a value. (uses uint ustr) |
| nmhn.lsp | specifically changes integers in "..mh #?" strings by 'value'. (uses uint ) |
| nn.lsp | changes numbers by specified amount. if text is in station format, "+" is |
| remlt.lsp | places leader, line(s) of text and a vertical line w/ multiple lines of text. |
| renote.lsp | reformat and relocate/reinsert multiline text notes (pre-mtext). |
| revtxt.lsp | inserts revtxlr.dwg, revision box for lower right corner of sheet. (see revs) |
| rtext.lsp | search and replace text; copyright 1996, h.c. francis |
| shatr.lsp | show attribute tag and value of picked attribute. |
| styinf.lsp | show current style name, font, height |
| 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) |
| thgt.lsp | modify the text height of a selection set of text entities. (uses 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) |
| tsize.lsp | shows text characteristics. |
| ttlb.lsp | inserts title block (attribs) and xrefs static title info. (attribs in huattlat.dwg, static text in ??????tc.dwg, ??????=6 chars of default dir) |
| twid.lsp | modify the text width factor of a selection set of text entities. |
| txang.lsp | modify the text obliquing angle of a selection set of text entities. (uses ureal |
| txbelo.lsp | place text below a line. prompts for text layer by entity pick. (uses getstyle ustr mklayr) |
| txonl.lsp | place text on a line. (uses getstyle ustr mklayr) |
| txran.lsp | modify the text rotation angle of a selection set of text entities. (uses 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 |
| txtj.lsp | modify the text justification of a selection set of text entities. (uses ukword upoint) |
| txtm.lsp | match text style and height. match layer if standard, else set layer. (uses mklayr) |
| txtsty.lsp | modify the text style of a selection set of text entities. (uses ustr ukword)
|