QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
6天前
查看: 21836|回复: 77
收起左侧

[分享] AutoCAD Lisp程序100例

[复制链接]
发表于 2008-6-14 11:13:10 | 显示全部楼层 |阅读模式 来自: 中国广东汕头

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
压缩包中含有以下面程序,且均以源程序方式给出,您可以使用、参考、修改它。解压缩后请先看说明文件。+ Q1 ?7 i" A9 i5 o5 Q/ Z- @1 k# `
bg.lsp --- 表格自动生成 : a0 P% V7 s) t4 o. z! M5 a3 W$ L
asc.lsp --- 将文本文件内容写入图中,字符是单个的
( t: J, y- Q. x" T, `( b9 @. t( Uwf.lsp --- 将图中字符写入磁盘
4 u2 V) h: P/ D# D6 ~7 |/ v( Texstr.lsp --- 将字符串分解成单字 5 F) d$ \( R& K, `
pgtxt.lsp --- 将字符合成字符串
2 A5 W$ e0 L7 _pb.lsp --- 通过给出长度将字符串分成两个串 2 B. I$ a- i1 O2 K
cht.lsp --- 直接修改文字内容或块属性 ) h4 W, f7 B) x" A$ f; H- d
ct.lsp --- 对数字串进行加减
/ D7 [/ A$ |4 \. Gchh.lsp --- 直接修改文字高度
& Q6 V& N3 j; G/ T- Bchhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) $ y6 V& |9 T, _3 i9 D5 X6 j! Q
chst.lsp --- 直接修改文字字体
- O, R; i( w4 c+ D4 Z" _txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) 4 L1 ], }8 i& G1 Y
tiao.lsp --- 配合修改过的标准字体文件,将中文字符调大 1 E; r! }  Q" N6 y
tiao1.lsp --- 配合修改过的标准字体文件,将英文字符调小 ' ~( b4 o5 T5 p& v9 L  B
untiao.lsp --- 上两个程序的复原 3 }3 H' x/ G& b. i) ?
sht.lsp --- 在图中查找字符串
1 G4 w! E$ A$ \6 ^zhuang.lsp --- 桩点及钎探号绘制(勘测图)' m3 o: w4 m* g, M# N5 F1 d. X5 ^
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) & e/ A: b* [$ S  n" ^% y/ k: h
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) + X3 {& w. }7 N; P) `
di1.lsp~di8.lsp --- 直接连续标注尺寸(用于1:1的图)
) u1 H$ ^( G) |di100.lsp~di800.lsp --- 直接连续标注尺寸(用于1:100的图)  
1 G8 |/ F$ w& S1 U% H, Abrk.lsp --- 将一线条在与其它线条相交处断开 4 \+ x: i' n6 H
peditx.lsp --- 成批修改线条的线宽
& K( z2 c9 f. D! l% a+ l0 cex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
3 A# g& l9 N3 F5 J, |- Pchcr.lsp --- 修改园和园弧的半径
, L- U; C' g; N# tlay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结% x% |. m; \& M6 l6 H8 [1 ]
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
4 e+ ]: T1 }  t$ M* y6 o8 J% [bg1.lsp~bg4.lsp --- 标注各种标高5 a! h# V! Y! X: l- Z6 R1 I8 u9 `
hu.lsp --- 直接给出园弧长度
+ j  y; R% S0 [# K8 \9 zjdx.lsp --- 截断线
, h# I4 ~5 ^, w! J4 w( mjdx2.lsp --- 双截断线
% H2 ~. T: y4 f3 O- r; z2 A; O2 y; g0 cbdgj.lsp --- 板底钢筋(土建结构图用) ) G4 t8 E7 n1 D) r8 ]1 x: P
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
$ f4 O5 g8 {1 S- T6 i  [8 s& _dk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞)
: V0 e  i& t8 |$ p$ _' K( s! S  r" jgl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图), b! p! C2 L" c3 M9 f
gzz.lsp --- 构造柱绘制% q! j# Z4 d4 l; p- N
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
, W& G7 h1 i" L. z& i$ s* ^/ ~XX -- 虚线(用于1:1的图)
( N5 C( p6 k3 R1 WDHX -- 点划线(用于1:1的图)
: q) X* l! f0 w( e, hXX100 -- 虚线(用于1:100的图)
  z4 G/ S5 r8 k6 nDHX100 -- 点划线(用于1:100的图)
5 P0 a3 L4 y) U7 D2 U2 K  TACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
# g# T: r; E, v7 Y, s  k4 ?7 OCHXX -- 将线型改为虚线(用于1:1的图) & N& w- T; o+ ~. O: V+ J5 j9 b
CHDHX -- 将线型改为点划线(用于1:1的图) ( ~2 A. O6 V4 \4 l2 v% i5 K1 e
CHXX100 -- 将线型改为虚线(用于1:100的图) & }; u/ c- t" v+ ^( }$ ~! z! ~5 m
CHDHX100 -- 将线型改为点划线(用于1:100的图)
0 R5 h3 |7 N: L" b7 VCHCON -- 将线型改为连续线 * W8 F" `8 V' H! L
CHC -- 直接修改实体的颜色

Autocad100lisp.zip

491.88 KB, 下载次数: 1755

评分

参与人数 1三维币 +10 收起 理由
woaishuijia + 10 好资料,感谢对论坛的支持!

查看全部评分

发表于 2008-6-18 23:00:13 | 显示全部楼层 来自: 中国江苏苏州
太感谢了,真是好资料啊!
发表于 2008-6-18 23:27:22 | 显示全部楼层 来自: 中国北京
是啊  好资料 谢谢搂主
发表于 2008-6-20 09:57:52 | 显示全部楼层 来自: 中国天津
好资料,向楼主学习,
发表于 2008-6-20 14:40:36 | 显示全部楼层 来自: 中国江西南昌
请问这试用所有的版本吗??
发表于 2008-6-20 18:54:04 | 显示全部楼层 来自: 中国山西太原
支持楼主 这么好的资料 还打包了 方便了我们好多人
发表于 2008-8-26 21:21:49 | 显示全部楼层 来自: 中国四川成都
虽然不是教程,但还是感谢楼主提供实例。
发表于 2008-12-22 10:58:21 | 显示全部楼层 来自: 中国北京
先顶再下载,谢谢 :)
发表于 2008-12-22 15:34:41 | 显示全部楼层 来自: 中国广东深圳
看来来这里是来对了! 已下载,谢了!
发表于 2008-12-22 21:41:21 | 显示全部楼层 来自: 中国辽宁辽阳
感谢楼主无私奉献
发表于 2008-12-23 16:33:48 | 显示全部楼层 来自: 中国江苏无锡
下载了,学习中。谢谢楼主。
发表于 2008-12-23 17:03:10 | 显示全部楼层 来自: 中国黑龙江哈尔滨
不好意思 我学的太浅了 不知道这东东干吗用的
发表于 2009-2-12 17:44:18 | 显示全部楼层 来自: 中国浙江嘉兴
楼主真是大公无私,给我们奉献了怎么好的东西
发表于 2009-3-17 15:29:33 | 显示全部楼层 来自: 中国河北石家庄
hao a 非常感谢啊   太好了
发表于 2009-3-20 14:29:22 | 显示全部楼层 来自: 中国广东东莞
是啊  好资料 谢谢搂主
发表于 2009-3-20 15:50:28 | 显示全部楼层 来自: 中国四川成都
非常感谢
! ]* w% h  {3 O" `* J* }无私的人总是受欢迎的
7 v6 c' O# `+ e& N- Q, L9 o
1 \6 _7 B* ]: D6 n9 f' Q4 R8 C  
发表于 2009-3-22 08:48:23 | 显示全部楼层 来自: 中国广东广州
楼主能说说是怎么用吗
发表于 2009-4-2 15:41:01 | 显示全部楼层 来自: 中国广东深圳
好资料 谢谢搂主
发表于 2009-4-3 14:12:26 | 显示全部楼层 来自: 中国北京
谢谢楼主分享,学学,看看
发表于 2009-4-4 12:21:02 | 显示全部楼层 来自: 中国辽宁大连
不错很值得学习。5 c  k0 G6 R! D4 X- d
感谢分享!
发表于 2009-4-16 10:38:59 | 显示全部楼层 来自: 中国江苏泰州
真的很不错哎
发表于 2009-4-18 08:22:17 | 显示全部楼层 来自: 中国河南信阳
我接触下来学习了,感谢楼主!希望不久后我也能成为高手、、。
发表于 2009-4-24 08:30:36 | 显示全部楼层 来自: 中国北京
我什么时候能成为高手呀.
头像被屏蔽
发表于 2009-4-25 21:31:37 | 显示全部楼层 来自: 中国湖北武汉
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2009-4-29 19:49:01 | 显示全部楼层 来自: 中国湖南岳阳
不错,学习一下。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表