LISP命令汇总

构造线xline指定点或[水平(H)/垂直(V)/角度(A)/二等分(B)/偏移(O)]: h 指定通过点:多段线pline指定起点: 指定下一个点或[圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:正多边形polygon 输入边的数目<4>: 指定正多边形的中心点或[边(E)]: 输入选项[内接于圆(I)/外切于圆(C)] <I>: 指定圆的半径:矩形rectang指定第一个角点或[倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]: 指定另一个角点或[面积(A)/尺寸(D)/旋转(R)]:圆弧arc指定圆弧的起点或[圆心(C)]: 指定圆弧的第二个点或[圆心(C)/端点(E)]: 指定圆弧的端点:圆circle指定圆的圆心或[三点(3P)/两点(2P)/切点、切点、半径(T)]: 指定圆的半径或[直径(D)]:修订云线Revcloud最小弧长: 15最大弧长: 15样式: 普通指定起点或[弧长(A)/对象(O)/样式(S)] <对象>: 沿云线路径引导十字光标...反转方向[是(Y)/否(N)] <否>:样条曲线spline指定第一个点或[对象(O)]: 指定下一点: 指定下一点或[闭合(C)/拟合公差(F)] <起点切向>:指定起点切向: 指定端点切向:椭圆ellipse指定椭圆的轴端点或[圆弧(A)/中心点(C)]: 指定轴的另一个端点: 指定另一条半轴长度或[旋转(R)]: 椭圆弧ellipse指定椭圆的轴端点或[圆弧(A)/中心点(C)]: a 指定椭圆弧的轴端点或[中心点(C)]: 指定轴的另一个端点: 指定另一条半轴长度或[旋转(R)]: 指定起始角度或[参数(P)]: 指定终止角度或[参数(P)/包含角度(I)]:插入块insert 块定义block 创建多个点对象point 图案填充hatch 渐变色gradient 面域region 表格table 多行文字mtext 当前文字样式: "Standard"文字高度: 2.5 注释性: 否指定第一角点: 指定对角点或[高度(H)/对正(J)/行距(L)/旋转(R)/样式(S)/宽度(W)/栏(C)]:删除erase 分解explode 前置draworder复制copy 选择对象: 找到 1 个当前设置: 复制模式= 多个指定基点或[位移(D)/模式(O)] <位移>: 指定第二个点或[退出(E)/放弃(U)] <退出>: 指定第二个点或[退出(E)/放弃(U)] <退出>:镜像mirror 选择对象: 1 个指定镜像线的第一点: 指定镜像线的第二点: 要删除源对象吗？[是(Y)/否(N)] <N>: y阵列array 选择对象: 找到 1 个偏移offset 当前设置: 删除源=否图层=源OFFSETGAPTYPE=0指定偏移距离或[通过(T)/删除(E)/图层(L)] <通过>: 指定第二点:选择要偏移的对象，或[退出(E)/放弃(U)] <退出>: 移动move选择对象: 找到 1 个指定基点或[位移(D)] <位移>: 指定第二个点或<使用第一个点作为位移>:旋转rotate UCS 当前的正角方向: ANGDIR=逆时针ANGBASE=0选择对象: 找到1 个指定基点: 指定旋转角度，或[复制(C)/参照(R)] <0>:缩放scale 选择对象: 找到 1 个指定基点: 指定比例因子或[复制(C)/参照(R)] <1.0000>:拉伸stretch以交叉窗口或交叉多边形选择要拉伸的对象...选择对象: 找到1 个指定基点或[位移(D)] <位移>: 指定第二个点或<使用第一个点作为位移>:修剪trim选择剪切边... 选择对象或<全部选择>: 找到1 个选择要修剪的对象，或按住Shift 键选择要延伸的对象，或[栏选(F)/窗交(C)/投影(P)/边(E)/删除(R)/放弃(U)]:延伸extend 当前设置:投影=UCS，边=无选择边界的边... 选择对象或<全部选择>: 找到 1 个选择要延伸的对象，或按住Shift 键选择要修剪的对象，或[栏选(F)/窗交(C)/投影(P)/边(E)/放弃(U)]: 指定对角点:打断于点break选择对象: 指定第二个打断点或[第一点(F)]: _f 指定第一个打断点: 指定第二个打断点: @打断break 选择对象: 指定第二个打断点或[第一点(F)]: 需要点或选项关键字。

超经典CAD lisp程序集锦如果您使用 AutoCAD,下面的内容对您一定有帮助。

在某些方面能大大提高您的工作效率。

下面的程序均以源程序方式给出，您可以使用、参考、修改它。

bg.lsp --- 表格自动生成asc.lsp --- 将文本文件内容写入图中，字符是单个的wf.lsp --- 将图中字符写入磁盘exstr.lsp --- 将字符串分解成单字pgtxt.lsp --- 将字符合成字符串pb.lsp --- 通过给出长度将字符串分成两个串cht.lsp --- 直接修改文字内容或块属性ct.lsp --- 对数字串进行加减chh.lsp --- 直接修改文字高度chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) chst.lsp --- 直接修改文字字体txt.shx --- 修改后的标准txt.shx文件。

(kuozhan.sld为增强的内容幻灯片)tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小untiao.lsp --- 上两个程序的复原sht.lsp --- 在图中查找字符串zhuang.lsp --- 桩点及钎探号绘制（勘测图）dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)详细内容及附件下载请浏览北纬服务论坛/thread-2724-1-1.htmlCAD快捷键大全F1: 获取帮助F2: 实现作图窗和文本窗口的切换F3: 控制是否实现对象自动捕捉F4: 数字化仪控制F5: 等轴测平面切换F6: 控制状态行上坐标的显示方式F7: 栅格显示模式控制F8: 正交模式控制F9: 栅格捕捉模式控制F10: 极轴模式控制F11: 对象追踪式控制Ctrl+B: 栅格捕捉模式控制(F9)刚刚看了一下dra:半径标注ddi:直径标注dal:对齐标注dan:角度标注Ctrl+C: 将选择的对象复制到剪切板上Ctrl+F: 控制是否实现对象自动捕捉(f3) Ctrl+G: 栅格显示模式控制(F7)Ctrl+J: 重复执行上一步命令Ctrl+K: 超级链接Ctrl+N: 新建图形文件Ctrl+M: 打开选项对话框AA: 测量区域和周长(area)AL: 对齐(align)AR: 阵列(array)AP: 加载*lsp程系AV: 打开视图对话框(dsviewer) SE: 打开对相自动捕捉对话框ST: 打开字体设置对话框(style) SO: 绘制二围面( 2d solid) SP: 拼音的校核(spell)SC: 缩放比例 (scale)SN: 栅格捕捉模式设置(snap) DT: 文本的设置(dtext)DI: 测量两点间的距离OI：插入外部对相Ctrl+1: 打开特性对话框Ctrl+2: 打开图象资源管理器Ctrl+6: 打开图象数据原子Ctrl+O: 打开图象文件Ctrl+P: 打开打印对说框Ctrl+S: 保存文件Ctrl+U: 极轴模式控制(F10)Ctrl+v: 粘贴剪贴板上的内容Ctrl+W: 对象追踪式控制(F11) Ctrl+X: 剪切所选择的内容Ctrl+Y: 重做Ctrl+Z: 取消前一步的操作A: 绘圆弧B: 定义块C: 画圆D: 尺寸资源管理器E: 删除F: 倒圆角G: 对相组合H: 填充I: 插入S: 拉伸T: 文本输入W: 定义块并保存到硬盘中L: 直线M: 移动X: 炸开V: 设置当前坐标U: 恢复上一次操做O: 偏移P: 移动Z: 缩放显示降级适配（开关）【O】适应透视图格点【Shift】+【Ctrl】+【A】排列【Alt】+【A】角度捕捉(开关) 【A】动画模式 (开关) 【N】改变到后视图【K】背景锁定(开关) 【Alt】+【Ctrl】+【B】前一时间单位【.】下一时间单位【,】改变到上（Top）视图【T】改变到底(Bottom)视图【B】改变到相机(Camera)视图【C】改变到前（Front）视图【F】改变到等大的用户(User)视图【U】改变到右(Right)视图【R】改变到透视（Perspective）图【P】循环改变选择方式【Ctrl】+【F】默认灯光(开关) 【Ctrl】+【L】删除物体【DEL】当前视图暂时失效【D】是否显示几何体内框(开关) 【Ctrl】+【E】显示第一个工具条【Alt】+【1】专家模式&#0;全屏(开关) 【Ctrl】+【X】暂存(Hold)场景【Alt】+【Ctrl】+【H】取回(Fetch)场景【Alt】+【Ctrl】+【F】冻结所选物体【6】跳到最后一帧【END】跳到第一帧【HOME】显示/隐藏相机（Cameras）【Shift】+【C】显示/隐藏几何体(Geometry) 【Shift】+【O】显示/隐藏网格(Grids) 【G】显示/隐藏帮助(Helpers)物体【Shift】+【H】显示/隐藏光源(Lights) 【Shift】+【L】显示/隐藏粒子系统(Particle Systems) 【Shift】+【P】显示/隐藏空间扭曲(Space Warps)物体【Shift】+【W】锁定用户界面(开关) 【Alt】+【0】匹配到相机(Camera)视图【Ctrl】+【C】材质(Material)编辑器【M】最大化当前视图 (开关) 【W】脚本编辑器【F11】新的场景【Ctrl】+【N】法线(Normal)对齐【Alt】+【N】向下轻推网格小键盘【-】向上轻推网格小键盘【+】NURBS表面显示方式【Alt】+【L】或【Ctrl】+【4】NURBS调整方格1 【Ctrl】+【1】NURBS调整方格2 【Ctrl】+【2】NURBS调整方格3 【Ctrl】+【3】偏移捕捉【Alt】+【Ctrl】+【空格】打开一个MAX文件【Ctrl】+【O】平移视图【Ctrl】+【P】交互式平移视图【I】放置高光(Highlight) 【Ctrl】+【H】播放/停止动画【/】快速(Quick)渲染【Shift】+【Q】回到上一场景*作【Ctrl】+【A】回到上一视图*作【Shift】+【A】撤消场景*作【Ctrl】+【Z】撤消视图*作【Shift】+【Z】刷新所有视图【1】用前一次的参数进行渲染【Shift】+【E】或【F9】渲染配置【Shift】+【R】或【F10】在xy/yz/zx锁定中循环改变【F8】约束到X轴【F5】约束到Y轴【F6】约束到Z轴【F7】旋转(Rotate)视图模式【Ctrl】+【R】或【V】保存(Save)文件【Ctrl】+【S】透明显示所选物体(开关) 【Alt】+【X】选择父物体【PageUp】选择子物体【PageDown】根据名称选择物体【H】选择锁定(开关) 【空格】减淡所选物体的面(开关) 【F2】显示所有视图网格(Grids)(开关) 【Shift】+【G】显示/隐藏命令面板【3】显示/隐藏浮动工具条【4】显示最后一次渲染的图画【Ctrl】+【I】显示/隐藏主要工具栏【Alt】+【6】显示/隐藏安全框【Shift】+【F】*显示/隐藏所选物体的支架【J】显示/隐藏工具条【Y】/【2】百分比(Percent)捕捉(开关) 【Shift】+【Ctrl】+【P】打开/关闭捕捉(Snap) 【S】循环通过捕捉点【Alt】+【空格】声音(开关) 【\】间隔放置物体【Shift】+【I】改变到光线视图【Shift】+【4】循环改变子物体层级【Ins】子物体选择(开关) 【Ctrl】+【B】帖图材质(Texture)修正【Ctrl】+【T】加大动态坐标【+】减小动态坐标【-】激活动态坐标(开关) 【X】精确输入转变量【F12】全部解冻【7】根据名字显示隐藏的物体【5】刷新背景图像(Background) 【Alt】+【Shift】+【Ctrl】+【B】显示几何体外框(开关) 【F4】视图背景(Background) 【Alt】+【B】用方框(Box)快显几何体(开关) 【Shift】+【B】打开虚拟现实数字键盘【1】虚拟视图向下移动数字键盘【2】虚拟视图向左移动数字键盘【4】虚拟视图向右移动数字键盘【6】虚拟视图向中移动数字键盘【8】虚拟视图放大数字键盘【7】虚拟视图缩小数字键盘【9】实色显示场景中的几何体(开关) 【F3】全部视图显示所有物体【Shift】+【Ctrl】+【Z】*视窗缩放到选择物体范围（Extents）【E】缩放范围【Alt】+【Ctrl】+【Z】视窗放大两倍【Shift】+数字键盘【+】放大镜工具【Z】视窗缩小两倍【Shift】+数字键盘【-】根据框选进行放大【Ctrl】+【w】视窗交互式放大【[】视窗交互式缩小【]】轨迹视图加入(Add)关键帧【A】前一时间单位【<】下一时间单位【>】编辑(Edit)关键帧模式【E】编辑区域模式【F3】编辑时间模式【F2】展开对象（Object）切换【O】展开轨迹（Track）切换【T】函数(Function)曲线模式【F5】或【F】锁定所选物体【空格】向上移动高亮显示【↓】向下移动高亮显示【↑】向左轻移关键帧【←】向右轻移关键帧【→】位置区域模式【F4】回到上一场景*作【Ctrl】+【A】撤消场景*作【Ctrl】+【Z】用前一次的配置进行渲染【F9】渲染配置【F10】向下收拢【Ctrl】+【↓】向上收拢【Ctrl】+【↑】材质编辑器用前一次的配置进行渲染【F9】渲染配置【F10】撤消场景*作【Ctrl】+【Z】示意(Schematic)视图下一时间单位【>】前一时间单位【<】回到上一场景*作【Ctrl】+【A】撤消场景*作【Ctrl】+【Z】Active Shade绘制(Draw)区域【D】渲染(Render) 【R】锁定工具栏(泊坞窗) 【空格】视频编辑加入过滤器(Filter)项目【Ctrl】+【F】加入输入(Input)项目【Ctrl】+【I】加入图层(Layer)项目【Ctrl】+【L】加入输出(Output)项目【Ctrl】+【O】加入(Add)新的项目【Ctrl】+【A】加入场景(Scene)事件【Ctrl】+【s】编辑(Edit)当前事件【Ctrl】+【E】执行(Run)序列【Ctrl】+【R】新(New)的序列【Ctrl】+【N】撤消场景*作【Ctrl】+【Z】NURBS编辑CV 约束法线(Normal)移动【Alt】+【N】CV 约束到U向移动【Alt】+【U】CV 约束到V向移动【Alt】+【V】显示曲线(Curves) 【Shift】+【Ctrl】+【C】显示控制点(Dependents) 【Ctrl】+【D】显示格子(Lattices) 【Ctrl】+【L】NURBS面显示方式切换【Alt】+【L】显示表面(Surfaces) 【Shift】+【Ctrl】+【s】显示工具箱(Toolbox) 【Ctrl】+【T】显示表面整齐(Trims) 【Shift】+【Ctrl】+【T】根据名字选择本物体的子层级【Ctrl】+【H】锁定2D 所选物体【空格】选择U向的下一点【Ctrl】+【→】选择V向的下一点【Ctrl】+【↑】选择U向的前一点【Ctrl】+【←】选择V向的前一点【Ctrl】+【↓】根据名字选择子物体【H】柔软所选物体【Ctrl】+【s】转换到Curve CV 层级【Alt】+【Shift】+【Z】转换到Curve 层级【Alt】+【Shift】+【C】转换到Imports 层级【Alt】+【Shift】+【I】转换到Point 层级【Alt】+【Shift】+【P】转换到Surface CV 层级【Alt】+【Shift】+【V】转换到Surface 层级【Alt】+【Shift】+【S】转换到上一层级【Alt】+【Shift】+【T】转换降级【Ctrl】+【X】FFD转换到控制点(Control Point)层级【Alt】+【Shift】+【C】到格点(Lattice)层级【Alt】+【Shift】+【L】到设置体积(Volume)层级【Alt】+【Shift】+【S】转换到上层级【Alt】+【Shift】+【T】打开的UVW贴图进入编辑(Edit)UVW模式【Ctrl】+【E】调用*.uvw文件【Alt】+【Shift】+【Ctrl】+【L】保存UVW为*.uvw格式的文件【Alt】+【Shift】+【Ctrl】+【S】打断(Break)选择点【Ctrl】+【B】分离(Detach)边界点【Ctrl】+【D】过滤选择面【Ctrl】+【空格】水平翻转【Alt】+【Shift】+【Ctrl】+【B】垂直(Vertical)翻转【Alt】+【Shift】+【Ctrl】+【V】冻结(Freeze)所选材质点【Ctrl】+【F】隐藏(Hide)所选材质点【Ctrl】+【H】全部解冻(unFreeze) 【Alt】+【F】全部取消隐藏(unHide) 【Alt】+【H】从堆栈中获取面选集【Alt】+【Shift】+【Ctrl】+【F】从面获取选集【Alt】+【Shift】+【Ctrl】+【V】锁定所选顶点【空格】水平镜象【Alt】+【Shift】+【Ctrl】+【N】垂直镜象【Alt】+【Shift】+【Ctrl】+【M】水平移动【Alt】+【Shift】+【Ctrl】+【J】垂直移动【Alt】+【Shift】+【Ctrl】+【K】平移视图【Ctrl】+【P】象素捕捉【S】平面贴图面/重设UVW 【Alt】+【Shift】+【Ctrl】+【R】水平缩放【Alt】+【Shift】+【Ctrl】+【I】垂直缩放【Alt】+【Shift】+【Ctrl】+【O】移动材质点【Q】旋转材质点【W】等比例缩放材质点【E】焊接(Weld)所选的材质点【Alt】+【Ctrl】+【W】焊接(Weld)到目标材质点【Ctrl】+【W】Unwrap的选项(Options) 【Ctrl】+【O】更新贴图(Map) 【Alt】+【Shift】+【Ctrl】+【M】将Unwrap视图扩展到全部显示【Alt】+【Ctrl】+【Z】框选放大Unwrap视图【Ctrl】+【Z】将Unwrap视图扩展到所选材质点的大小【Alt】+【Shift】+【Ctrl】+【Z】缩放到Gizmo大小【Shift】+【空格】缩放(Zoom)工具【Z】反应堆(Reactor)建立(Create)反应(Reaction) 【Alt】+【Ctrl】+【C】删除(Delete)反应(Reaction) 【Alt】+【Ctrl】+【D】编辑状态(State)切换【Alt】+【Ctrl】+【s】设置最大影响(Influence) 【Ctrl】+【I】设置最小影响(Influence) 【Alt】+【I】设置影响值(Value) 【Alt】+【Ctrl】+【V】ActiveShade (Scanline)初始化【P】更新【U】宏编辑器累积计数器【Q】[color=#800080]AutoCAD快捷键快捷键执行命令命令说明3A 3DARRAY 三维阵列3DO 3DORBIT 三维动态观察器3F 3DFACE 三维表面3P 3DPOLY 三维多义线A ARC 圆弧ADC ADCENTER AutoCAD设计设计中心AA AREA 面积AL ALIGN 对齐（适用于二维和三维）AP APPLOAD 加载、卸载应用程序AR ARRAY 阵列*AR *ARRAY 命令式阵列ATT ATTDEF 块的属性*ATT *ATTDEF 命令式块的属性ATE ATTEDIT 编辑属性ATE *ATTEDIT 命令式编辑属性ATTE *ATTEDIT 命令式编辑属性B BLOCK 对话框式图块建立*B *BLOCK 命令式图块建立BH BHATCH 对话框式绘制图案填充BO BOUNDARY 对话框式封闭边界建立*BO *BOUNDARY 命令式封闭边界建立BR BREAK 打断C CIRCLE 圆CHA PROPERTIES 对话框式对象特情修改*CH CHANGE 命令式特性修改CHA CHAMFER 倒角COL COLCR 对话框式颜色设定COLOUR COLCR 对话框式颜色设定CO COPY 复制D DIMSTYLE 尺寸样式设定DAL DIMALIGNED 对齐式线性标注DAN DIMANGULAR 角度标注DBA DIMBASELINE 基线式标注DBC DBCONNECT 提供到外部数据库表的接口DCE DIMCENTER 圆心标记DCO DIMCONTINUE 连续式标注DDA DIMDISASSOCIATE 标注不关联DDI DIMDIAMETER 直径标注DED DIMEDIT 尺寸修改DI DIST 测量两点间距离DIV DIVIDE 等分布点DLI DIMLINEAR 线性标注DO DONUT 双圆DOR DIMORDIMATE 坐标式标注DOV DIMOVERRIDE 更新标注变量DR DRAWORDER 显示顺序DRA DIMRADIUS 半径标注DRE DIMREASSOCIATE 标注关联DS DSETTINGS 捕捉设定DST DIMSTYLE 尺寸样式设定DT DTEXT 写入文字DV DVIEW 定义平行投影或透视投影视图E ERASE 删除对象ED DDEDIT 单行文字修改EL ELLIPSE 椭圆EX EXTEND 延伸EXIT QUIT 退出EXP EXPORT 输出文件EXT EXTRUDE 将二维对象拉伸为三、维维实体F FILLET 倒圆角FI FILTER 过滤器G GROUP 对话框式选择集设定*G *GROUP 命令式选择集设定GR DDGRIPS 夹点控制设定H BHATCH 对话框式绘制图案填充*H HATCH 命令式绘制图案填充HE HATCHEDIT 编辑图案填充HI HIDE 消隐I INSERT 对话框式插入图块*I *INSERT 命令式插入图块IAD IMAGEADJUST 图像调整IAT IMAGEATTACH 并入图像ICL IMAGECLIP 截取图像IM IMAGE 对话框式附着图像*IM *IMAGE 命令式贴附图像IMP IMPORT 输入文件IN INTERSECT 将相交实体或面域部分创建INF IMTERFERE 由共同部分创建三维实体IO INSERTOBJ 插入对象L LINE 画线LA LAYER 对话框式图层控制*LA *LAYER 命令式图层控制LE QLEADER 引导线标注LRN LENGTHEN 长度LI LIST 查询对象文件LINEWEIGHT LWEIGHT 线宽LO *LAYOUT 配置设定LS LIST 查询对象文件LT LINETYPE 对话框式线型加载*LT *LINETYPE 命令式线型加载LTYPE LINETYPE 对话框式线型加载*LTYPE *LINETYPE 命令式线型加载LTS LTSCALE 设置线型比例因子LW LWEIGHT 线宽设定M MOVE 搬移对象MA MATCHPROP 对象特性复制ME MEASURE 量测等距布点MI MIRROR 镜像对象ML MLINE 绘制多线MO PROPERTIES 对象特性修改MS MSPACE 从图纸空间转换支模型空间MT MTEXT 多行文字写入MV MVIEW 浮动视口O OFFSET 偏移复制OP POPTIONS 选项ORBIT 3DORBIT 三维动态观察器OS OSNAP 对话框式对象捕捉设定*OS *OSNAP 命令式对象捕捉设定P PAN 即时平移*P *PAN 两点式平移控制PA PASTESPEC 选择性粘贴PARTIALOPEN *PASTESPEC 将指定的对象加载对新图形中PE PEDIT 编辑多义线PL PLINE 绘制多义线PO POINT 绘制点POL POLYGON 绘制正多边型PR OPTIONS 选项PRCLOSE PROPERTIESCLOSE 关闭对象特性修改对话框PROPS PROPERTIES 对象特性修改PRE PREVIEW 输出预览PRINT PLOT 打印输出PS PSPACE 图线空间PTW PUBLISHTIWEB 发送支网页PU PURGE 肃清无用对象*PU *PURGE 命令式肃清无用对象R REDRAW 重绘RA REDRAWALL 所有视口重绘RE REGEN 重新生成REA REGENALL 所有视口重新生成REC RECTANGLE 绘制矩形REG REGION 三维面域REN REBAME 对话框式重命名*REN *REBAME 命令式重命名REV REVOLVE 利用绕轴旋转二维对象创建三维体RM DDRMODES 打印辅助设定RO ROTATE 旋转RPR RPREF 设置渲染参考RR RENDER 渲染S STRETCH 拉伸SC SCALE 比例缩放SCR SCRIPT 调入剧本文件SE DSETTINGS 捕捉设定SEC DECTION 通过使平面与实体相交创建面域SET SETVAR 设定变量值SHA SHADE 着色SL SLICE 用平面剖切实体SN SNAP 捕捉控制SO SOLID 填实的三边形或四边形SP SEELL 拼字SPL SPLINE 样条曲线SPE SPLINEDIT 编辑样条曲线ST STYLE 字型设定SU SUBTRACT 差集运算T MTEXT 对话框式多行文字写入*T *MTEXT 命令式多行文字写入TA TABLET 数字化仪规划TH THICKNESS 厚度TI TILEMODE 图线空间和模型空间设定切换TO TOOLBAR 工具栏设定TOL TOLERANCE 公差符号标注TOR TORUS 圆环TR TRIM 修剪UC DDUCS 用户坐标系UCP DDUCSP 设置正交窗口UN UNITS 对话框式单位设定*UN *UNITS 命令式单位设定UNI UNION 并集运算V VIEW 对话框式视图控制*V *VIEW 视图控制VP DDVPOPINT 视点*VP WPOINT 命令式视点W WBLOCK 对话框式图块写出*W *WBLOCK 命令式图块写出WE WEDGE 三维楔体X EXPLODE 分解XA XATTACH 贴附外部参考XB XBIND 并入外部参考*XB *XBIND 命令式并入外部参考XC XCLIP 截取外部参考XL XLINE 构造线XR XREF 对话框式外部参考控制*XR *XREF 命令式外部参考控制Z ZOOM 视口缩入控制CTRL+A 编组CTRL+B 捕捉CTRL+C 复制CTRL+D 坐标CTRL+E 等轴测平面CTRL+F 对象捕捉CTRL+G 删格CTRL+J CTRL+SHIFT+S 图形另存为CTRL+K 超级链接LCTRL+L 正交CTRL+M 帮助CTRL+N 新建CTRL+O 打开CTRL+P 打印CTRL+Q 退出CTRL+S 保存CTRL+T 数字化仪CTRL+U CTRL+F10 极轴CTRL+V 粘贴CTRL+W 对象跟踪CTRL+X 剪切CTRL+z 退回CTRL+1 对象特性CTRL+2 CAD设计中心CTRL+6 数据源CTRL+F6 切换当前窗口CTRL+F8 运行部件CTRL+SHIFT+C 带基点复制快捷键执行命令命令说明3A 3DARRAY 三维阵列3DO 3DORBIT 三维动态观察器3F 3DFACE 三维表面3P 3DPOLY 三维多义线A ARC 圆弧ADC ADCENTER AutoCAD设计设计中心AA AREA 面积AL ALIGN 对齐（适用于二维和三维）AP APPLOAD 加载、卸载应用程序AR ARRAY 阵列*AR *ARRAY 命令式阵列ATT ATTDEF 块的属性*ATT *ATTDEF 命令式块的属性ATE ATTEDIT 编辑属性ATE *ATTEDIT 命令式编辑属性ATTE *ATTEDIT 命令式编辑属性B BLOCK 对话框式图块建立*B *BLOCK 命令式图块建立BH BHATCH 对话框式绘制图案填充BO BOUNDARY 对话框式封闭边界建立*BO *BOUNDARY 命令式封闭边界建立BR BREAK 打断C CIRCLE 圆CHA PROPERTIES 对话框式对象特情修改*CH CHANGE 命令式特性修改CHA CHAMFER 倒角COL COLCR 对话框式颜色设定COLOUR COLCR 对话框式颜色设定CO COPY 复制D DIMSTYLE 尺寸样式设定DAL DIMALIGNED 对齐式线性标注DAN DIMANGULAR 角度标注DBA DIMBASELINE 基线式标注DBC DBCONNECT 提供到外部数据库表的接口DCE DIMCENTER 圆心标记DCO DIMCONTINUE 连续式标注DDA DIMDISASSOCIATE 标注不关联DDI DIMDIAMETER 直径标注DED DIMEDIT 尺寸修改DI DIST 测量两点间距离DIV DIVIDE 等分布点DLI DIMLINEAR 线性标注DO DONUT 双圆DOR DIMORDIMATE 坐标式标注DOV DIMOVERRIDE 更新标注变量DR DRAWORDER 显示顺序DRA DIMRADIUS 半径标注DRE DIMREASSOCIATE 标注关联DS DSETTINGS 捕捉设定DST DIMSTYLE 尺寸样式设定DT DTEXT 写入文字DV DVIEW 定义平行投影或透视投影视图E ERASE 删除对象ED DDEDIT 单行文字修改EL ELLIPSE 椭圆EX EXTEND 延伸EXIT QUIT 退出EXP EXPORT 输出文件EXT EXTRUDE 将二维对象拉伸为三、维F FILLET 倒圆角FI FILTER 过滤器G GROUP 对话框式选择集设定*G *GROUP 命令式选择集设定GR DDGRIPS 夹点控制设定H BHATCH 对话框式绘制图案填充*H HATCH 命令式绘制图案填充HE HATCHEDIT 编辑图案填充HI HIDE 消隐I INSERT 对话框式插入图块*I *INSERT 命令式插入图块IAD IMAGEADJUST 图像调整IAT IMAGEATTACH 并入图像ICL IMAGECLIP 截取图像IM IMAGE 对话框式附着图像*IM *IMAGE 命令式贴附图像IMP IMPORT 输入文件IN INTERSECT 将相交实体或面域部分创建INF IMTERFERE 由共同部分创建三维实体IO INSERTOBJ 插入对象L LINE 画线LA LAYER 对话框式图层控制*LA *LAYER 命令式图层控制LE QLEADER 引导线标注LRN LENGTHEN 长度LI LIST 查询对象文件LINEWEIGHT LWEIGHT 线宽LO *LAYOUT 配置设定LS LIST 查询对象文件LT LINETYPE 对话框式线型加载*LT *LINETYPE 命令式线型加载LTYPE LINETYPE 对话框式线型加载*LTYPE *LINETYPE 命令式线型加载LTS LTSCALE 设置线型比例因子LW LWEIGHT 线宽设定M MOVE 搬移对象MA MATCHPROP 对象特性复制ME MEASURE 量测等距布点MI MIRROR 镜像对象ML MLINE 绘制多线MO PROPERTIES 对象特性修改MS MSPACE 从图纸空间转换支模型空间MT MTEXT 多行文字写入MV MVIEW 浮动视口O OFFSET 偏移复制OP POPTIONS 选项ORBIT 3DORBIT 三维动态观察器OS OSNAP 对话框式对象捕捉设定*OS *OSNAP 命令式对象捕捉设定P PAN 即时平移*P *PAN 两点式平移控制PA PASTESPEC 选择性粘贴PARTIALOPEN *PASTESPEC 将指定的对象加载对新图形中PE PEDIT 编辑多义线PL PLINE 绘制多义线PO POINT 绘制点POL POLYGON 绘制正多边型PR OPTIONS 选项PRCLOSE PROPERTIESCLOSE 关闭对象特性修改对话框PROPS PROPERTIES 对象特性修改PRE PREVIEW 输出预览PRINT PLOT 打印输出PS PSPACE 图线空间PTW PUBLISHTIWEB 发送支网页PU PURGE 肃清无用对象*PU *PURGE 命令式肃清无用对象R REDRAW 重绘RA REDRAWALL 所有视口重绘RE REGEN 重新生成REA REGENALL 所有视口重新生成REC RECTANGLE 绘制矩形REG REGION 三维面域REN REBAME 对话框式重命名*REN *REBAME 命令式重命名REV REVOLVE 利用绕轴旋转二维对象创建三维体RM DDRMODES 打印辅助设定RO ROTATE 旋转RPR RPREF 设置渲染参考RR RENDER 渲染S STRETCH 拉伸SC SCALE 比例缩放SCR SCRIPT 调入剧本文件SE DSETTINGS 捕捉设定SEC DECTION 通过使平面与实体相交创建面域SET SETVAR 设定变量值SHA SHADE 着色SL SLICE 用平面剖切实体SN SNAP 捕捉控制SO SOLID 填实的三边形或四边形SP SEELL 拼字SPL SPLINE 样条曲线SPE SPLINEDIT 编辑样条曲线ST STYLE 字型设定SU SUBTRACT 差集运算T MTEXT 对话框式多行文字写入*T *MTEXT 命令式多行文字写入TA TABLET 数字化仪规划TH THICKNESS 厚度TI TILEMODE 图线空间和模型空间设定切换TO TOOLBAR 工具栏设定TOL TOLERANCE 公差符号标注TOR TORUS 圆环TR TRIM 修剪UC DDUCS 用户坐标系UCP DDUCSP 设置正交窗口UN UNITS 对话框式单位设定*UN *UNITS 命令式单位设定UNI UNION 并集运算V VIEW 对话框式视图控制*V *VIEW 视图控制VP DDVPOPINT 视点*VP WPOINT 命令式视点W WBLOCK 对话框式图块写出*W *WBLOCK 命令式图块写出WE WEDGE 三维楔体X EXPLODE 分解XA XATTACH 贴附外部参考XB XBIND 并入外部参考*XB *XBIND 命令式并入外部参考XC XCLIP 截取外部参考XL XLINE 构造线XR XREF 对话框式外部参考控制*XR *XREF 命令式外部参考控制Z ZOOM 视口缩入控制CTRL+A 编组CTRL+B 捕捉CTRL+C 复制CTRL+D 坐标CTRL+E 等轴测平面CTRL+F 对象捕捉CTRL+G 删格CTRL+J CTRL+SHIFT+S 图形另存为CTRL+K 超级链接LCTRL+L 正交CTRL+M 帮助CTRL+N 新建CTRL+O 打开CTRL+P 打印CTRL+Q 退出CTRL+S 保存CTRL+T 数字化仪CTRL+U CTRL+F10 极轴CTRL+V 粘贴CTRL+W 对象跟踪CTRL+X 剪切CTRL+z 退回CTRL+1 对象特性CTRL+2 CAD设计中心CTRL+6 数据源CTRL+F6 切换当前窗口CTRL+F8 运行部件CTRL+SHIFT+C c 带基点复制。

AUTOLISP实例常用函数（十数值数值…）返回：累计实数或整数数值（一数值数值…）返回：差值（* 数值数值…）返回：所有数值乘积（/ 数值数值…）返回：第一个数值除以第二个以后数值的商（= 表达式1 表达式2）比较表达式1是否等于式2，适用数值及字符串（＞表达式1 表达式2）比较表达式1是否＞大于表达式2（＞= 表达式1 表达式2）比较表达式1是否大于等于表达式2（and 表达式1 表达式2…）返回：逻辑and的结果pi 常数∏，其值约为3．1415926（assoc 关键元素联合列表）根据关键元素找寻联合列表中关系信息（append 列表列表……）结合所有列表成一个列表（angle 点1 点2）取得两点的角度弧度值(car 列表)返回列表中的第一个元素，通常用来求X坐标（cdr 列表）返回：除去第一个元素后的列表（cadr 列表）返回列表中的第二个元素，通常用来求y坐标（caddr 列表）返回列表中的第三个元素，通常用来求Z坐标（command ”AutoCAD命令”…）超重量级函数，调用执行 AutoCAD命令（distance 点1 点2）取得两点的距离(eq 表达式1 表达式2）比较表达式1与表达式2是否相同，适用列表比较（实际相同）（entget 对象名称［应用程序列表］）取出对象名称的信息列表（entdel 对象名称）删除或取消删除对象(entlast）取出图形信息中的最后一个对象（getdist ［基点］［提示］）请求输入一段距离（getPoint ［基点］［提示］）请求输入一个点的坐标（getreal ［提示］请求输入一个实数（getstring [提示］）请求输入一个字符串（inters 点1 点2 点3 点 4［模式］）取得两条线的交点（length 列表）返回：列表内的元素数量（list 元素元素…）返回：将所有元素合并为一列表（max 数值数值…）返回：数值中的最大值（min 数值数值…）返回：数值中的最小值（nth n 列表）返回：列表的第n个元素（polar 基点弧度距离）按照极坐标法取得另一坐标点（progn 表达式1 表达式2…）连接其内的表达式为一组，常用于配合if、cond等函数（setq符号1 表达式1［符号2表达式2］…）设定表达式结果给各符号（subst 新项旧项列表）返回：替换新旧列表后的列表（一）关于从选择对象中获取信息假设有一条直线：如右图所示：1：选择一个对象 (setq a (entsel))选择对象: (<图元名: 7ef860d8> (1054.61 606.392 0.0)) 2：获取图元名 (car a) 或（setq b (car a)）<图元名: 7ef860d8>3: 获取坐标（cdr a）或（setq c (cdr a)）((1054.61 606.392 0.0)) （此时为一个集合非坐标）（seta d (car c)）(1054.61 606.392 0.0)4: 获取X坐标值 (setq X (car d)) 1054.61获取Y坐标值（setq Y (cadr d)） 606.392获取Z坐标值（setq Z (caddr d)） 0.05：关于图元的信息内容以直线为例（entget b）或 (setq d (entget d)) ((-1 . <图元名: 7ef860d8>) (0 . "LINE") (330 . <图元名: 7ef84cf8>) (5 . "123")(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10832.092 691.499 0.0) (11 1309.43 517.764 0.0) (210 0.0 0.0 1.0))大括号内12项，分别以括号括起。

1.计算所有线段总长度(加载后只需框选所有线段便可得出这些线段的总长度)(d e f u n c:L L() (s e t v a r"c m d e c h o"1) (setq en (ssge t(list '(0 . "spline,a rc,line,ellipse,LW POLYLIN E")))) (s e t q i0) (s e t q l l0) (r e p e a t(s s l e n g t h e n) (s e t q s s(s s n a m e e n i)) (s e t q e n d a t a(e n t g e t s s))(c o m m a n d"l e n g t h e n"s s"")(s e t q d d(g e t v a r"p e r i m e t e r")) (s e t q l l(+d d l l)) (s e t q i(1+i)))(p r i n c"所选线条总长为：")(p r i n c l l)(p r i n c))2.标注所有线段(加载后只需框选所有线段便可得标注这些线段)(d e f u n c:L L L() (C O M M A N D"U C S""") (s e t v a r"c m d e c h o"1) (S E T V A R"O S M O D E"0) (s e t q A c a d O b j e c t(v l a x-g e t-a c a d-o b j e c t)A c a d D o c u m e n t(v l a-g e t-A c t i v e D o c u m e n t A c a d o b j e c t)m S p a c e(v l a-g e t-M o d e l S p a c e A c a d d o c u m e n t));;选取需要测量的样条曲线、圆弧、直线、椭圆(setq en (ssge t(list '(0 . "spline,a rc,line,ellipse,LW POLYLIN E")))) (s e t q i0) ;;获取系统参数t e x t s i z e (s e t q s h h(g e t v a r"t e x t s i z e")) (s e t q s t r_h h(s t r c a t"\n文字高度<"(r t o s s h h2)">:"))(s e t q h h(g e t d i s t s t r_h h)) (w h i l e h h (s e t v a r"t e x t s i z e"h h) (s e t q h h n i l)) ;;输入标注文字高度;;循环开始(r e p e a t(s s l e n g t h e n) (s e t q s s(s s n a m e e n i)) (s e t q e n d a t a(e n t g e t s s))(c o m m a n d"l e n g t h e n"s s"")(s e t q d d(g e t v a r"p e r i m e t e r")) (p r i n c(s t r c a t"\n长度="(r t o s d d2))) ;;寻找代表图层的字符串(s e t q a a(a s s o c0e n d a t a)) ;;获取图层名称(s e t q a a1(c d r a a));;判断线条种类(c o n d((=a a1"S P L I N E") ;;如果是s p l i n e(p r o g n (s e t q a r c O b j(V L A X-E N A M E->V L A-O B J E C T s s)) (s e t q s t a r t P n t1(v l a-g e t-C o n t r o l P o i n t s a r c O b j))(s e t q p 1 (v l a x-s a f e a r r a y->l i s t(v l a x-v a r i a n t-v a l u e s t a r t P n t1))) (s e t q x1(c a r p1))(s e t q y1(c a d r p1)) (s e t q z1(c a d d r p1)) (s e t q p p1(l i s t x1y1z1)) (r e p e a t(-(/(l e n g t h p1)3)1) ;;循环，寻找最后一个控制点(s e t q x2(c a r p1))(s e t q y2(c a d r p1))(s e t q z2(c a d d r p1))) (s e t q p p2(l i s t x2y2z2)))) ((=a a1"L W P O L Y L I N E") ;;如果是L W P O L Y L I N E(p r o g n (s e t q a r c O b j(V L A X-E N A M E->V L A-O B J E C T s s)) (s e t q s t a r t P n t1(v l a-g e t-C o o r d i n a t e s a r c O b j)) (s e t q p 1 (v l a x-s a f e a r r a y->l i s t(v l a x-v a r i a n t-v a l u e s t a r t P n t1)))(s e t q y1(c a d r p1)) (s e t q z1(c a d d r p1)) (s e t q p p1(l i s t x1y1z1)) (r e p e a t(-(/(l e n g t h p1)3)1) ;;循环，寻找最后一个控制点(s e t q p1(c d d d r p1))(s e t q x2(c a r p1))(s e t q y2(c a d r p1))(s e t q z2(c a d d r p1))) (s e t q p p2(l i s t x2y2z2))))(t ;;如果是其他种类线条(p r o g n (s e t q a r c O b j(V L A X-E N A M E->V L A-O B J E C T s s)) (s e t q s t a r t P n t1(v l a-g e t-S t a r t P o i n t a r c O b j));;获取起点(s e t q e n d P n t1(v l a-g e t-E n d P o i n t a r c O b j));;获取终点(s e t q p p 1 (v l a x-s a f e a r r a y->l i s t(v l a x-v a r i a n t-v a l u e s t a r t P n t1)))(s e t q p p2(v l a x-s a f e a r r a y->l i s t(v l a x-v a r i a n t-v a l u e e n d P n t1)))))) (s e t q x1(c a r p p1))(s e t q y1(c a d r p p1)) (s e t q z1(c a d d r p p1)) (s e t q x2(c a r p p2)) (s e t q y2(c a d r p p2)) (s e t q z2(c a d d r p p2)) (s e t q x(/(+x1x2)2)) (s e t q y(/(+y1y2)2)) (s e t q z(/(+z1z2)2)) (s e t q p t(l i s t x y z)) ;;取得线段两端的中点(s e t q a n g(a n g l e p p1p p2)) ;;获取角度(i f(>(*(/a n g p i)180)180)(s e t q a n g(+a n g p i)))(c o m m a n d"t e x t""j""b c"p t""(*(/a n g p i)180) (s t r c a t""(r t o s d d2))"") (s e t q i(1+i)))(p r i n1))(p r o m p t"\n<>在图中直接写出长度") (p r i n1)3.连续打断程序(d e f u n c:b r1()(c o m m a n d"b r e a k"p a u s e"f"p a u s e"@"))4.将C A D文字导入E x c e l表格(d e f u n c:Q2() (s e t q f f n(g e t f i l e d"写出文件""""x l s"1)) (p r i n c"\n选取文字...") (s e t q s s(s s g e t)) (s e t q f f(o p e n f f n"w")) (s e t q i0) (r e p e a t(s s l e n g t h s s) (s e t q s s n(s s n a m e s s i)) (s e t q s s d a t a(e n t g e t s s n)) (s e t q s s t y p(c d r(a s s o c0s s d a t a))) (i f(o r(=s s t y p"T E X T")(=s s t y p"M T E X T"))(p r o g n (s e t q t x t(c d r(a s s o c1s s d a t a))) (p r i n c t x t f f) (p r i n c"\n"f f)))(s e t q i(1+i)))(c l o s e f f) (p r i n c(s t r c a t"\n写出文件:"f f n)) (p r i n1) )5删除带颜色图元以下程序在别人的贴子里贴过.为了说明问题,今天再贴一次.改颜色的LISP程序(defun c:c1()(ssget)(command "chprop" "p" "" "c" "1" "") (princ))(defun c:c2()(ssget)(command "chprop" "p" "" "c" "2" "") (princ)) (defun c:c3()(ssget)(command "chprop" "p" "" "c" "3" "") (princ)) (defun c:c4()(ssget)(command "chprop" "p" "" "c" "4" "") (princ)) (defun c:c5()(ssget)(command "chprop" "p" "" "c" "5" "") (princ)) (defun c:c6()(ssget)(command "chprop" "p" "" "c" "6" "") (princ)) (defun c:c7()(ssget)(command "chprop" "p" "" "c" "7" "") (princ)) (defun c:c8()(ssget)(command "chprop" "p" "" "c" "8" "") (princ))你用C1 命令就可以将图元改为红色了.其余类似.删除红色图元(defun C:D1 (/ m A M)(setq m:err *error* *error* *merr*)(setvar "cmdecho" 0)(command "UNDO" "G")(prompt "选择图形")(setq A (ssget '((62 . 1)) ))(if (/= A nil)(progn(setq M (sslength A))(command "erase" A "")(princ "\n共删除红色图元<")(princ M)(princ ">个")))(command "UNDO" "E")(princ) )这样,键入D1 命令,就可以删除红色的图元了.。

构造线xline指定点或[水平(H)/垂直(V)/角度(A)/二等分(B)/偏移(O)]: h指定通过点:多段线pline指定起点:指定下一个点或[圆弧(A)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:正多边形polygon输入边的数目<4>:指定正多边形的中心点或[边(E)]:输入选项[内接于圆(I)/外切于圆(C)]<I>:指定圆的半径:矩形rectang指定第一个角点或[倒角(C)/标高(E)/圆角(F)/厚度(T)/宽度(W)]:指定另一个角点或[面积(A)/尺寸(D)/旋转(R)]:圆弧arc指定圆弧的起点或[圆心(C)]:指定圆弧的第二个点或[圆心(C)/端点(E)]:指定圆弧的端点:圆circle指定圆的圆心或[三点(3P)/两点(2P)/切点、切点、半径(T)]:指定圆的半径或[直径(D)]:修订云线Revcloud最小弧长: 15最大弧长: 15样式:普通指定起点或[弧长(A)/对象(O)/样式(S)] <对象>:沿云线路径引导十字光标...反转方向[是(Y)/否(N)] <否>:样条曲线spline指定第一个点或[对象(O)]:指定下一点:指定下一点或[闭合(C)/拟合公差(F)] <起点切向>:指定起点切向:指定端点切向:椭圆ellipse指定椭圆的轴端点或[圆弧(A)/中心点(C)]:指定轴的另一个端点:指定另一条半轴长度或[旋转(R)]:椭圆弧ellipse指定椭圆的轴端点或[圆弧(A)/中心点(C)]: a指定椭圆弧的轴端点或[中心点(C)]:指定轴的另一个端点:指定另一条半轴长度或[旋转(R)]:指定起始角度或[参数(P)]:指定终止角度或[参数(P)/包含角度(I)]:插入块insert块定义block创建多个点对象point图案填充hatch渐变色gradient面域region表格table多行文字mtext当前文字样式: "Standard"文字高度: 2.5注释性:否指定第一角点:指定对角点或[高度(H)/对正(J)/行距(L)/旋转(R)/样式(S)/宽度(W)/栏(C)]:删除erase分解explode前置draworder复制copy选择对象:找到1个当前设置:复制模式=多个指定基点或[位移(D)/模式(O)]<位移>:指定第二个点或[退出(E)/放弃(U)] <退出>:指定第二个点或[退出(E)/放弃(U)] <退出>:镜像mirror选择对象: 1个指定镜像线的第一点:指定镜像线的第二点:要删除源对象吗？[是(Y)/否(N)] <N>: y阵列array选择对象:找到1个偏移offset当前设置:删除源=否图层=源OFFSETGAPTYPE=0指定偏移距离或[通过(T)/删除(E)/图层(L)] <通过>:指定第二点:选择要偏移的对象，或[退出(E)/放弃(U)] <退出>:移动move选择对象:找到1个指定基点或[位移(D)] <位移>:指定第二个点或<使用第一个点作为位移>:旋转rotateUCS当前的正角方向:ANGDIR=逆时针ANGBASE=0选择对象:找到1个指定基点:指定旋转角度，或[复制(C)/参照(R)] <0>:缩放scale选择对象:找到1个指定基点:指定比例因子或[复制(C)/参照(R)] <1.0000>:拉伸stretch以交叉窗口或交叉多边形选择要拉伸的对象...选择对象:找到1个指定基点或[位移(D)] <位移>:指定第二个点或<使用第一个点作为位移>:修剪trim选择剪切边...选择对象或<全部选择>:找到1个选择要修剪的对象，或按住Shift键选择要延伸的对象，或[栏选(F)/窗交(C)/投影(P)/边(E)/删除(R)/放弃(U)]:延伸extend当前设置:投影=UCS，边=无选择边界的边...选择对象或<全部选择>:找到1个选择要延伸的对象，或按住Shift键选择要修剪的对象，或[栏选(F)/窗交(C)/投影(P)/边(E)/放弃(U)]:指定对角点:打断于点break选择对象:指定第二个打断点或[第一点(F)]: _f指定第一个打断点:指定第二个打断点: @打断break选择对象:指定第二个打断点或[第一点(F)]:需要点或选项关键字。

LISP语言自定义AutoCAD命令AutoLISP语言作为AutoCAD的二次开发工具，虽然在功能、运行速度和保密性等方面比起ARX等工具要逊色一些，但由于它易学易用，交互性好，灵活性强，对于那些经常使用AutoCAD进行绘图的普通用户来说，不失为一种理想的开发工具。

下面就介绍用AutoLISP语言自定义的几个AutoCAD绘图命令，可以起到简化操作、提高作图效率的作用。

一、键槽尺寸视图的绘制命令“jct”在绘制轴、齿轮或带轮等零件图时，经常需要画轴上键槽处的剖视图或轮毂键槽的端面视图，比较麻烦；由于键槽的尺寸随轴径的变化而变化，所以我们可以用LISP程序来实现自动绘图。

加载下面的程序，在命令行中键入”jct”并回车，通过人机交互的形式输入有关参数，可自动完成轴上键槽的剖视图和轮毂键槽的端面视图的绘制。

代码示例如下所示。

(defun C:jct ()(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))(initget 7)(setq loop T)(while loop(setq d (getreal "\n 请输入键槽处的轴径(12<d<130)(mm):")) (if(or (< d 12) (> d 130))(alert "轴径数据输入错误!\n\n请重新输入!")(setq loop nil));if);while(cond;根据轴径检索键槽尺寸((and (> d 12) (<= d 17)) (setq b 5 t1 3.0 t2 2.3));b表示键槽的宽度((and (> d 17) (<= d 22)) (setq b 6 t1 3.5 t2 2.8));t1表示轴上键槽的深度((and (> d 22) (<= d 30)) (setq b 8 t1 4.0 t2 3.3));t2表示轮毂上键槽的高度((and (> d 30) (<= d 38)) (setq b 10 t1 5.0 t2 3.3))((and (> d 38) (<= d 44)) (setq b 12 t1 5.0 t2 3.3))((and (> d 44) (<= d 50)) (setq b 14 t1 5.5 t2 3.8))((and (> d 50) (<= d 58)) (setq b 16 t1 6.0 t2 4.3))((and (> d 58) (<= d 65)) (setq b 18 t1 7.0 t2 4.4))((and (> d 65) (<= d 75)) (setq b 20 t1 7.5 t2 4.9))((and (> d 75) (<= d 85)) (setq b 22 t1 9.0 t2 5.4))((and (> d 85) (<= d 95)) (setq b 25 t1 9.0 t2 5.4))((and (> d 95) (<= d 110)) (setq b 28 t1 10.0 t2 6.4))((and (> d 110) (<= d 130)) (setq b 32 t1 11.0 t2 7.4)))(command "circle" pt0 "d" d)(command "zoom" "a")(setq s1 (ssget "l" ))(setq di (-(* (/ d 2.0) (/ d 2.0)) (* (/ b 2.0) (/ b 2.0)))dx (sqrt di)dy (/ b 2.0)pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy)))(initget "Zc Lc");Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图(setq zrl (getkword "\n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))(if (= zrl "Zc")(progn;计算轴键槽上点的坐标(setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1)))));progn(if (= zrl "Lc")(progn;计算轮毂键槽上点的坐标(setq pt2 (list (+ (car pt0) (+(/ d 2.0) t2)) (+ (cadr pt0) dy))pt3 (polar pt2 (- (/ pi 2.0)) b)pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx))));progn);if(command "pline" pt1 pt2 pt3 pt4 "");画键槽(setq s2 (ssget "l"))(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")(command "ltscale" 8)(command "line" (polar pt0 (- pi) (+ (/ d 2.0) 10));画中心线(polar pt0 0 (+ (/ d 2.0) 10)) "")(command "line" (polar pt0 (-(/ pi 2.0)) (+ (/ d 2.0) 10))(polar pt0 (/ pi 2.0) (+ (/ d 2.0) 10)) "")(command "layer" "s" 0 "")(if (= zrl "Zc")(progn(setq s3 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s3 "");修剪形成键槽(command "hatch" "U" "45" "2" "n" s1 s2 ""));画轴上键槽处剖视图的剖面线);if(if (= zrl "Lc")(progn(setq s4 (entsel "\n 请选择修剪的目标:"))(command "trim" s2 "" s4 "");修剪形成键槽(command "rotate" s1 s2 "" pt0 90));将轮毂键槽的端面视图旋转90度);end defun二、螺纹孔剖视图的绘制命令“lwk”在绘制机械零件图时，经常要画螺纹孔的剖视图，同样由于螺纹孔的有关尺寸都随螺纹的公称直径而变化，我们可以用下面的程序自动完成其剖视图的绘制。

命令修饰符坐标过滤器结合不同点的 X、Y 和 Z 值指定单个点?命令条目:输入 .x、.y、.xy、.xz或 .yz在任意定位点的提示下，可以输入点过滤器以通过提取几个点的 X、Y 和 Z 值来指定单个坐标。

在下例中，直线的起点具有从第一个选定对象的中点的 X 值以及第二个选定对象的中点的 Y 和 Z 值构造的坐标。

命令: line指定第一个点: .x中点选择对象（需要 YZ）中点选择另一个对象下一点: 指定点直接距离输入将下一个点沿光标所指方向定位到指定的距离?命令条目:在定位点的提示下，输入一个数字值使用直接距离输入，可以相对于输入的最后一点快速指定一点。

在任意点位置提示下，首先移动光标以指定方向，然后输入数值距离。

下例中直线的第二点将沿光标方向定位 5 个单位。

输入的直接距离将沿从最后一点到光标当前位置的路径进行测量。

此功能通常在正交或捕捉模式打开的状态下使用。

命令: line指定第一个点: 指定点指定下一个点: 沿所需的方向移动光标并输入 5注意当使用正交、对象捕捉追踪或极轴追踪的临时替代值键时，直接距离输入方法不可用。

FROM在命令中定位某个点相对于参照点的偏移。

?工具栏:对象捕捉?命令条目:在定位点的提示下，输入 from基点: 指定一个点用作基点<偏移>: 输入相对偏移在定位点提示下，输入 from，然后输入临时参照或基点（可以指定自该基点的偏移以定位下一点）。

输入自该基点的偏移位置作为相对坐标，或使用直接距离输入。

注意在命令（如 MOVE 和 COPY）中进行拖动时不能使用此方法。

通过键盘输入或使用定点设备指定绝对坐标值，可取消FROM 命令。

MTP定位两点间的中点。

?命令条目:在定位点的提示下，输入 mtp两点的中点 (MTP) 命令修饰符可以在执行对象捕捉或对象捕捉替代时使用。

（OSNAP 命令）在定位点的任何命令提示下，输入 mtp 或 m2p。

第一个中点: 指定点第二个中点: 指定第二点TRACKING通过一系列临时点定位点。

一.DRAW_LISP --------------畫圖指令 ６1.1 Circle -------畫圓 ６1.2 Screw_top -------畫正面牙孔(上視圖) ６1.3 Screw_bottom -------畫背面牙孔(上視圖) ６1.4 Sink_head -------畫沉頭孔(上視圖) ６1.5 Locate -------畫合銷孔(上視圖) ６1.6 Drill hole -------畫鑽孔(側視圖) ６1.7 Bolt hole -------畫螺絲孔(側視圖) ７1.8 Sink head hole -------畫沉頭孔(側視圖) ７1.9 3_view -------三視圖輔助畫線 ７1.10 Wire_cut hole -------畫線割穿線孔 ７1.11 Wire_cut hole_1 -------畫線割穿線孔 ８1.12 Circle_SP -------畫圓形孔之線割穿線孔 ８1.13 Layout -------多層複製 ８1.14 Slot -------畫長形孔 ８1.15 Middle line -------畫兩條平行線或平行圓(弧)的中心線 ８1.16 Copies -------以圓心為放置參考點的多重拷貝 ９1.17 Divide_1 -------用點等分兩點間的距離 ９二.MODI_LISP --------------編修指令 １０2.1 Change layer -------圖元之圖層變更 １０2.2 Change color -------圖元之顏色變更 １０2.3 Change LType -------圖元之線形變更 １０2.4 Stoc -------弧變圓 １０2.5 Change diameter -------改變圓或弧的直徑 １０2.6 Sort hole -------調整圓.弧.圖區或線的中心位置為整數 １０2.7 Adjust line -------調整兩平行線之距離為整數 １１2.8 Correct -------圖元對齊基準點 １１2.9 Offset_1 -------偏移並刪除原圖元 １１2.10 Mirror_1 -------選兩平行線鏡射原圖元 １１2.11 Move_C 2 C -------以兩圓心為基准移動圖元 １２2.12 Ear -------處理上視圖的圓弧形掛台 １２2.13 Ear_side view -------畫出掛台側視圖 １２2.14 Change text -------改變文字 １３2.15 Reverse text -------將數字文字減去輸入值 １３2.16 Change Text height -------改變文字高度 １３2.17 Change Text style -------改變文字字形 １４2.18 Distance -------測兩平行線間距离 １４2.19 Pline_Join -------串接多組聚合線 １４2.20 Total circle -------統計相同直徑圓的數量 １４2.21 Total length -------計算圖元長度 １４2.22 Dupli-line -------尋找重複圖元 １４2.23 Select -------圖元篩選 １５三.DIE_TLS --------------模具工具 １６3.1 Bending-len -------計算彎曲展開長度 １６3.2 Die block -------連續模自動排板 １６3.3 Auto draw -------自動畫各模板的孔 １６3.4 Total Spring -------計算彈簧數量 １７3.5 Make Layer -------分段製造模板圖層 １７3.6 Parts -------畫標準零件 １７3.7 Spring -------畫彈簧 １７3.8 Big ARC -------找大圓弧 １７3.9 CW -------將圓孔轉成線割用聚合線 １８3.10 CW1 -------將單個圓孔轉成線割用聚合線 １８3.11 GC -------將圓孔轉成線割用聚合線 １８3.12 GC1 -------將單個圓孔轉成線割用聚合線 １８3.13 WC1 -------將異形孔轉成線割用聚合線 １８3.14 WC out circle -------將單個外形圓轉成線割用聚 合線 １８3.15 Dxf Order_ R12 -------將線割聚合線存成dxf檔 １９3.16 Quick M/C -------轉M/C加工程式 １９3.17 Draw out -------存出模板圖紙 １９3.18 MTL_List -------生成材料表 １９3.19 MTL_List_all -------生成件號清單 ２０3.20 Parts_List -------生成零件表 ２０四.DIM --------------標注尺寸 ２１4.1 Code name -------標注各孔加工代號 ２１4.2 Grid -------制加工說明表 ２１4.3 Move code -------移動相同孔加工代號 ２１4.4 Code name1 -------標注各孔加工代號 ２２4.5 Grid_1 -------制加工說明表及坐標格 ２２4.6 Insert GD -------插入零件屬性格 ２２4.7 Dim Hole -------各類孔加工標注 ２３4.8 Mill_top -------標注正面消深 ２３4.9 Mill_bottom -------標注背面消深 ２４4.10 Auto_DIM -------座標式自動標註尺寸 ２４4.10-01 * ORG Pt * -----原點 ２４4.10-02 Txt hight -----字高 ２４4.10-03 Accuracy -----小數精度 ２４4.10-04 H_V dim -----同步標註圓的水平與垂直圓心座標 ２４4.10-05 Hor_line -----點取水平標註位置並抓線的兩端點做標註 ２４4.10-06 Ver_line -----點取垂直標註位置並抓線的兩端點做標註 ２４4.10-07 H&V EDIT -----編輯座標尺寸位置 ２５4.10-08 H level -----點取水平標註位置並選取圓標註 ２５4.10-09 V level -----點取垂直標註位置並選取圓標註 ２５4.10-10 H dim -----逐一標註水平尺寸 ２５4.10-11 V dim -----逐一標註垂直尺寸 ２５4.10-12 Horizon -----選取圓的圓心做水平標註 ２５4.10-13 Vertical -----選取圓的圓心做垂直標註 ２５4.11 Geo_code -------標注几何公差基准代號 ２５4.12 Geo_box -------標注几何公差值 ２６4.13 Tolerances -------標注公差值 ２６4.14 Tolerances_1 -------插入公差值 ２６4.15 Chamfer_1 -------標注倒角 ２６4.16 Measure_dim -------產生尺寸標號及鉗工自檢表 ２６4.17 Cg DIM_lay -------變更圖元到尺寸層 ２７4.18 Flow -------指定加工流程 ２７4.19 Bubble -------標注件號气球 ２７五.LAY --------------模板圖層控制 ２８5.1 Sngllay -------開單一圖層 ２８5.2 SnglBLK -------開單一模板圖層 ２８5.3 SnglBK1 -------開單一模板圖層 ２８5.4 Lay set -------設置工作層 ２８5.5 Lay THAW -------解凍輸入圖層 ２８5.6 Lay FRZ1 -------選取凍結圖層 ２８5.7 Lay FREZ -------凍結輸入圖層 ２８5.8 Lay lock -------鎖護圖層 ２９5.9 Lay unlk -------解鎖所有圖層 ２９5.10 Switch Lay C -------模板圖層切換為C層 ２９5.11 Switch Lay F -------模板圖層切換為F層 ２９5.12 Switch Lay M -------模板圖層切換為M層 ２９六.未顯示在功能表之功能鍵 ２９6.1 SS -------打開部分鎖點功能 ２９6.2 FF -------執行R=0的FILLET指令 ２９6.3 MM -------執行無鎖點模式的MOVE指令 ２９6.4 PP -------將所有圖層顏色設為白色 ２９6.5 CC -------設定當前層為C層 ２９6.6 CF -------設定當前層為F層 ２９6.7 CM -------設定當前層為M層 ３０6.8 PG -------連續執行兩次PURGE指令 ３０6.9 Q -------彈出模板圖層控制功能表 ３０6.10 Shift + 右鍵 -------彈出座標式自動標註尺寸功能表 ３０6.11 Ctrl + 右鍵 -------彈出各類孔加工標注功能表 ３０一.Draw_lisp --------------畫圖指令1.1 Circle -------畫圓● 範例：Diameter〈內定值〉： 直徑Center point〈Press ENTER for none〉： 插入點 (按ENTER 結束)● 說明：1.按ENTER可重複指令。

lisp命令(defun c:rt ()(command "rotate"))旋转作者:翁政(defun c:ff ()(command "offset"))偏移(defun c:v ()(command "move"))移动(defun c:g ()(command "line"))直线(defun c:gg ()(command "pline"))多线(defun c:q ()(command "bhatch" "p" "s"))实体填充(defun c:cc ()(command "copy"))复制(defun c:c ()(command "circle"))圆(defun c:a ()(command "arc"))圆弧(defun c:f ()(command "fillet"))圆角(defun c:dt ()(command "dtext"))文字编辑(defun c:t ()(command "text"))文字(defun c:sc ()(command "scale"))比例缩放(defun c:tr ()(command "trim"))修剪(defun c:x ()(command "explode"))分解(defun c:ar ()(command "array"))陈列(defun c:e ()(command "_erase"))删除(defun c:cc1 ()(command "copy" "l" "" "@"))连续复制(defun c:www ()(command "_browser"))用IC连机，DOS调用内部命令(defun c:w ()(command "matchprop"))(defun c:d ()(command "_TXTALIGN"))对齐文字(defun c:dq ()(command "_dimaligned"))对齐标注(defun c: ()(command ""))(defun c: ()(command ""))-1.先选择弧，就可求得弧的半径和弧圆心的坐标。

点工具---加载应用程序—选择你要的程序即可加载后按F2 按提示说明输入命令就可以了[RDtools]1、Bwmfout:输出CAD图形为WMF文件的程序。

方便是DWG图形与WORD文件之间的交流。

2、CZ：管线插字程序。

用管线中间的标注。

3、Locktb14：CAD工具条锁定程序。

4、Lr：平面图转系统图程序。

Zc：平面图转系统图程序。

5、Nat:删除建筑门窗标注程序。

6、Periscope：自动显示物体参数程序。

7、32：将图中3维线处理成2维。

（建筑提资图中线条常为3维线与2维线无交点）8、Bdn：管径标注程序。

9、Bg：标注标高程序。

10、Bgao：标注坐标程序。

11、Biaozhu：标注立管编号，管件编号程序。

12、Brktxt：编辑长字符串程序（把长的字符串打断）。

13、Bs：批量块缩放程序。

14、Btj：图块数量统计程序。

15、Bz：管径、管长标注程序。

16、Bz3:(bzyx1)标注坐标程序。

17、Chtext:统一改变字体属性（字高、字宽、字型、颜色等）。

18、Crpiao：统一改变圆直径程序。

19、Edim：输入上界，将窗选范围内小于该值的尺寸标注删除。

若输入上界为1则删除窗选范围内所有尺寸标注。

（用于处理建筑提资图。

）20、Edline：加宽线条程序。

21、Ela:整层删除程序。

22、Fjzc：分解字符串为单独的字体程序。

23、Gxs：编辑线的宽度，颜色、线型程序。

24、Jdx：将直线变为剖切线程序。

25、Jsgj：根据喷淋头数计算管径程序。

26、Jt：截取大样图程序。

27、Lj：端点连接程序。

28、Num：批量更改数字程序。

29、Peditn：加宽线条程序。

30、Pl45：画45•线程序。

31、Pspm：剖面线绘制程序。

32、Rc：复制并旋转物体程序。

33、Rh：新型尺寸标注命令程序。

34、Rhcon：新型尺寸连续标注程序。

35、Revise：倾斜CAD图形矫正程序。

36、Slg：PAP，PP-R管流量计算程序。