QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 版主微信号:caivin811031;还未入三维微信群的小伙伴,速度加
2022-07-04
全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
查看: 20203|回复: 77
收起左侧

[分享] AutoCAD Lisp程序100例

[复制链接]
发表于 2008-6-14 11:13:10 | 显示全部楼层 |阅读模式

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

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

x
压缩包中含有以下面程序,且均以源程序方式给出,您可以使用、参考、修改它。解压缩后请先看说明文件。( {7 \- I  h0 g' k: E* ^  {6 G! b
bg.lsp --- 表格自动生成
; ?2 M$ ^! R8 }4 g8 Z  L( Xasc.lsp --- 将文本文件内容写入图中,字符是单个的
8 k% m/ Z0 k7 Y! o# w, U9 zwf.lsp --- 将图中字符写入磁盘
8 a9 c4 v' O3 o% h# E# k9 {  l$ Yexstr.lsp --- 将字符串分解成单字 8 A& k1 N- {3 _* Y
pgtxt.lsp --- 将字符合成字符串
! S# S9 J! b  X: ?& Mpb.lsp --- 通过给出长度将字符串分成两个串
* z, ^4 X* [* R, d4 rcht.lsp --- 直接修改文字内容或块属性
0 O9 V+ f. H2 V* ^8 Mct.lsp --- 对数字串进行加减
  R3 [- k4 u: C2 G4 j0 Y1 N' A5 W" \$ }chh.lsp --- 直接修改文字高度 % h# i1 L* B; v5 X9 Y' b
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) ( b& y% R* h" y
chst.lsp --- 直接修改文字字体 ' i3 h0 S/ H# d3 L- \+ \9 i- \
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
4 G4 a* e& N- z1 b6 Ttiao.lsp --- 配合修改过的标准字体文件,将中文字符调大   x& W) ^; t' {" }* j; |
tiao1.lsp --- 配合修改过的标准字体文件,将英文字符调小 ' Q( Q) Y2 F* r0 o, e7 c- X* L
untiao.lsp --- 上两个程序的复原
. w7 Z( L+ S  T0 D/ Zsht.lsp --- 在图中查找字符串
+ P  |3 j& k) W% C6 P) l, ~0 u; a$ D& gzhuang.lsp --- 桩点及钎探号绘制(勘测图)! h" Q  R. a- M8 |0 b; `7 p7 r, `! ]; ?
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
+ m6 _! g: c2 G" s4 pdimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
) ~) ?5 i: C' f( r# k3 ndi1.lsp~di8.lsp --- 直接连续标注尺寸(用于1:1的图)
  R1 P8 G% k& E& _) @0 q$ gdi100.lsp~di800.lsp --- 直接连续标注尺寸(用于1:100的图)   ; P: |; ~- T* f  d/ P6 B/ d5 T1 \
brk.lsp --- 将一线条在与其它线条相交处断开 $ O  i  S6 l) j! t: _. H
peditx.lsp --- 成批修改线条的线宽 $ L. Z* C) ~& c% x' K- U* y$ p
ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 1 [7 M9 p: A4 Z+ R- q$ [- M5 H
chcr.lsp --- 修改园和园弧的半径
2 t" G0 L  m3 h" B. q- E, s; n$ Mlay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结1 o7 u% C: E+ x3 G- G
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
& h$ m5 C& x) m! D! t% s3 o7 s! ibg1.lsp~bg4.lsp --- 标注各种标高
/ J' w4 _8 z* n' O7 ghu.lsp --- 直接给出园弧长度% a! |$ \! o7 I6 B1 I& \
jdx.lsp --- 截断线 . n9 q! E4 Z: p% p% j  v
jdx2.lsp --- 双截断线6 V# A0 y; F" A" k( s7 W& k0 M
bdgj.lsp --- 板底钢筋(土建结构图用) 6 r5 ^  _" ^6 v/ \1 q/ h& [( [
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
  `# o% @3 l- c, Y$ L' fdk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞) * O5 k+ P8 u# _! Q3 z! P6 V2 T6 H
gl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图)$ x% c5 p. q$ @* h
gzz.lsp --- 构造柱绘制
8 a% `; V, Y: M$ ~6 kACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
- p  j4 B4 x& C; PXX -- 虚线(用于1:1的图)
$ Q% x; Z8 n2 XDHX -- 点划线(用于1:1的图) % Z! p( b) E! i9 \% O
XX100 -- 虚线(用于1:100的图)
# L4 {0 D( n% t" i! D+ }) \1 IDHX100 -- 点划线(用于1:100的图)2 f. K& w+ z7 [& v8 ?, X
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: + c; Z) S4 M+ z
CHXX -- 将线型改为虚线(用于1:1的图)
2 o, ^5 l- A& I, M) fCHDHX -- 将线型改为点划线(用于1:1的图)
! b! r) [3 d# fCHXX100 -- 将线型改为虚线(用于1:100的图)
( u, _. P1 k) _4 l0 R' T! ZCHDHX100 -- 将线型改为点划线(用于1:100的图) * }& T- |. X7 u; P/ K2 b$ s
CHCON -- 将线型改为连续线 ; ?) [* ?2 y2 {! W: ^
CHC -- 直接修改实体的颜色

Autocad100lisp.zip

491.88 KB, 下载次数: 1746

评分

参与人数 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 | 显示全部楼层
非常感谢" I; `* e1 ]) {1 Q; i1 L/ f5 v  K
无私的人总是受欢迎的
' ]8 q. f+ f- e8 ~+ z- i5 L# N( m% I, E3 X1 ~# l* U- J# p2 h0 Z, B
  
发表于 2009-3-22 08:48:23 | 显示全部楼层
楼主能说说是怎么用吗
发表于 2009-4-2 15:41:01 | 显示全部楼层
好资料 谢谢搂主
发表于 2009-4-3 14:12:26 | 显示全部楼层
谢谢楼主分享,学学,看看
发表于 2009-4-4 12:21:02 | 显示全部楼层
不错很值得学习。1 Z, I" y# q5 w6 k/ Q2 Y
感谢分享!
发表于 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备13008828号-1 )

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