CAD设计论坛

用户名  找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 10016|回复: 16

CADLISP程序,标高修改,管网标注,等一堆

[复制链接]
发表于 2009-8-28 10:48 | 显示全部楼层 |阅读模式
CADLISP程序,标高修改,管网标注,等一堆:+ @) c" Y; h$ Q
% B6 k% v8 ^- B: w
用APPLOAD命令加载程序,然后使用命令。。。。
; A+ m7 C( i$ h' G( p1 M# [, |
6 B+ u- ~% n9 K* ]- R如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高
1 ~/ }  D" q$ D# Y( V; k您的工作效率。下面的程序均以源程序方式给出,您可以使用、参考、修改它。' |' B8 d- r8 }5 Q& H& C

' k" t' R+ G4 Y: L* z/ }9 zbg.lsp --- 表格自动生成
0 g" t5 `) q  w# D2 ?asc.lsp --- 将文本文件内容写入图中,字符是单个的
5 I. ~' r( Y% j. W  S- _wf.lsp --- 将图中字符写入磁盘
/ D5 [) E$ V- s: Uexstr.lsp --- 将字符串分解成单字
5 Y$ K6 }7 }( r: opgtxt.lsp --- 将字符合成字符串
+ q3 J% J' b! I/ P* E- @; Zpb.lsp --- 通过给出长度将字符串分成两个串
: c: c  k1 i& ?: w) Wcht.lsp --- 直接修改文字内容或块属性 3 r9 q/ d. r4 U, v% q
ct.lsp --- 对数字串进行加减 " a2 S; q6 R" r9 W
chh.lsp --- 直接修改文字高度
$ M& ^/ c" J$ O9 [. y8 \" Lchhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) . d$ V+ V! v' r, y
chst.lsp --- 直接修改文字字体 & \5 V" r" Y0 @1 v7 a  P

! Q) y7 d, p+ b/ t& v5 _% gtxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) 6 e4 r6 v' A/ S+ g' a+ [) j: U/ l
! s. \2 e2 [1 P/ V0 E
tiao.lsp --- 配合修改过的标准字体文件,将中文字符调大 ( ]0 a5 ~+ \* d& f0 K
tiao1.lsp --- 配合修改过的标准字体文件,将英文字符调小
4 a+ i7 v# V1 o& g; L' ?9 H) Wuntiao.lsp --- 上两个程序的复原 % ~6 Z: u$ v; w+ L

( E: y4 }4 W* x" x- Fsht.lsp --- 在图中查找字符串 4 h" W* ^) M/ d) k6 k' x& t. Q( t! G
zhuang.lsp --- 桩点及钎探号绘制(勘测图)
0 X) i1 D9 k+ ]1 @0 v2 c
' U& p' V( g. Y  @  Ndim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
! Y* _( O3 m3 z# {dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) ) @: k9 Q8 g! v+ P* {8 z

+ e& u  G! q2 t! F* K$ ~9 Fdi1.lsp~di8.lsp --- 直接连续标注尺寸(用于1:1的图)
" X% l/ x7 w; Odi100.lsp~di800.lsp --- 直接连续标注尺寸(用于1:100的图) * Q2 I. G) ~  H2 g, O; ^, N7 x- b
  5 g: \' _, K" K2 ^& \
brk.lsp --- 将一线条在与其它线条相交处断开
1 @8 M' w- L8 I7 z! {peditx.lsp --- 成批修改线条的线宽
) t& P3 }. G5 V5 wex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 * h; ~: C5 o+ ]0 g2 E
chcr.lsp --- 修改园和园弧的半径 7 u9 l: G9 I" p) \- H4 F
lay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结 * j" V/ W! `' u; s( x2 f* ?* d

$ T; w; w: W% b) Vbg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
9 }+ [' a; Y1 \$ fbg1.lsp~bg4.lsp --- 标注各种标高
$ k  O. @/ c3 V2 [4 n/ @& o) ]( }  }2 d
hu.lsp --- 直接给出园弧长度
+ B; {7 ~) n) f0 }  D3 S8 X2 y* W/ G
jdx.lsp --- 截断线 0 Q( D  [+ G" c' v+ S
jdx2.lsp --- 双截断线
# z' w! A6 [% z9 }% p& d% B  @" h8 P3 L
bdgj.lsp --- 板底钢筋(土建结构图用)
( b; p( s9 f* ^' C+ Y3 K- obdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用) 4 O& r$ r  d4 g6 x; X3 X' }

5 ^3 m: h9 p3 e, x2 X2 P8 h8 tdk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞)
, `6 l3 y& L) u3 C* _) G8 tgl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图) $ f' E" m: B- Q1 U; f0 T6 Y

* U4 P4 h( P/ H) `gzz.lsp --- 构造柱绘制
3 z# n/ U4 B2 s( A" b2 U
2 x1 L5 v( u0 H6 U6 zACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
8 w! c8 m7 o9 A* j( \. Z$ f1 E1 }6 e) D7 I+ F* ^! l
XX -- 虚线(用于1:1的图)
& N8 v6 `' @. P+ fDHX -- 点划线(用于1:1的图)
0 Q" j4 E* R! CXX100 -- 虚线(用于1:100的图) + D7 H" B% R% ?2 d, F# v$ r0 [
DHX100 -- 点划线(用于1:100的图)
3 `3 a: p  m/ e/ e6 m$ ^7 w8 l9 z0 J1 ?# \) Q8 M
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
' ^( e) x; [0 n( e5 N0 z
& S! Q. D7 Z# ^( o) cCHXX -- 将线型改为虚线(用于1:1的图) , b2 d( M  S* d6 j' s6 ?) ?$ B
CHDHX -- 将线型改为点划线(用于1:1的图) 1 P4 b3 {$ L" U& G/ d2 m
CHXX100 -- 将线型改为虚线(用于1:100的图) ( L8 k6 H/ D& H. X5 ^" |  T+ R
CHDHX100 -- 将线型改为点划线(用于1:100的图)
2 K, B* c! X* O2 P1 ?7 C8 T) XCHCON -- 将线型改为连续线
9 W0 S; V0 c, O* p' u$ ~" Y; Q* Q% }CHC -- 直接修改实体的颜色

本帖子中包含更多资源

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

x
发表于 2009-10-21 11:56 | 显示全部楼层
没钱啊,下不了,说给咱发下,不甚感激461167418@qq.com
发表于 2009-10-21 20:35 | 显示全部楼层
挺好的东西,下来看
发表于 2010-1-18 22:11 | 显示全部楼层

22222

ding,ding,ding

评分

1

查看全部评分

发表于 2010-1-18 22:12 | 显示全部楼层
ffdffffffffffffffffffffffff

评分

1

查看全部评分

发表于 2010-6-12 10:27 | 显示全部楼层
东西很好啊,就是没金币啊
发表于 2010-6-13 06:56 | 显示全部楼层
挺好的东西,下来看
发表于 2011-8-13 02:41 | 显示全部楼层
高手啊,谢谢楼主分享
发表于 2011-11-6 09:48 | 显示全部楼层
好东西哦。 需要呀
发表于 2012-9-8 11:00 | 显示全部楼层
我已经登陆了
  ^$ O; L! {5 ~" o" c/ P( E为什么一下载就要我登陆
: m5 V/ Z' q( z8 a9 n但却登陆不了呢
发表于 2012-9-8 11:01 | 显示全部楼层
奇怪扥8 S3 }- c2 W' P# u! {
发表于 2012-9-8 11:02 | 显示全部楼层
我要下载
& U3 W0 ^: k8 Z7 c3 p3 h: _, O! b; r1 o
3 `, v) y; F1 \1 C
发表于 2013-9-25 10:18 | 显示全部楼层
好东西,学习一下。
发表于 2013-10-21 16:09 | 显示全部楼层
挺好的东西,下来看
发表于 2014-8-17 16:01 | 显示全部楼层
东西不错啊。谢谢LZ
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-5-22 15:53

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

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