|
|
CADLISP程序，标高修改，管网标注，等一堆：/ W3 S K) g3 {6 Q2 F5 A e m
' ]5 Z+ u$ Z& z" r! H1 v: r9 h; P- x
用APPLOAD命令加载程序，然后使用命令。。。。
* s. ?8 _1 F a5 K
$ A( X" { P4 d如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高
9 t2 u3 w/ u$ e8 D: ^" T: N" I您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。2 P- I& n, G2 U @
1 J0 G6 |0 T! |0 W$ Tbg.lsp --- 表格自动生成
7 F W7 J* }8 a+ Q' H5 Dasc.lsp --- 将文本文件内容写入图中，字符是单个的
0 I. d W/ |" b2 Owf.lsp --- 将图中字符写入磁盘
0 h7 d6 g5 _7 f( h \# h. Y- D1 fexstr.lsp --- 将字符串分解成单字 & E* o/ M( P6 D: s' W# l
pgtxt.lsp --- 将字符合成字符串 $ |% a" s- z: R+ E7 N
pb.lsp --- 通过给出长度将字符串分成两个串 + h, a9 e& O$ o& a* z
cht.lsp --- 直接修改文字内容或块属性 + ~. b# G, j* \# w3 B
ct.lsp --- 对数字串进行加减
8 W0 k. i/ k5 J3 z, cchh.lsp --- 直接修改文字高度 3 O8 B9 j# Y3 b1 a% c8 K8 O; t
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) + d( I2 z9 {' R9 L; \5 d
chst.lsp --- 直接修改文字字体
$ ?: u# K, @ A' M8 F0 S# u
1 L9 t8 t C- j5 K2 ttxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
5 K0 L3 G7 X6 E; ~. r/ l a* C& r: @( p3 P8 e
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 , T" ?7 L; L) y
tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
4 Z2 ^$ C! ] N, d- Runtiao.lsp --- 上两个程序的复原 1 z9 P% u; v( Q* @
, s1 M& N; O% G. k, b7 Y& I( |/ Z
sht.lsp --- 在图中查找字符串 7 }+ c! A) H' E/ m# i
zhuang.lsp --- 桩点及钎探号绘制（勘测图）
' ^2 P9 X' E- B, m% F7 w
+ ~: L. v% {( C ?4 h2 ~' Ydim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
/ S* T5 m$ ?' L Pdimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
0 ^+ m3 L( r" b+ o, A0 ]# h/ G6 |8 x8 Y3 z5 T. l
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图) 7 g' n: p8 k ?3 Q4 s6 p
di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图) - |- ~: k& f) }# R5 z" m
" @. W' K! G% p$ z1 R- H, p) X
brk.lsp --- 将一线条在与其它线条相交处断开 2 X7 _ B0 G5 t* Q; D" j9 ~0 y [
peditx.lsp --- 成批修改线条的线宽 2 [+ l; c* P- c4 Y
ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 4 T9 y$ S/ @6 e- T' U, g( V1 z
chcr.lsp --- 修改园和园弧的半径 6 t) Y$ f6 q8 ]. @6 o
lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结 7 F7 d7 ~3 p& x* X4 a1 V( z8 ]3 s8 n
' f- ~: ]& w' U4 w- F
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用) ! q2 R9 `' K- j$ d: Z" U; x+ O
bg1.lsp～bg4.lsp --- 标注各种标高
% `0 W$ V. N% M5 t
: e, s! x. l" [/ U* z) K2 ghu.lsp --- 直接给出园弧长度 : w2 k) K: G+ o; b- x2 d" [1 @
- C/ N* t! L/ ~* ejdx.lsp --- 截断线
# M% O5 H( |# D8 C6 o6 N% d7 E8 qjdx2.lsp --- 双截断线 6 {) P- o& |$ ^& g& _/ C4 C
" f. b# L3 s: \1 K* I8 q) Zbdgj.lsp --- 板底钢筋(土建结构图用) X- ^( D3 w/ i8 [" d; R x- d
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
5 R' l2 F, D A$ d
" V0 a6 s! F* B. P) l, H# n" Zdk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
' v& x# F4 D1 V1 I0 Hgl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图） # A: Y8 d7 k1 G- ~
, ~* O2 B& {9 J" e V( K
gzz.lsp --- 构造柱绘制 1 t6 P! {. s7 ]2 i8 I' k
4 p: s2 F Q$ O8 }) }. \
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
; }1 ^5 N0 ?0 F5 I+ }
8 N0 U/ i5 i9 E: {/ I. E# VXX -- 虚线(用于1:1的图)
9 t1 l1 ] r8 v% `% s6 cDHX -- 点划线(用于1:1的图) 7 v7 F) q: B: X
XX100 -- 虚线(用于1:100的图) ' F5 g( {7 K0 {. Q& |8 b/ [
DHX100 -- 点划线(用于1:100的图) ; v9 S C6 U- d5 G+ J
; X# @/ n3 a! @3 C. Y# d
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
, i8 V3 ?8 Q a7 o* g: B; k5 w
1 T6 t" e: ]6 A9 t# `CHXX -- 将线型改为虚线(用于1:1的图) $ v. S9 V+ }! N0 d: Q
CHDHX -- 将线型改为点划线(用于1:1的图)
& R3 Z ^& J% m8 gCHXX100 -- 将线型改为虚线(用于1:100的图)
2 J8 n2 j( P0 D! w* d4 {! J, [1 KCHDHX100 -- 将线型改为点划线(用于1:100的图) ( L: I ~5 V* b3 f \
CHCON -- 将线型改为连续线
' p1 g. V6 j4 X# n/ \. h2 TCHC -- 直接修改实体的颜色 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
x
|
发表于 2009-8-28 10:48
[/img]