AutoCAD Lisp程序100例

pengl86

压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。 bg.lsp --- 表格自动生成 asc.lsp --- 将文本文件内容写入图中，字符是单个的 / V) ^3 k' F1 D wf.lsp --- 将图中字符写入磁盘 ; h: I" b! {4 _# w$ `" ?' z exstr.lsp --- 将字符串分解成单字 1 x0 ]# Z* f9 W+ E8 w pgtxt.lsp --- 将字符合成字符串 1 }1 J) C/ A: _+ ], Z" L+ O pb.lsp --- 通过给出长度将字符串分成两个串 # |& [3 a- T$ y+ N4 L! A! N cht.lsp --- 直接修改文字内容或块属性 % t* H. W2 E7 D( B. S ct.lsp --- 对数字串进行加减 chh.lsp --- 直接修改文字高度   l5 [' R9 j& k$ c; ]7 P chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) chst.lsp --- 直接修改文字字体 / I# j# A0 h) |* Q% |- t; R txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小 untiao.lsp --- 上两个程序的复原 / u( n' H" X3 ~" t- p sht.lsp --- 在图中查找字符串 9 r  ~9 D' c$ d1 m) H5 X 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的图) 　 / g5 W0 p, g6 F! F# a* e& g+ E2 {9 @. e brk.lsp --- 将一线条在与其它线条相交处断开 peditx.lsp --- 成批修改线条的线宽 ' z1 j3 J3 c  J/ H ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 chcr.lsp --- 修改园和园弧的半径 lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结1 l: s6 e. j/ j/ ?3 @2 ?2 x bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用) bg1.lsp～bg4.lsp --- 标注各种标高 hu.lsp --- 直接给出园弧长度2 h0 n% Q( B' [ jdx.lsp --- 截断线 + Y( |' i2 @; R, M$ f6 T  ` jdx2.lsp --- 双截断线 bdgj.lsp --- 板底钢筋(土建结构图用) & o6 S5 H' \( _  K% |: g8 Y6 K6 T/ X bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)+ G5 m; A! ?# a/ q$ R1 Z dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图） gzz.lsp --- 构造柱绘制 ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: 4 d8 i, h1 ~8 Q) R, j4 t XX -- 虚线(用于1:1的图) 3 A6 {+ b+ l1 ^% |' s' }* { DHX -- 点划线(用于1:1的图) XX100 -- 虚线(用于1:100的图) DHX100 -- 点划线(用于1:100的图)& E% I+ Q/ U* k' C ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: . s5 p, D$ X, Y) I  B. L CHXX -- 将线型改为虚线(用于1:1的图) CHDHX -- 将线型改为点划线(用于1:1的图) 9 \" H, K& G" Q0 y  _ CHXX100 -- 将线型改为虚线(用于1:100的图) CHDHX100 -- 将线型改为点划线(用于1:100的图) CHCON -- 将线型改为连续线   H8 I& S0 U% n( g8 |; i CHC -- 直接修改实体的颜色

wangsr

谢谢楼主的分享   下载下来研究下

小小的人

谢谢楼主的分享   下载下来研究下

yuyehuan

都是老文件，还要币下载后研究下，谢谢分享。

烟盒迷唇

研究研究看看如何

664571221

怎么用啊？？？？？？？？

lwl450

都是老文件，还要币

疯球

谢谢分享！·！！！

slq803

谢谢分享！·！！！

stardelet7777

都是老文件，还要币

匆匆肥马

文件呢？怎么没看到

sunny_8848

谢谢楼主分享！

mokson

工具在全呀！谢谢.