QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

全站
goto3d 说: 此次SW竞赛获奖名单公布如下,抱歉晚了,版主最近太忙:一等奖:塔山817;二等奖:a9041、飞鱼;三等奖:wx_dfA5IKla、xwj960414、bzlgl、hklecon;请以上各位和版主联系,领取奖金!!!
2022-03-11
全站
goto3d 说: 在线网校新上线表哥同事(Mastercam2022)+虞为民版大(inventor2022)的最新课程,来围观吧!
2021-06-26
查看: 20243|回复: 77
收起左侧

[分享] AutoCAD Lisp程序100例

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

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

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

x
压缩包中含有以下面程序,且均以源程序方式给出,您可以使用、参考、修改它。解压缩后请先看说明文件。
7 w9 U4 {* M( v* `( w' [; Lbg.lsp --- 表格自动生成
" b; f9 L3 j7 M5 N: g' S* casc.lsp --- 将文本文件内容写入图中,字符是单个的 ) D5 K3 o0 o7 T8 f3 n5 Z' l
wf.lsp --- 将图中字符写入磁盘
( A8 C% E! B$ Y9 Sexstr.lsp --- 将字符串分解成单字 4 k8 Q, p- g  n+ m$ r* Z# `
pgtxt.lsp --- 将字符合成字符串 2 ]  `4 {/ c2 \5 V6 D. ?4 h7 a0 q
pb.lsp --- 通过给出长度将字符串分成两个串 % ]4 I4 N" Z- c$ W3 a  ~
cht.lsp --- 直接修改文字内容或块属性 3 G4 j2 E8 C7 X; g) Q
ct.lsp --- 对数字串进行加减
6 t/ P# E& M) m8 d# \8 H7 P4 ichh.lsp --- 直接修改文字高度
4 a: j5 ~3 V+ y4 w* Pchhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) # y9 C9 h9 X7 u3 ~0 b
chst.lsp --- 直接修改文字字体 0 y( l; L* X7 a0 J0 r9 @
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) : [) ~: X) ]: z0 i8 h
tiao.lsp --- 配合修改过的标准字体文件,将中文字符调大 # x2 E) U+ K% M
tiao1.lsp --- 配合修改过的标准字体文件,将英文字符调小
  H1 w2 O5 x3 h: @, ^untiao.lsp --- 上两个程序的复原   X0 e& }2 I+ a* S) X
sht.lsp --- 在图中查找字符串 0 Z; ~% n6 z4 T& S( ?2 W3 R% F
zhuang.lsp --- 桩点及钎探号绘制(勘测图): {' v: u" Z5 {9 H# p
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) 2 `& T0 b7 L: L& c
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
8 k, S$ o1 N# ?' D- Hdi1.lsp~di8.lsp --- 直接连续标注尺寸(用于1:1的图)
9 q" ~3 Z. z, C  I* vdi100.lsp~di800.lsp --- 直接连续标注尺寸(用于1:100的图)  
: ^2 j& |9 r* s, {4 M* dbrk.lsp --- 将一线条在与其它线条相交处断开
/ _4 j- p: }% H/ b3 Kpeditx.lsp --- 成批修改线条的线宽
6 J/ o& t4 n& V" t/ I9 ]/ tex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
, q! Q% {4 {1 [  `+ e5 Z  qchcr.lsp --- 修改园和园弧的半径
+ r; i* B4 D5 Y8 C+ t( v, ulay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结7 o% {6 B2 {& J/ Z; d* \
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
+ x# F; _* T5 b; O- e) {/ t' bbg1.lsp~bg4.lsp --- 标注各种标高
, A. g) ]0 p1 u5 m! K: J: m7 ehu.lsp --- 直接给出园弧长度1 ?) `$ o1 c1 O
jdx.lsp --- 截断线
. G6 x# h& Y) E  N8 ]jdx2.lsp --- 双截断线( n% Y4 H( f( p# U
bdgj.lsp --- 板底钢筋(土建结构图用) 7 B" X. i5 P% q/ \
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)' ^' F3 q8 i- x
dk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞)
8 ~, j6 t3 R; m5 Hgl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图)) X' Y7 h; y; o2 d
gzz.lsp --- 构造柱绘制( r" ]2 n9 c* v: y! x$ r, s
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: % `. f+ E# a( c" x
XX -- 虚线(用于1:1的图) 5 @- b7 q9 @& o5 z( Q' q
DHX -- 点划线(用于1:1的图)
) g1 u+ k+ d- X; WXX100 -- 虚线(用于1:100的图) 9 g- T& o' g1 f2 C  v, U
DHX100 -- 点划线(用于1:100的图): y+ Q9 }' i, r5 l' x
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: ) O9 m6 J7 _: R" D( y- J
CHXX -- 将线型改为虚线(用于1:1的图)
, m$ l5 g, w- n: H& kCHDHX -- 将线型改为点划线(用于1:1的图)
& L6 u$ b( y/ ^1 {" f  @) j1 HCHXX100 -- 将线型改为虚线(用于1:100的图) & k  d& `8 {  O1 {( @- M
CHDHX100 -- 将线型改为点划线(用于1:100的图) 0 A9 {; n1 p, e
CHCON -- 将线型改为连续线 " m: g' c3 J3 X+ H0 j, F# j# z
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 | 显示全部楼层
非常感谢3 g9 M- P1 j1 r
无私的人总是受欢迎的3 Y7 B# m, P1 b, n# }6 V% l

6 o6 R" U( v* C# n3 b8 e  
发表于 2009-3-22 08:48:23 | 显示全部楼层
楼主能说说是怎么用吗
发表于 2009-4-2 15:41:01 | 显示全部楼层
好资料 谢谢搂主
发表于 2009-4-3 14:12:26 | 显示全部楼层
谢谢楼主分享,学学,看看
发表于 2009-4-4 12:21:02 | 显示全部楼层
不错很值得学习。, C4 |; @2 ?. `% z1 c* T
感谢分享!
发表于 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 )

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