|
|
CADLISP程序，标高修改，管网标注，等一堆：
- a7 ]) V6 M A& \* N" ? |' l" q- I+ C0 R& x) i j
用APPLOAD命令加载程序，然后使用命令。。。。
' A5 K! g3 M6 C' m2 o0 S% X
& u( a# f$ U. E如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高! S3 B( m3 M6 D4 Q, n" N8 @( o% r
您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。$ E5 I& k3 e U' V$ I
* n5 ?! m, a2 E4 o: G+ q7 K
bg.lsp --- 表格自动生成 9 z$ p. f% [- b6 x! v
asc.lsp --- 将文本文件内容写入图中，字符是单个的 $ Y/ x7 Z# |0 g0 l
wf.lsp --- 将图中字符写入磁盘 + c* T8 g& l2 Z1 f+ Q
exstr.lsp --- 将字符串分解成单字
5 |1 t( H# ~$ t) Mpgtxt.lsp --- 将字符合成字符串
5 G/ ?% m: [+ i. q& W0 {: O$ xpb.lsp --- 通过给出长度将字符串分成两个串
e" X; J7 l+ J6 ^cht.lsp --- 直接修改文字内容或块属性 6 L0 u9 L; S- w
ct.lsp --- 对数字串进行加减 % _" g' w3 X( P0 \* s; v
chh.lsp --- 直接修改文字高度
6 V$ h9 t6 p. O9 T) ]2 ]chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
) b9 V4 `3 P3 J( ~3 xchst.lsp --- 直接修改文字字体
+ O Z+ |: J& H/ S1 `2 i1 z9 P# j: j3 L a4 W+ F( w0 g) j ~$ @0 `, n; n
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) ) s* w- Z8 [% |* P7 H/ R- V; C
1 F" p- ~$ n. o" c; m: W9 {' x
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
4 |( ^3 J# a3 F' ytiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
1 F8 m' L/ x. H, c; huntiao.lsp --- 上两个程序的复原
" }' C% q) f0 ?: B! {7 Y2 ~" p
/ c2 H% O! @: p& N1 m& R ssht.lsp --- 在图中查找字符串 ) p' w4 L: U4 n1 e! s! x5 g
zhuang.lsp --- 桩点及钎探号绘制（勘测图）
# K8 B: ~6 a U
% O7 u0 I; j) A, T8 d3 ^- d* W1 pdim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
# j) f4 r. e H& p" v5 @9 \dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) - S: j( V/ {8 G* f1 N
% C6 z" d+ Y9 xdi1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
! k. s, p! X& Y9 Jdi100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
0 a# N n9 s3 k# i: R6 j * @, w3 O1 a- R4 J1 g7 b% c/ g0 k
brk.lsp --- 将一线条在与其它线条相交处断开
7 G2 e; U V( `! Opeditx.lsp --- 成批修改线条的线宽
* o9 b, L# q! u2 Jex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 ( l# c6 X3 N& L( K9 V. V+ r
chcr.lsp --- 修改园和园弧的半径
* ]5 @9 Y1 @3 N( E( E3 Blay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结 - A6 l: a! j* }. [
. k- `8 ~7 |0 [% p
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用) * q( w; S9 L$ m- G
bg1.lsp～bg4.lsp --- 标注各种标高
) J- l9 t" c1 k5 j/ c+ H% V& s0 E+ X. T' ?. j4 H8 J+ a& u
hu.lsp --- 直接给出园弧长度
7 P: B1 k: T# r/ O G' V0 Y X5 W* }7 i) y# ?8 w( d3 m
jdx.lsp --- 截断线 & ]$ t0 Z. F2 t4 O9 d
jdx2.lsp --- 双截断线 4 X0 T7 ~- ], e4 j/ F
3 _2 c" l! x. g/ obdgj.lsp --- 板底钢筋(土建结构图用)
1 ]$ U7 V" a$ k \- ]bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用) ! z4 J. l2 a8 `1 o
! C: t) S; `8 m/ O6 sdk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
. g/ z3 N( F) S" igl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图） ! O4 t) ^( D4 L: X
" q ?( A$ M) O# Y; }" j" A9 h
gzz.lsp --- 构造柱绘制 - C& i4 R2 k4 Q. ~# {/ K
* ` p' V" F" ]- C
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: ; l; A7 v7 |. H1 Z' Z# }
5 S5 K3 n. h# ~: t+ C" M. T
XX -- 虚线(用于1:1的图)
9 k, F3 b! z3 S% K# b: P4 YDHX -- 点划线(用于1:1的图)
, k$ I0 N- e6 z% ~- W0 aXX100 -- 虚线(用于1:100的图)
6 s1 S! L l8 b$ A8 n$ j3 @4 F6 ZDHX100 -- 点划线(用于1:100的图) 6 F- r: N6 t. m5 B, N3 X8 o3 z
2 `8 z" l1 o2 P3 K7 a: A3 T! g
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: / l- m: t1 L+ v
) K' O9 K' q" z& F' o4 M" t; H' VCHXX -- 将线型改为虚线(用于1:1的图) : M6 Q$ F, l1 {5 f# d3 P
CHDHX -- 将线型改为点划线(用于1:1的图)
: o a+ [) l3 B7 _' }) t5 rCHXX100 -- 将线型改为虚线(用于1:100的图) - {7 ^) I# h+ X' n9 v
CHDHX100 -- 将线型改为点划线(用于1:100的图)
& T+ G; I7 o- xCHCON -- 将线型改为连续线 $ {: O9 h$ S$ H7 B' O# g
CHC -- 直接修改实体的颜色 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
x
|
发表于 2009-8-28 10:48
[/img]