总 站 电气论坛 给排水论坛 环保论坛 暖通论坛 制冷论坛 建筑论坛 结构论坛 园林论坛 水利论坛 我们的服务 意见区
 23 12
发新话题
复制该帖子链接 打印

AutoCAD程序100例

AutoCAD程序100例

AutoCAD程序100例


如果您使用 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 -- 直接修改实体的颜色


。。。。。。。。。。。

TOP

附件: 您所在的用户组无法下载或查看附件

TOP

感谢斑竹奖励!                                 

TOP

引用:
以下是引用zxhsynd在2005-05-04 20:08:17发表的内容:

感谢斑竹奖励!                                 
不客气!有好东西就多发点啊!

TOP

多谢楼主分享,得益良多,顶!
附件: 您所在的用户组无法下载或查看附件

TOP

多谢楼主分享,在多处论见到你的身影。

TOP

好东东,支持!!

TOP

请问楼主如何应用?

TOP

不错啊很好的真的谢谢

TOP

好东东,谢谢楼主

TOP

引用:
以下是引用lxh001在2005-06-29 11:48:56.0发表的内容:

请问楼主如何应用?
加载

TOP

谢谢楼主!正在学习你上传的VBA,这些正好作为实例.
顶!

TOP

好东西呵

TOP

这是什么东西呀。怎么用呀。。我是个新手。请各位指点一下。。这些东西怎么用或。。都说是好东西。我也想学点呀。。

TOP

哈哈,要的就是它,真是个好东东,不错,希望多发点让我多享受成果!

TOP

真是好东西,我们希望能够提供较好的东东供大家参考,并作出不懈的努力!

TOP

8错8错8错8错,值得好好学习

TOP

好东西啊,楼主忒厉害了,谢谢

TOP

这东西看起来真的很好用,很省事啊,怎么加载啊?

TOP

顶一下,太有用了,谢谢楼主

TOP

 23 12
发新话题
客户服务: 021-33191010