压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。
( v+ i+ w" J6 b6 Y B* B7 U1 hbg.lsp --- 表格自动生成
& P9 z$ N, `5 M, Yasc.lsp --- 将文本文件内容写入图中，字符是单个的
0 K4 H5 ?) t( F9 Xwf.lsp --- 将图中字符写入磁盘 8 y2 ^) T5 n: {, E/ l/ t- ^: z$ w
exstr.lsp --- 将字符串分解成单字
: S1 J9 T9 o5 E) o$ k) Bpgtxt.lsp --- 将字符合成字符串
4 q& f+ E) o; Z9 @8 B( [5 D2 Vpb.lsp --- 通过给出长度将字符串分成两个串 ! g$ r3 F6 }1 E) X9 r4 h" Z
cht.lsp --- 直接修改文字内容或块属性 e+ `; J" z& f; u9 f
ct.lsp --- 对数字串进行加减
& B) }- I8 i: Ochh.lsp --- 直接修改文字高度
+ r8 a3 C3 }: {chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) 0 M& a4 G( \: P# v% C+ h7 \' G/ V6 c
chst.lsp --- 直接修改文字字体
6 i0 F- ~& K) stxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
+ z u2 e7 k6 L! r+ Xtiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 0 i( t+ o/ x4 U5 B m4 |% \, q
tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
1 W- y; Z" X* Q3 W K X+ W0 @untiao.lsp --- 上两个程序的复原
! ]1 ]( Q, w& Csht.lsp --- 在图中查找字符串 % A6 I' u I! i* ~
zhuang.lsp --- 桩点及钎探号绘制（勘测图） Y# B$ w" @* U C. S- e0 C+ E
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
( K8 j, K2 b, udimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) # u% b# d0 \5 q4 ]: j
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图) + G" N/ I3 L. k# r
di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图) ( |: O: [0 x: Y3 P
brk.lsp --- 将一线条在与其它线条相交处断开
6 S' i! I4 U; R) j" l: Epeditx.lsp --- 成批修改线条的线宽
! m7 b' _+ E8 r) aex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 . N1 v( @3 Y1 g' r/ ?
chcr.lsp --- 修改园和园弧的半径 ! Q- V( W' i @* X3 h" Q, m2 A1 V o
lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结$ X1 t7 m( y6 L0 x
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
0 s' E/ q& X1 V+ ? V0 o$ d3 Obg1.lsp～bg4.lsp --- 标注各种标高$ o& T, w1 v! G) U3 J0 U, q
hu.lsp --- 直接给出园弧长度; x! j+ C% Q" Z2 @
jdx.lsp --- 截断线 ( G6 k' F0 O" C) q1 s b
jdx2.lsp --- 双截断线7 a& q& x4 x) W8 w1 |- \4 \8 @, B1 U k
bdgj.lsp --- 板底钢筋(土建结构图用)
2 e) D8 t- B2 N5 J' sbdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
6 l) C% l' m2 l0 @+ y: p& udk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
' ]3 T8 k$ S; Y' x) jgl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）: K" i/ w0 n0 W2 L4 y6 r7 T
gzz.lsp --- 构造柱绘制
k( ?$ F2 O) o3 ?# s9 c' PACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
0 @, _: s/ T3 C: H- ?! e( iXX -- 虚线(用于1:1的图) * h. z2 @7 R% W( {
DHX -- 点划线(用于1:1的图)
- f4 a: n. b2 [& ^: e1 \XX100 -- 虚线(用于1:100的图) : h N$ I) @/ t; U& J. W
DHX100 -- 点划线(用于1:100的图)# {) ^% f/ N2 H, `& F
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: * @* ~' {0 }) j- G) }9 @ O" I
CHXX -- 将线型改为虚线(用于1:1的图)
+ H2 V# \: E# P$ KCHDHX -- 将线型改为点划线(用于1:1的图)
8 s! P, F; |" wCHXX100 -- 将线型改为虚线(用于1:100的图) - v( i* Y9 r. [7 X* \; p
CHDHX100 -- 将线型改为点划线(用于1:100的图)
: I }& P0 w+ {9 D5 Z6 U3 P8 E) X! cCHCON -- 将线型改为连续线
( r6 ]% G; ]7 P: XCHC -- 直接修改实体的颜色
% }( l7 D8 A4 J
2 L& p+ T& G* A8 _' u/ S% n$ m, F) a
-->请点击下面的链接下载- P# Y: K9 A6 |8 k _
http://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51