|
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
|