AutoCAD Lisp程序实例

wxsdtxw

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的命令缩写根据其使用的频率作了调整。

seekerdhg

谢谢楼主提供的好资料。

看看我是谁

楼主辛苦了，非常感谢

zzkkll

找了好久，今天才得到，感谢楼主的慷慨！我的眼睛有点湿润．　

任亮

这个必须顶
楼主辛苦

飞跃彩虹

以前都没用过这些,试了一下,挺不错的.
楼主辛苦啦

zwa

谢谢         多谢楼主

FSY810

谢谢，先下来以备以后用。

yicainiao

谢谢楼主！！正找相关资料呢

xyzh7

能否告诉我二维图完工后清除图元PU后再保存的LSP代码？？？
谢谢！！！

dxt199399

不一定用的上,但顶着先,呵呵

jianchundian

我在别的网上也看过啊！

扬帆

资料太有用了,楼主谢了

hujing1208

也不知道有没有用，先下来看看再说吧。

flfsk

支持，谢谢你没商量！