★★★Autolisp Files（一）（无隐藏，源码可右击另存为）★★★
本帖最后由 CTC 于 2012-4-22 18:56 编辑上网淘得源码，介绍如下
（不搞隐藏，喜欢可直接右击另存为）：
Block/Xref Management
blkscl.lspscale block occurances, one or many. (uses ureal ustr)
bs.lsprescale occurances of a block about insertion points. (uses ustr ureal)
bsr.lspplace a block in the drawing at any orientation (scaled to dimscale).
bwbp.lspbatch wblock purge, used by batp. (uses lbl dlog)
cpl.lspcopies polylines and other entities from blocks and xrefs.
rblk.lspupdate or replace an existing block. (uses ustr ukword)
rxref.lspconvert block to xref. (filename must be on search path and = block name)
ublk.lspupdate block insertions and preserve attributes in 'our' section symbols. (uses mklayr)
wbcln.lspmake a 'clean' wblock of only what is selected. (not suitable for mspace/pspace drawings) discard changes!
wbp.lspwblock purge utility (uses lbl undefs-(dlog)) (not suitable for mspace/pspace drawings)
xa.lspxref 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.lsplists just names of all xrefs attached, one per line.
xrswap.lspopen selected xref for editing. (in which case it becomes the active drawing.) (uses ukword)
Civil Drafting
adgrid.lspplace a standard profile grid array
al.lsplabel the area of a closed polyline in ac., sq. yds., sq. ft.
asta.lspinsert vertical lines at mh stations in profile.
autod.lspcollect survey points from *.prn files which have two digit number keys
autodsi.lspcollect survey points from *.txt files which have two digit number keys
bandj.lspautomatic placement of bore & jack casing pipe in profile.
bjpln.lspautomatic placement of bore & jack casing pipe in plan.
clab.lspplace formatted northing and easting coordinates with a leader
clbl.lsplabel contour polylines with their elevation.
clfen.lspplace a custom linetype as an anonymous block. (i call it chain-link fence)
cloud.lspplace a revision cloud.
curvtbl.lspformat and place a curve table using current style settings. (uses ukword,upoint,getstyle,dimscl,gvpno, and mklayr)
dc.lspoutput depth cut + lf info for mhp generated gravity sewers.
depthout.lspc:dc - output depth cut + lf for mhp sewers. (commented - latest?) also c:npl
diph.lspsemi-auto placement of d.i.p. hatch pattern in profile. (on mhp sewers)
dmlt.lspplaces demolish (double hatch) or abandon (single hatch) linetype
dogl.lspdogleg existing vertical leaders and text in profiles.
epnt.lsperase dca point blocks c:epnt or tin lines c:etin
fixdca.lspfind and remove extra softdesk proj_nam blocks.
gof.lsplayer macros gof=grid off, gon=grid on, ptof, pton, ptfrz, ptthw=point....
invd.lspplace sewer invert line (profile) from station to station.
lbld.lsplabel lines and polylines with segment distance.
masfen.lspplace masonry fence linear symbol as anonymous block.
mgn.lspplace a magnetic north symbol (block) in the drawing at any orientation.
mh.lspinsert a single manhole (profile, for use w/ mhp)
mhang.lspplace a fixed radius DegMinSec angle dim. (w/o using dim). fills in leading zeros. (uses uint ldraro.dwg)
mhd.lspplace vertical line @ mh sta. and invert for sewer profile design.
mhe.lspplace a sized ellipse to scale at the station and invert supplied to it.
mhp.lspautomatically draws full sewer profile by pick or key-in of sta./elevs.
mhpl.lspautolabel manholes along a gravity sewer alignment (plan).
mhsl.lspinsert vertical lines at mh stations in profile.
mpn.lspplace a map north symbol "n" (block) in the drawing. (uses upoint)
ntree.lspplace woodline linear symbol as an anonymous block.
plcont.lspplace polyline with small-angle-deflection segments instead of arcs.
plgrid.lspplace a standard plan grid array beginning at the point you specify
plint.lspinsert polyline vertices at all line intersections with the polyline.
plxl.lsptranslate plines w/ arcs to plines w/ mult. straight segments for use
pps.lspplace a sized ellipse to scale at the station and invert supplied.
ptdcl.lspautodraft using point block descriptions. interactive softdesk "description keys" drafting on demand via dialog utility. (not free - $39 shareware)
pucs.lspset a ucs to match a profile grid (y is exagerated 10x).
siltfen.lspplace silt fence linear symbol as an anonyumous block.
spot.lspplace spot elevation x's and text. (uses getstyle upoint ustr)
ssln.lsplabel line length (decimal feet). (xrefs blocks or current drawing, plines too.)
sxel.lspplace a sized ellipse to scale at the station and invert specified. also places a leader line and formatted text
tree.lspplace woodline linear symbol as an anonymous block. (uses upoint)
unrot.lspunrotate 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.lspplace a custom linetype as an anonymous block. it allows linear as well as curved sections. (uses upoint ureal)
woodfen.lspplace a custom linetype as an anonymous block. (uses upoint)
xing.lspplace culvert xing profile ellipses, select: align, inv1, inv2, inters.
External Program
playcd.lspplay a cd while in autocad (dos)
File Management
flog.lspreads dwg_edit.log and writes parts to file1.log
lbl.lspautomatically stamp drawing with file/user/time/scale information.
ldlsp.lspfile dialog for loading lisp files.
llsp.lspdialog to display/print/save list or load/edit lisp files.
loadx.lspload any *.exp file (specifically for automanager organizer).
log_it.lspadd or create log data (eed) in a drawing. (log_it)
show_log.lspshow_log shows drawing log (eed) printlog to print. (uses log_it to make log)
General Drafting
angl.lspconstruct a line at an angle from selected line.
angline.lspconstruct a line at an angle from selected line.
bl.lspplace a detail call bubble with a leader and text description
bpurge.lsppurge files in batch using a script file.
bran.lspmodify the rotation angle of a selection of block entities.
brkl.lspplace breakline symbol as a polyline.
bscl.lspplace engineering or architectural bar scales by dimscale.
bub.lspplace a detail bubble, single or multiple references.
cec.lspchange entity color, one or many
chgplw1.lspchange the width of a selected set of polylines as a group
cl.lspconstructs a pair of center lines through the center of a circle.
cpl.lspcopy a polyline (even from an xref) starting at selected segment.
div.lspdivides entities with block named tic.
dt.lspplace a detail title bubble with title text, underline and scale text.
hdarea.lspplace a "hiding" solid over a rectangular area (on layer ?-npltfarea).
hop.lspset temp. ucs before bhatch to control hatch origin.
hrail.lspdraws handrail - pline outline and non-plot pline w/width inside
int.lspprojected intersection point of lines and polylines. (transparent too)
lstr.lspplace text above or below a line or polyline segment. ("above" breaks @ 107^-287^)
lt.lspplace an arrowhead (block name ldraro) at end of a line.
ltgen.lspmodify linetype generation on a selection set of polyline entities.
ltp.lspconvert lines into a polyline.
ltwid.lspmodify linetype width of a selection set polyline entities.
ltxt.lspplace text on polyline or replaced line. (uses mklayr getstyle ustr)
measd.lspmeasure distance and preserve variables for use with commands.
pln.lspplace a plan north symbol in the drawing at any orientation. (uses upoint)
ploc.lspopen/close a selection set of polyline entities.
plrev.lspthis routine will reverse the order of vertices in any polyline. it
plwid.lspmodifies linetype generation on a selection set of polyline entities.
scs.lspplace 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.lspcheck all selected solids, find only autocad solid arrows and replace them with arrow blocks, extend lines to their point. (uses ldraro.dwg mklayr)
thinpl.lspthin polyline vertices based on user specified angles and distances. (uses uangle udist)
xyscl.lspmodify x, y, and z scale factors. each is specified individually allowing unequal scaling (or alternatively setting them equal). (uses ureal)
Layer Management
ce.lspchange selection set color and linetype to bylayer
clg.lspclg doctor (a dialog clg mgmt tool).
clgentof.lsplayer on/off/freeze/thaw tool keyed to clg fields.
clplt.lspmake a selection set of entities on *nplt* layers. (junk?)
ctol.lspcopy a selection set to a specified layer.
dattocdf.lspexport rnlay.dat (rename layers data file) to comma-delimited format.
lafrz.lspfreeze layers of a selection set of entities.
laybent.lspturn off layers, freeze layers, or set to a layer by entity selection.
laylst.lspgenerate a sorted list of layer names in the drawing.
mklayr.lspsave, restore and make layer utilities. (uses modified clg format)
mtol.lspmove a selection set to a specified layer. (uses ustr)
relay.lspchange all entities on a layer to another layer (or a new layer).
revs.lsprevision box layer management by number, i.e., 1, 2, 3... (uses revtxur.dwg)
rlayc.lsprevert layer colors to clg colors. will set colors by character #7
setcolr.lspstandalone tool for setting color in (modified) clg layernames. (uses ustr mklayr)
setminr.lspstandalone tool for setting minor group in clg layernames. (uses ustr mklayr)
setmodf.lspstandalone tool for setting modifier in clg layernames. (uses ustr mklayr)
stdlayr.lspconvert layer names to standard clg (as modified for color and linetype). (per our standard)
vplbent.lspvplayer freeze layers, or set to a layer by selecting an entity or entities in the current viewport.
Piping Design
GPDGNGravity/Pressure Pipeline Plan & Profile Design & Drafting application - ARX (not free)
ParaPIPEParametric Piping for mechanical applications - ARX (not free)
pbrk.lspplace pipe break symbol automatically by selecting sides.
psct.lspplace a pipe section symbol (yin-yan, sans the dots) in an arc or circle.
slpb.lspplace a single line pipe break symbol (polyline) at the end of a line.
Plotting
bplot.lspDialog utility creates and optionally executes a script for batch plotting. requires DOSLIB, free from Robert McNeel & Associates. Requires bplots.lsp and bplot.dcl too.
mirplt.lspmirror routine for batch plot limits (if plotter won't do it). quit after!!!
plbl.lspplot label utility. written by: henry c. francis"
Programming
diesel.lspdiesel test function (see customization manual)
dimscl.lspviewport scale subroutine
gent.lspget entity data. edump, aso or ucsc the data.
gent2.lspget entity data. edump or aso the data.
getstyle.lsptext style util. style text ht=0 (getstyle "a"), restore ht (getstyle "").
kkelv.lspwrites mykelv.def to protect all atoms in atoms-family.
qsort.lspan exercise in recursive sorting (use acad_strlsort, not this)
tcl.lspraw graphic construction tool for square-to-round transitions (sheet metal)
uangle.lspthis 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.lspthis 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.lspthis 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.lspthis 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.lspthis 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.lspthis 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.lspthis 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.lspthese 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.lspmodify the text height of a selection
bstr.lspbreak a text string into two strings and automatically.
ctc.lspsets case of selected text and of attributes in selected blocks.
ded.lspauto invoke ddatte, ddedit or dim new based upon selection.
dtxt.lspcustom dtext. auto sets layer attribs and text size. line-under-last option.
edbat.lspedit *.bat files
eddat.lspedit *.dat files
eddcl.lspedit *.dcl files
edlisp.lspedit *.lsp files
edlst.lspedit *.lst files
edmenu.lspedit *.mnu files
edmns.lspedit *.mns files
edout.lspedit *.out files
edpara.lspedit ParaCADD files
edscr.lspedit *.scr files
edsvw.lspedit *.svw files (saved views)
edtxt.lspedit *.txt files
gst.lsp"glue" text strings. all adopt first's properties.
gstr.lsp"glue" text strings. all adopt first's properties.
hdtext.lspplace "hiding" solids over each text string. (on layer ?-nplt?????hs).
head.lspplace heading text (ht=0.175 x dimscale, color=bylayer)
ml.lspplace a leader with a vertical line for height of multiline notes
mlt.lspplace leader and single or multi-line text notes.
nint.lspchange a number in (m)any text string(s) by a value. (uses uint ustr)
nmhn.lspspecifically changes integers in "..mh #?" strings by 'value'. (uses uint )
nn.lspchanges numbers by specified amount. if text is in station format, "+" is
remlt.lspplaces leader, line(s) of text and a vertical line w/ multiple lines of text.
renote.lspreformat and relocate/reinsert multiline text notes (pre-mtext).
revtxt.lspinserts revtxlr.dwg, revision box for lower right corner of sheet. (see revs)
rtext.lspsearch and replace text; copyright 1996, h.c. francis
shatr.lspshow attribute tag and value of picked attribute.
styinf.lspshow current style name, font, height
subt.lspplace 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.lspmodify the text height of a selection set of text entities. (uses ustr)
thgts.lspmodify 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.lspshows text characteristics.
ttlb.lspinserts title block (attribs) and xrefs static title info. (attribs in huattlat.dwg, static text in ??????tc.dwg, ??????=6 chars of default dir)
twid.lspmodify the text width factor of a selection set of text entities.
txang.lspmodify the text obliquing angle of a selection set of text entities. (uses ureal
txbelo.lspplace text below a line. prompts for text layer by entity pick. (uses getstyle ustr mklayr)
txonl.lspplace text on a line. (uses getstyle ustr mklayr)
txran.lspmodify the text rotation angle of a selection set of text entities. (uses ureal)
txtin.lspimport 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.lspmodify the text justification of a selection set of text entities. (uses ukword upoint)
txtm.lspmatch text style and height. match layer if standard, else set layer. (uses mklayr)
txtsty.lspmodify the text style of a selection set of text entities. (uses ustr ukword)
View Management
dp.lspdynamic zoom/pan trick. best for simpler drawings.
gvpno.lsp"get viewport number" subroutine, expects CLG layer name to specify view number, e.g. C-VI##7NPLT specifies view number ##. Will offer to put non-conforming viewport on conformed layer. Purpose is to automate layer segregation between multiple viewports (sets up annotation for ISOVP) More about CLG
invdisp.lspreverse/restore the display status of all layers (c:invdisp, c:rstdisp).
isovp.lspisolate current vport annotation (freeze other layers *vi0#* using vplayer)
stat.lspmodemacro - shows full (path)(filename) ortho snap tablet pspace
vstat.lspreports Viewport stats: hideplot on/off; scale; layer name. Prompts to toggle hideplot status.
sview.lspdialog - save and restore views by name. preserves layer settings and view area as eed. (uses sview.dcl)
" Z" Management
newz.lspnewz: set "z"; matz: match "z"; showz display "z"; offz set "z" +- reference "z"
noz.lspset "z" values of any line to zero.
ze.lspset z value of a selection set to 0. (uses newz)
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 CTC的微博 dwg001 发表于 2012-4-25 07:53
挺好，这么多内容上传不易，楼主辛苦了。
－－－把下载内容打包上传，不介意吧？
大神把应用程序说明翻译一下吧，这样好查找，也能知道是啥子程序
楼主太强大了！收藏了。 楼主太强大了！收藏了。 谢谢，可惜都是英文，都看花眼了~~~~ 要是有E文功底的同学翻译一下就大功德了 搞不懂是搞什么的…顶一下 楼主真是辛苦了，得上传多长时间啊！！！
是Lee-mac编的吗？ 路过就要强烈支持下！ www.ParaCADD.com
有无数的源码 唉，专业六级的英语底子看起来也累的，汗 能不能打个包啊