超经典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的图) 　 brk.lsp --- 将一线条在与其它线条相交处断开 peditx.lsp --- 成批修改线条的线宽 ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 chcr.lsp --- 修改园和园弧的半径 lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结 bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用) bg1.lsp～bg4.lsp --- 标注各种标高 hu.lsp --- 直接给出园弧长度 jdx.lsp --- 截断线 jdx2.lsp --- 双截断线 bdgj.lsp --- 板底钢筋(土建结构图用) bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用) dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图） gzz.lsp --- 构造柱绘制 ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: XX -- 虚线(用于1:1的图) DHX -- 点划线(用于1:1的图) XX100 -- 虚线(用于1:100的图) DHX100 -- 点划线(用于1:100的图) ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: CHXX -- 将线型改为虚线(用于1:1的图) CHDHX -- 将线型改为点划线(用于1:1的图) CHXX100 -- 将线型改为虚线(用于1:100的图) CHDHX100 -- 将线型改为点划线(用于1:100的图) CHCON -- 将线型改为连续线 CHC -- 直接修改实体的颜色 其余详见ACAD.LSP的内容。ACAD的命令缩写根据其使用的频率作了调整。 V -- 先执行ZOOM E, 再将当前视图存储，并调用ZOOM W 此命令主要为"超级视图"做准备，"超级视图"妙处一用便知 ! 建议使用显 示卡自带的AutoCAD显示驱动 增强后的ACAD.LSP能在状态行上显示当前文件名 ACAD.MNU的改进: 调整了光标菜单（共两页），并将最常用的捕捉方式定义 在组合光标键上。 将如下内容替换原相应项 ***BUTTONS1 **b11 ; $b1=b12 $p0=p01 $p0=* **b12 ; $b1=b11 $p0=p02 $p0=* ***BUTTONS2 _end,_int ***BUTTONS3 _nea ***BUTTONS4 '_view r e '_zoom w ***POP0 **p02 [DDedit]^C^CDDEDIT [CHGtext]^C^C(if (not chgtext) (load "chgtext"));chgtext [--] [NEArest]_nea [PERpendicular]_per [MIDpoint]_mid [CENter]_center [ENDpoint]_endp [INSert]_ins [INTersection]_int [NODe]_nod [QUAdrant]_qua [TANgent]_tan [NONe]_non [--] [Calculator]'cal **p01 [--] [Line]^C^C_line [Polyline]^C^C_pline [Circle]^C^C_circle [Arc]^C^C_arc [--] [Erase]^C^C_erase [Move]^C^C_move [Copy]^C^C_c [Stretch]^C^C_str [Rotate]^C^C_rotate [Fillet]^C^C_f [Offset]^C^C_offset [Extend]^C^C_extend [Trim]^C^C_trim [Break]^C^C_break [Explode]^C^C_explode [--] 说明: 1. 按Shift-鼠标右键: end,int 捕捉方式 2. 按Ctrl-鼠标右键: nea 捕捉方式 3. 按Shift-Ctrl-鼠标右键: 启动"超级视图" 4. 按鼠标中键: 捕捉方式和常用绘图命令的切换(共两页) --------------------------------------------------------------- 下面是一业余版的二维建筑设计软件，其最大的特色为所绘的实体仅有 LINE、POLYLINE、CIRCLE和TEXT四种，修改容易。虽只有二十多个程序， 但确能帮您解决二维绘图中的一些问题。 ax.lsp --- 规则轴网绘制 chax.lsp --- 轴线线型由点划线到连续线的交替变换 wwall.lsp --- 外墙绘制 nwall.lsp --- 内墙绘制(beta) gwall.lsp --- 隔墙绘制(beta) ss.lsp --- 室外散水 chww.lsp --- 墙线加粗 chw0.lsp --- 墙线加粗恢复 dimw.lsp --- 标注墙厚 zhu.lsp --- 交点插柱 win.lsp --- 墙上插窗 wwin.lsp --- 无墙画窗 door.lsp --- 墙上插门 3dimzs.lsp --- 标注左边及上边的第三排尺寸线 3dimyx.lsp --- 标注右边及下边的第三排尺寸线 lt1.lsp --- 双跑楼梯平面 ltpm.lsp --- 双跑楼梯剖面(better) wsj.lsp --- 卫生间布置 wsj1.lsp --- 单个侧开门卫生间 tj1.lsp --- 台阶绘制 pd.lsp --- 坡道绘制 sy1.lsp --- 索引1 sy2.lsp --- 索引2 lmw.lsp --- 立面窗 lmm.lsp --- 立面门