AutoCAD-lsp

AutoCAD-LISP程序100例: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--先执行ZOOME,再将当前视图存储，并调用ZOOMW此命令主要为超级视图做准备，超级视图妙处一用便知!建议使用显示卡自带的AutoCAD显示驱动增强后的ACAD.LSP能在状态行上显示当前文件名ACAD.MNU的改进:调整了光标菜单（共两页），并将最常用的捕捉方式定义在组合光标键上。将如下内容替换原相应项***BUTTONS1**b11;$b1=b12$p0=p01$p0=***b12;$b1=b11$p0=p02$p0=****BUTTONS2_end,_int***BUTTONS3_nea***BUTTONS4'_viewre'_zoomw***POP0**p02[DDedit]^C^CDDEDIT[CHGtext]^C^C(if(notchgtext)(loadchgtext));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---索引1sy2.lsp---索引2lmw.lsp---立面窗lmm.lsp---立面门