压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。: w; R8 e6 x5 e2 ^, w, K
bg.lsp --- 表格自动生成 . k* k# I0 l& k3 {1 W$ U
asc.lsp --- 将文本文件内容写入图中，字符是单个的
9 n0 G6 a4 b5 }4 Rwf.lsp --- 将图中字符写入磁盘
! e" q! F9 g- _( X( J, {% i# U" Jexstr.lsp --- 将字符串分解成单字 $ _7 Q, [' j! \/ X5 r& K
pgtxt.lsp --- 将字符合成字符串 4 p2 R6 X7 O# d, s8 m- ^
pb.lsp --- 通过给出长度将字符串分成两个串
: n# ~( S6 [& r1 m+ h6 u; Bcht.lsp --- 直接修改文字内容或块属性
. k# x; U3 `" f, U: P J7 ict.lsp --- 对数字串进行加减 ; `0 _2 I3 C. R( \8 _6 }" H+ F6 q
chh.lsp --- 直接修改文字高度
0 z$ C$ Y3 x7 u4 mchhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
# [5 P3 @* f! W, Wchst.lsp --- 直接修改文字字体 , j8 y) ^: ?* g6 p
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) - z4 D; I2 a% \
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 2 F& Y5 C% i f% H8 D
tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
) g* Q& b2 S9 @$ y) Q$ Muntiao.lsp --- 上两个程序的复原 ' U- }( l& X3 p+ j& t
sht.lsp --- 在图中查找字符串 " u% b* w: r( ~& p1 Q5 s
zhuang.lsp --- 桩点及钎探号绘制（勘测图）* @/ s* Z( F. Q: d2 ]
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) : E; Z ^8 A- j% J
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) ) ~* V7 t0 m. L+ z1 N
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
, c8 @2 ]4 b$ ?4 Adi100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
& X1 Z0 {2 ]2 e& Y, Hbrk.lsp --- 将一线条在与其它线条相交处断开
' e) J- a u. ^% F/ bpeditx.lsp --- 成批修改线条的线宽
6 a+ k9 u4 q3 j9 o' g5 s0 Q, {' t, Bex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 ! Y8 I$ |8 [% a/ W& G* A+ m
chcr.lsp --- 修改园和园弧的半径 |# {3 k2 @4 h& m) ?5 F4 S3 ]
lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结" T; O+ X) l+ T1 j- S
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
2 r0 ^4 v. l) a2 e6 }& ^0 S+ kbg1.lsp～bg4.lsp --- 标注各种标高
* h0 E: N4 @$ J ]( V8 D' X Hhu.lsp --- 直接给出园弧长度
! Z% ]1 l& n0 p \$ e: Fjdx.lsp --- 截断线 5 }9 H, d& d6 I: g8 r# X' [' T
jdx2.lsp --- 双截断线' F# p" k* ~3 V4 ~3 O
bdgj.lsp --- 板底钢筋(土建结构图用)
* z7 ?) D l7 _bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用): a# X/ v6 N( i i
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） # Q) O! E' I2 V6 ]
gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）7 ?- N. w+ ]' ]* K
gzz.lsp --- 构造柱绘制5 ^% j& d6 V7 K( D7 w& v
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: % B3 j# L5 p& Y- Q
XX -- 虚线(用于1:1的图)
+ c$ X( @1 H( }6 TDHX -- 点划线(用于1:1的图) $ |" H2 X+ X5 I2 B+ |- ]
XX100 -- 虚线(用于1:100的图)
6 m0 z0 C$ |( Q+ A# W' ]DHX100 -- 点划线(用于1:100的图)
9 p) L: q4 T3 H3 `8 k2 F% XACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: ?2 s' J, s6 o; y2 }- `
CHXX -- 将线型改为虚线(用于1:1的图) % O4 o- a( y ^8 h8 F! K
CHDHX -- 将线型改为点划线(用于1:1的图)
; E- R- A9 g% T8 p& ^CHXX100 -- 将线型改为虚线(用于1:100的图) # B- X" K9 h7 q
CHDHX100 -- 将线型改为点划线(用于1:100的图)
3 C; N F8 b5 BCHCON -- 将线型改为连续线
( J X, {( ]6 T8 o/ z& z, s) W4 _4 lCHC -- 直接修改实体的颜色
` W' k' g) D1 ~. V O5 s7 p
) k B- A4 Y( V9 ^* j
: U' b& Z0 N! |% h& y) R-->请点击下面的链接下载
6 h: h+ D, }) K! P, A, t' _0 a: Ihttp://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51