AutoCAD LISP 目录
157个已验证例程
业界广泛使用的 AutoLISP 例程精选集。每个条目直接链接到原作者网站，可在其网站查看与下载源代码。
按类别浏览
全部例程
Viewport Outline (VPOutline)
VPOL / VPOA
在当前布局的所有视口边框上自动生成多段线轮廓。VPOA 可对整个布局批量应用。
作者： Lee Mac · Freeware↗
Modelspace to Paperspace (MS2PS)
MS2PS
通过当前激活视口把模型空间对象复制到当前图纸空间布局。
作者： Lee Mac · Freeware↗
Script Writer
SCRIPTWRITER
生成脚本文件,对所选文件夹中的所有 DWG 批量执行相同的脚本命令。
作者： Lee Mac · Freeware↗
Batch Find & Replace Text (BFind)
BFIND
对图纸内所有注释对象(Text、MText、属性、标注替代等)的字符串批量查找替换,支持多关键字。
作者： Lee Mac · Freeware↗
Incremental Numbering Suite (NumInc)
NUMINC
可设置前缀、后缀、位数的递增编号,依次插入到 Text、MText、属性、标注、多重引线中。
作者： Lee Mac · Freeware↗
Layout Field
LF
把引用当前布局名称、序号、总布局数的字段表达式插入所选注释对象中。
作者： Lee Mac · Freeware↗
Elevation Marker
ELEV
连续放置显示指定点 UCS Y 坐标值的多段线标高标记及文字。
作者： Lee Mac · Freeware↗
Copy or Swap Text
CT
把源注释对象的文字内容复制到目标对象,或在两对象间互换内容。
作者： Lee Mac · Freeware↗
Text2MText
T2MT
把所选单行 Text 对象转换为 MText,并保留图层、样式、字高属性。
作者： Lee Mac · Freeware↗
Associative Textbox
ATB
为文字对象生成关联矩形框,内容变更时框大小自动调整。
作者： Lee Mac · Freeware↗
Background Mask
MASK
通过对话框批量设置 MText、多重引线、标注对象的背景遮罩开关、偏移和颜色。
作者： Lee Mac · Freeware↗
Align Text to Curve
ATC
沿所选曲线对象(直线、多段线、圆弧、样条曲线等)以等间距动态排布文字。
作者： Lee Mac · Freeware↗
Length at Midpoint
MIDLEN
在所选对象中点位置自动插入引用该对象长度的字段 MText。
作者： Lee Mac · Freeware↗
Align Text
ALIGNTEXT
将多个 Text、MText 对象按共同基准线对齐并校正原位置。
作者： Lee Mac · Freeware↗
Strikethrough Text
STRIKETHROUGH
对所选 Text、MText 对象应用删除线格式。
作者： Lee Mac · Freeware↗
Label
LABEL
为所选对象生成动态对齐的 MText 标签,并实时调整方向和位置。
作者： Lee Mac · Freeware↗
AutoDim (autodim.lsp)
AD
通过对话框选项(标注方向等)对所选直线、多段线、圆弧自动标注尺寸。
作者： CADTutor Community · Freeware↗
Text Operation
TOP
对 Text、MText、属性对象中的数值进行四则、指数、最小值、最大值运算并以结果替换。
作者： CADTutor Community · Freeware↗
Layer Director
LDON / LDOFF
执行指定命令时自动切换图层,命令结束后恢复原图层。支持 Xref 依赖图层自动分配。
作者： Lee Mac · Freeware↗
Layer Extractor
LAYEREXTRACT
将多个 DWG 文件的图层信息(名称、颜色、线型等)批量导出为 CSV、XML、文本文件。
作者： Lee Mac · Freeware↗
Layers to Drawings
LAYERSTODRAWINGS
把当前图纸的每个图层分别另存为独立的 DWG 文件。
作者： Lee Mac · Freeware↗
Batch Attribute Editor (BATTE)
BATTE
提供对话框,在多个 DWG 中批量查找、修改指定块的属性值。
作者： Lee Mac · Freeware↗
Global Attribute Extractor & Editor (MacAtt)
MACATT
把文件夹内 DWG 的块属性批量导出到 Excel,在电子表格中修改后再回写到原文件。
作者： Lee Mac · Freeware↗
Automatic Block Break
ABB
以块的边界框为基准自动修剪相邻图元,整理块插入区域。
作者： Lee Mac · Freeware↗
Block Counter
COUNT
统计图纸内标准块、动态块数量,输出到命令行、CSV 或 AutoCAD 表格。
作者： Lee Mac · Freeware↗
Dynamic Block Counter
DCOUNT
按动态块各变体(参数组合)分别统计数量。
作者： Lee Mac · Freeware↗
Automatically Label Attributes
LABELATT
为所选属性块、多重引线自动依次填入唯一编号,增删时自动重新编号。
作者： Lee Mac · Freeware↗
Attribute Modification Suite
MVATT / ROATT / EDATT
对具有相同标签的多个块属性批量编辑位置(MVATT)、旋转(ROATT)、属性值(EDATT)。
作者： Lee Mac · Freeware↗
Import Block
IMPORTBLOCK
提供对话框,将外部 DWG 文件中的块定义导入当前图纸。
作者： Lee Mac · Freeware↗
Burst Upgraded
PBURST / NBURST
类似 AutoCAD 原生 BURST 分解块但保留属性文本值,NBURST 可对嵌套块递归处理。
作者： Lee Mac · Freeware↗
Update Titleblock Attributes
UTB
读取 CSV 电子表格数据,自动批量更新图纸中标题栏块的属性值。
作者： Lee Mac · Freeware↗
Copy or Rename Block Reference
COPYBLOCK
复制当前图纸中的单个块参照,或重命名其定义名称。
作者： Lee Mac · Freeware↗
Delete Blocks
DELETEBLOCKS
在图纸中批量删除与所选块名称匹配的全部块参照。
作者： Lee Mac · Freeware↗
Block Overkill
BOVERKILL
检测并删除共享相同插入点(公差内)的重复块参照。Xref 不在处理范围内。
作者： CADTutor Community · Freeware↗
GATTE2 — Global Attribute Edit with Layout Selection
GATTE2
在 AutoCAD 原生 GATTE 基础上增加布局选择选项,可仅对指定布局批量修改属性值。
作者： SteveK (CADTutor) · Freeware↗
Align Objects to Curve
OA
沿所选曲线(直线、多段线、圆弧、圆等)动态排布对象,并按切线方向自动旋转。
作者： Lee Mac · Freeware↗
Quick Mirror
QM
仅通过单个基准点指定镜像轴,快速对称复制对象。
作者： Lee Mac · Freeware↗
Segment Curve
SEGS
把圆弧、圆、椭圆、样条曲线等曲线对象按用户指定分段数转换为直线段多段线。
作者： Lee Mac · Freeware↗
Polyline Outline (Advanced)
POLYOUTLINE
生成所选轻量多段线(LWPolyline)轮廓的核心函数库,支持圆弧、椭圆弧段。
作者： Lee Mac · Freeware↗
Object Break
OB
在两个指定点或与其他对象的交点处分割所选对象,并修改被断开部分的特性。
作者： Lee Mac · Freeware↗
Multiline Justification
MLJUST
在不改变位置的情况下切换多线对象的对齐基准(顶端、零线、底端)。
作者： Lee Mac · Freeware↗
Multi-Polyline
MPL
用标准多段线组合绘制外观类似多线的图元,摆脱多线编辑限制。
作者： Lee Mac · Freeware↗
Circular Wipeout
CWIPE
按指定圆心和半径即刻生成圆形 WIPEOUT(遮罩)。
作者： Lee Mac · Freeware↗
Selection Counter
SELCOUNT
按对象类型统计选择集中对象数量并显示到命令行。
作者： Lee Mac · Freeware↗
Dynamic Information Tool (DInfo)
DINFO
随光标移动实时显示所悬停对象的图层、坐标、长度、面积等属性信息。
作者： Lee Mac · Freeware↗
Length & Area Field
LF / AF
将引用所选对象累计长度(LF)或面积(AF)合计的字段表达式插入注释对象。
作者： Lee Mac · Freeware↗
Total Length & Area
TLEN / TAREA
把所选直线、多段线、圆弧等总长度(TLEN)或闭合对象总面积(TAREA)输出到命令行。
作者： Lee Mac · Freeware↗
Polyline Information
POLYINFO
输出所选 LWPolyline 各段的编号、起点、终点、长度、凸度等,支持 AutoCAD 表格、文本、CSV。
作者： Lee Mac · Freeware↗
Area Label
AREALABEL
在所选闭合边界的形心处放置面积标签,并自动向 AutoCAD 表格添加新行。
作者： Lee Mac · Freeware↗
Multiline Total Length
(run after APPLOAD)
按样式、比例分类汇总所选多线对象的总长度,并以 MText 插入图纸。
作者： CADTutor Community · Freeware↗
Label Pline Intersected Point
INT
在两条多段线的交点处放置块标签,并标注交点识别字符。
作者： CADTutor Community · Freeware↗
Cursor Rotate
CR
按所选对象的切向、法向或输入角度旋转 AutoCAD 十字光标方向。
作者： Lee Mac · Freeware↗
Reset XRef Layers
RESETXREFLAYERS
把当前图纸所有 Xref 依赖图层属性(颜色、线型、可见性等)重置为 Xref 源图纸的值。
作者： Lee Mac · Freeware↗
Copy to XRef
C2X
无需打开源文件即可将所选对象复制到目标 Xref 的源图纸中。
作者： Lee Mac · Freeware↗
XREF Open by Pick
XO
在图纸中点选 Xref 即可在 AutoCAD 中直接打开对应的源 DWG 文件。
作者： CADTutor Community · Freeware↗
XREF Detach by Pick
XRX
在图纸中点选 Xref,立即从当前图纸中将其拆离(Detach)。
作者： CADTutor Community · Freeware↗
Steal from Drawing
STEAL
提供对话框,从其他 DWG 文件中导入图层、块、文字样式、标注样式等命名对象到当前图纸。
作者： Lee Mac · Freeware↗
Copy to Drawings
C2DWG
将所选对象批量复制到多个 DWG 文件,目标文件无需打开即可处理。
作者： Lee Mac · Freeware↗
TabSort
TABSORT
按字母、数字或图纸建筑顺序排列布局选项卡,支持重命名、添加前缀后缀。
作者： Lee Mac · Freeware↗
Delete From Layouts
DELFROMLAYOUTS
从所有布局选项卡或指定布局中批量删除所选对象。
作者： Lee Mac · Freeware↗
Field Formatting Code
FF
在命令行显示所选字段对象的格式代码,便于复用相同格式。
作者： Lee Mac · Freeware↗
LISP Command Logger
LISPLOGON / LISPLOGOFF
按图纸、日期自动把 LISP 命令使用记录写入 CSV 文件。基于反应器后台运行。
作者： Lee Mac · Freeware↗
Get Syntax
GETSYNTAX
解析指定 LISP 文件,列出其中定义的所有命令(defun c:)和函数。
作者： Lee Mac · Freeware↗
Autoloader
AUTOLOADER
自动为所选 LISP 文件生成 autoload 表达式并整合到 acaddoc.lsp 中。
作者： Lee Mac · Freeware↗
Drawing Version
DRAWINGVERSION
在命令行显示当前图纸最后保存时的 AutoCAD 版本信息。
作者： Lee Mac · Freeware↗
Multiple Toggles
(library function)
LISP 开发用 DCL 复选框组对话框生成库,两行代码即可构建多选 UI。
作者： CADTutor Community · Freeware↗
Piping/Ducting for HVAC
PIPE / HVAC
仅输入直径和形状即可自动绘制 2D 暖通风管、管道与分支,支持弯头、管件自动插入。
作者： CADTutor Community · Freeware↗
2D Steel Pipe (Pipe V3)
PIPE / PP
在对话框中选择管道规格(Schedule、口径)和形状(弯头、回弯、三通)即刻生成 2D 钢管图。
作者： ROBP (CADTutor) · Freeware↗
3D Pipe Creator
3DPIPE
根据输入直径沿多段线路径自动生成 3D 实体管道。
作者： ASME (CADTutor) · Freeware↗
Block Manager (AfraLISP)
BLKMAN
通过 INI 配置文件和对话框管理常用块,支持幻灯片缩略图预览后插入的库工具。
作者： Kenny Ramage / AfraLISP contributor · Freeware (no warranty)↗
Block and Attribute Tools — Xtract
XTRACT
扫描所选块的属性定义,同时生成 ATTEXT 所需的模板(.txt)和提示文件,辅助属性提取。
作者： Cadalyst contributor · Freeware↗
Xref2Block
XREF2BLOCK
将外部参照(Xref)提升为当前图纸的内部块(绑定替代),便于单文件交付。
作者： Tim Willey (The Swamp) · Freeware (forum post)↗
Polylines and Blocks 示例程序 (AfraLISP)
PL2BLK
提取多段线边界自动定义并插入块的教学程序,适用于复杂轮廓的块化。
作者： Kenny Ramage · Freeware (tutorial)↗
Multi-Leader with Block Name
MLB
在图纸中挑选块参照,自动生成以块名称为文字内容的多重引线。
作者： Alan Thompson (The Swamp) · Freeware (forum post)↗
Block Count / BOM Helper
BCOUNT
按块名称统计图纸中块参照数量,用于编制材料明细表(BOM)的标准工具。
作者： Cadalyst Hot Tip Harry contributor · Freeware↗
Force Block to Specific Layer
FIXBLKLAYER
强制将已插入块内部图元的图层重新指定为目标图层(或 0 层),以符合图纸标准。
作者： Cadtips contributor · Freeware↗
Redefine Block on Re-insertion
REDEFBLK
再次插入同名外部 DWG 时自动刷新已存在的块定义,实现批量更新。
作者： AfraLISP tutorial · Freeware↗
Layer List Report
LAYLIST
收集当前图纸所有图层的名称、颜色、线型并输出到命令行或文件。
作者： AfraLISP Visual LISP tutorial · Freeware↗
Layer Match-by-Pick
LMATCH
用点选对象的图层批量更改其他多个对象的图层(Express LAYMCH 的 LISP 版)。
作者： The Swamp contributor · Freeware↗
Copy To Layer
CPYTOL
在保留原对象的同时,将所选对象副本复制到指定图层,便于版本比对或记录修改历史。
作者： Cadtips contributor · Freeware↗
Layer Isolate by Pick (pre-Express)
LISO
只保留所选对象所在图层,关闭其余图层,便于复杂图纸的快速审阅。
作者： The Swamp contributor · Freeware↗
Get Layer and Linetype
GLL
单行返回所选对象的当前图层与线型,用于标准检查与调试。
作者： Cadtips contributor · Freeware↗
Freeze Layer by Pick
FZP
即刻冻结点选对象所在图层,以精简画面的轻量程序。
作者： Cadalyst Hot Tip Harry · Freeware↗
Layer Previous (pre-Express LAYERP)
LAYP
一次性恢复上一次的图层状态(开关、冻结、颜色),作为简易回滚工具。
作者： Hot Tip Harry contributor · Freeware↗
Layer Delete with Purge
LAYDEL
将指定图层上所有对象移动或删除,然后清除图层本身的清理程序。
作者： Cadtips contributor · Freeware↗
Ordinate Dimensioning Enhanced
ORDIM
在原生 DIMORD 基础上增强基准点设置与列对齐,适用于机械图纸的坐标标注。
作者： Cadtips contributor (Tip #2138) · Freeware↗
Dimension Associativity Fix
DIMFIX
将分离的标注文字重新关联到对应标注对象(重新关联化),以恢复实测值自动更新。
作者： Hot Tip Harry contributor · Freeware↗
DIMLFAC Watcher
DIMWATCH
检测并提示 DIMLFAC(标注比例因子)变更,防止机械零件图纸比例混用错误。
作者： Cadtips contributor · Freeware↗
Leader Modification (LENDR)
LENDR
交互式调整已有引线对象的端点、箭头、文字偏移的引线修正程序。
作者： Cadtips contributor · Freeware↗
Line Bearing and Distance Label
BEARD
自动标注所选直线、多段线段的长度与方位角,便于机械布局中的轴线标记。
作者： AfraLISP / community reshare · Freeware↗
Text Height Global Fix
TXTHFIX
在全图或指定图层范围内批量统一文字高度,以匹配打印比例。
作者： Hot Tip Harry contributor · Freeware↗
Incremental Number Text
NUMINC
按点击顺序写入递增编号(可选前缀)的编号程序,适合气球、明细表编号。
作者： Cadalyst contributor (original: similar concept to Lee Mac "Numinc") · Freeware↗
Custom Breakline (LSB)
LSB
通过对话框选择插入实心圆棒、空心管两种类型断裂线的机械制图程序。
作者： Cadalyst "Get the Code" 2004-04 · Freeware↗
Batch Plot from List
BPLOT
按文本文件清单中的 DWG,以指定打印设置批量出图,用于 BOM、装配图发布。
作者： Hot Tip Harry contributor · Freeware↗
Arc Arrow
ARCARROW
在圆弧或多段线端部附加箭头头部,用于标注旋转方向、曲线走向。
作者： Cadtips contributor · Freeware↗
Toggle Menu Bar
MBTOG
单命令切换经典菜单栏的开关,偶尔需要菜单时无需改动工作空间即可切换。
作者： Cadtips contributor · Freeware↗
Plot Stamp Updater
PSTAMP
在打印前将路径、文件名、日期自动填入图纸边界外的注释块,作为元数据戳记。
作者： Hot Tip Harry contributor · Freeware↗
Polyline Cumulative Length at Vertex
PLCUM
在多段线每个顶点标注自起点的累计长度文字,用于测量注释。
作者： Community share (Superior Shop Drawings / Hot Tip Harry redistribution) · Freeware↗
Break at Distance
BRKDIST
在所选对象上距离指定点处自动打断,以实现精确分割与插入。
作者： Alan Thompson (The Swamp) · Freeware↗
Break Line Through Plane
BRKPLN
一次性断开所有与指定平面(基准线)相交的直线、多段线,用于剖面图、切割视图。
作者： Chen Qing Jun (The Swamp) · Freeware↗
Explode with Attributes Kept (Burst 替代)
BURSTL
分解块时保留属性值为普通文字(Express BURST 的 LISP 实现)。
作者： Hot Tip Harry contributor · Freeware↗
Redefine Commands Wrapper
REDEF
为标准 AutoCAD 命令(如 ERASE、LINE)嵌入前处理逻辑的命令重定义模板。
作者： AfraLISP tutorial · Freeware↗
Align Text to Object
TXTALIGN
把所选文字按基准直线或圆弧角度旋转对齐,统一图纸注释角度。
作者： Hot Tip Harry contributor · Freeware↗
Object Collections by Type
COLLBYTYPE
把图纸内特定 DXF 实体类型(LINE、CIRCLE、INSERT 等)收集为选择集的教学程序。
作者： AfraLISP · Freeware↗
Quick Select by Layer+Color
QSLC
一次执行基于图层与颜色组合的 QSELECT,把重复的筛选条件宏化。
作者： The Swamp contributor · Freeware↗
Polyline Area Report
PAREA
将所选多条闭合多段线的面积合计与逐一数值记录到命令行与文件,适用于钣金展开、垫片计算。
作者： Hot Tip Harry contributor · Freeware↗
Coordinate Dump
CDUMP
将所选点或顶点的 X/Y/Z 坐标导出为 CSV,与外部测量、检测工具对接。
作者： Cadtips contributor · Freeware↗
Distance Between Two Blocks
BLK2BLK
测量两块参照插入点之间的距离,并将结果以文字标注到图纸。
作者： The Swamp contributor · Freeware↗
UCS by 3 Points Quick
U3P
点选三点即刻重设 UCS 的简易封装,用于在倾斜零件上对齐工作面。
作者： AfraLISP tutorial · Freeware↗
UCS Reset to World
UW
单字母命令把 UCS 重置为 World,多视图作业中快速复位。
作者： Hot Tip Harry contributor · Freeware↗
Xref Binder
XBIND2
以无名称冲突的方式将外部参照绑定(INSERT 方式),便于把交付 DWG 合并为单文件。
作者： The Swamp contributor · Freeware↗
Xref Path Fix
XPATH
将损坏的 Xref 路径批量重定向到当前文件夹或相对路径,项目迁移后恢复使用。
作者： Hot Tip Harry contributor · Freeware↗
BrowseForFolder (Shell Dialog)
BROWSEDIR
在 LISP 中调用 OS 标准文件夹选择对话框,使路径输入 GUI 化的经典工具函数。
作者： Tony Tanzillo · Freeware↗
Catalog LISP Routines
CATLISP
读取当前文件夹所有 .lsp 文件首行注释,生成 FILEREAD.TXT 汇总清单。
作者： Cadtips contributor · Freeware↗
LISP Manager Dialog
LSPMGR
以表格形式显示目录下的 LSP 文件及其描述注释,便于企业内部共享库管理。
作者： Jeffery Sanders (Cadtips) · Freeware↗
Command Library (CCC)
CCC
用对话框列出所有已加载 LSP 文件的自定义命令名称,确认哪些程序仍处于可用状态。
作者： Cadtips contributor · Freeware↗
Profile Import/Export
PROFIO
无需脚本即可用 LISP 对 AutoCAD 用户配置(ARG)进行导入、导出。
作者： AfraLISP tutorial · Freeware↗
Delay Routine
DELAY
在脚本、宏内部暂停指定毫秒数,用于打印、幻灯片时序控制。
作者： Cadtips contributor · Freeware↗
Increment / Decrement Helpers
INCR / DECR
供其他 LISP 代码复用的加一、减一函数,是循环编号工具的构建基元。
作者： Cadtips contributor · Freeware↗
List Manipulation Helpers
(library function set)
列表并集、差集、扁平化等教学级工具,是企业自定义程序开发的基础模块。
作者： AfraLISP · Freeware↗
System Variable Saver
SVARS
保存当前系统变量快照,程序结束时恢复,防止污染用户环境的模板。
作者： AfraLISP tutorial · Freeware↗
Error Trap Template
*ERROR*
LISP 程序通用错误处理器,自动处理 UNDO 标记与系统变量恢复,防止用户中途退出导致状态异常。
作者： AfraLISP / The Swamp common idiom · Freeware↗
DXF Code Reader
DXFRD
把所选实体的 DXF 组码以配对列表形式输出,用于自定义程序开发的调试。
作者： AfraLISP tutorial · Freeware↗
Polyline to Line/Arc Conversion
PL2LA
把 LWPOLYLINE 分解并重组为单独的 LINE/ARC,用于老式 CAM 后处理器的输入准备。
作者： Hot Tip Harry contributor · Freeware↗
Text to MText / MText to Text
T2MT / MT2T
在单行文字与多行文字之间互转,解决注释编辑器偏好差异。
作者： Cadtips contributor · Freeware↗
TotalLayouts
TOTALLAYOUTS (auto reactor setup)
基于反应器把图纸全部布局(Layout)数量自动写入字段变量,布局增删时数值自动更新。
作者： ARKANCE CZ / CAD Studio (CADstudioCZ) · Freeware (no repo LICENSE; official site terms apply)↗
mPDFimport
MPDFIMPORT
把 PDF 文件的多页一次性导入 AutoCAD,转换为布局图纸的多页 PDF 导入工具。
作者： CADstudioCZ · Freeware↗
profiles.lsp
(user-profile management functions)
可通过脚本处理 AutoCAD 用户配置(注册、切换、导入、导出)的工具,适用于多机部署、环境克隆。
作者： JTB World (Jimmy Bergmark) · Freeware↗
vp-outline.LSP
VPOUTLINE
把所选视口(Viewport)的外轮廓以多段线复制到模型空间,便于布局与模型间区域映射。
作者： JTB World · Freeware↗
0 - Title Block Update.lsp
(multiple release commands)
批量更新标题栏(Title Block)块属性,将项目编号、图纸编号、修订号等一次性同步到多张图纸。
作者： alexeispirit · License unspecified (public repository)↗
SelectSimilar (扩展版)
SELECTSIMILAR (extended)
弥补原生 SelectSimilar 功能局限的扩展版,可在 AutoCAD LT 与 Web App 中运行。
作者： CADstudioCZ · Freeware↗
AreaText.lsp (AT / ATC / ATM)
AT, ATC, ATM
把多段线、填充、对象的面积(或长度、周长)以文字字段插入图纸。ATC 放置在几何中心,ATM 放置在多选包围盒中心。
作者： JTB World · Freeware↗
LengthText.lsp
LENGTHTEXT
读取直线、多段线等长度,并以当前单位制放置文字标签,用于工程量汇总、材料计算。
作者： JTB World · Freeware↗
DIM_TO_EQ.LSP
DIM2EQ
把实测标注值批量替换为"EQ"(等分),适用于栏杆、门窗、楼梯分割图中反复出现的等间距注释。
作者： jdsandifer (J. D. Sandifer) · License unspecified↗
所选标注合计 LISP
(name varies by release)
把所选标注对象的测量值求和,并输出到命令行或文字,用于粗算材料尺寸。
作者： officedocworks blog (Korea) · Personal blog release (freeware)↗
面积计算 LISP
(user-defined)
计算闭合区域面积,并在指定坐标处以文字输出,可用于房地产、建筑图纸的简易面积表。
作者： officedocworks blog · Blog release↗
MLEADER 引线输入 LISP
MLEADER wrapper
自动设定多重引线的文字与样式,快速添加风格统一的注释标记。
作者： officedocworks blog · Blog release↗
Layer ON/OFF LISP
LAYON, LAYOFF (user-defined)
把只开关所选图层、全部打开、设为当前图层等操作打包的实用程序。
作者： officedocworks blog · Blog release↗
layer-lw-list.LSP
LAYERLWLIST
把当前图纸的图层及其线宽(Lineweight)清单以表格形式输出到图纸空间,用于图纸审核、标准评审。
作者： JTB World · Freeware↗
layer-list.LSP
LAYERLIST
把图层的名称、颜色、开关、冻结状态以文本列表形式导出,用于提交外部审查资料。
作者： JTB World · Freeware↗
MatchSel
MATCHSEL
MatchProp 的反向功能 — 把所选实体的颜色、图层、线型设为当前默认值,用于后续新建对象。
作者： CAD Forum (ARKANCE CZ) · Freeware↗
CountV1-5.lsp (BlockCounter)
BCOUNT
统计选定区域或整张图纸的静态、动态块数量,输出到命令行、CSV 或 AutoCAD 表格。封装自 Lee Mac 程序。
作者： Lee Mac (original author) / fbrandao2k (redistribution collection) · Lee Mac personal license (non-commercial, attribution)↗
0 - Load blocks.lsp (CIVIL)
LOADBLOCKS
一次性向图纸注册项目标准块库(排水沟、检查井、道路符号),缩短初始化时间。
作者： dtgoitia (David Torralba Goitia) · MIT↗
STRUCTURAL - Create building blocks.lsp
CREATEBB
基于平面图自动生成结构块(柱、梁位置符号),适用于土木结构现场。
作者： dtgoitia · MIT↗
块对象对齐、阵列 LISP (ALIX/ALIY)
ALIX, ALIY
按 X 轴、Y 轴方向对齐与均匀阵列所选块,适用于机械 BOM 布置与图纸整理。
作者： officedocworks blog · Blog release↗
Txt2Ref.LSP
TXT2REF
把图纸中的普通文字替换为同名块参照,适用于将标签、零件标注转为基于块的形式。
作者： CADstudioCZ · Freeware↗
FlipCen
FLIPCEN
以对象自身中心为基准,沿水平、垂直或 Z 轴方向翻转(mirror)对象,无需单独指定中心点。
作者： CAD Forum (ARKANCE CZ) · Freeware (VLX release)↗
0 - Explode polyline.lsp
EXPLODEPL
将多段线分解为各构成段,并区分圆弧与直线分别发送到不同图层的扩展版分解程序。
作者： alexeispirit · Unspecified↗
STRUCTURAL - Live offset.lsp
LIVEOFFSET
以基准对象为参考,实时调整并预览偏移距离,适用于结构布置评审。
作者： dtgoitia · MIT↗
turn-or-break-line
TURNBREAK
遇到与其他线相交的线段时自动打断或转向处理交叉部位,实现电气、管道图纸交叉表示自动化。
作者： Mr-Saxobeat · Unspecified↗
ScaleArea.LSP
SCALEAREA
按目标面积值等比缩放多边形,用于把土地、平面面积调整到特定数值。
作者： CADstudioCZ · Freeware↗
SR (SelectSimilar 韩式封装)
SR
用单字母快捷键 `SR` 调用 SelectSimilar 功能,是韩国实操博客常见的宏式 LISP。
作者： ansenchoi · Blog release↗
tlen.lsp
TLEN
求和所选直线、多段线、圆弧、样条曲线的总长度并显示在命令行,AutoCAD 与 BricsCAD 通用。
作者： fbrandao2k · Unspecified (public)↗
MEASURE.LSP
MEAS
一次性计算任意两点的距离、角度、X/Y 分量并以文字输出,用于栏杆图纸实测值记录。
作者： jdsandifer · Unspecified↗
CenOf.LSP
CENOF
显示或提取所选对象 XY 或 XYZ 中心点(或 osnap center)坐标。
作者： CADstudioCZ · Freeware↗
COG3D.LSP
COG3D
计算并显示 3D 实体、面域的重心(Center of Gravity),用于重量估算、装配平衡校核。
作者： CADstudioCZ · Freeware↗
STRUCTURAL - Coordinate table.lsp
COORDTABLE
自动将所选点对象的坐标(X、Y、Z)生成为表格,用于测量、结构基础点整理。
作者： dtgoitia · MIT↗
各例程版权归原作者所有。请从原作者网站直接查看与下载源代码。使用外部链接须遵守目标网站条款。