压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。/ @" o7 G @, U- `+ s
bg.lsp --- 表格自动生成
/ X$ A( x: T+ z# _" i$ U+ k( M5 @asc.lsp --- 将文本文件内容写入图中，字符是单个的 $ t# d+ f% D0 f! N: d0 A
wf.lsp --- 将图中字符写入磁盘 + c: R8 R5 ?1 k6 X! T
exstr.lsp --- 将字符串分解成单字 . f+ v* G& Y3 w3 s5 A: ]: C; y9 v. H
pgtxt.lsp --- 将字符合成字符串
# X& p$ p; m+ ppb.lsp --- 通过给出长度将字符串分成两个串
8 r# \) g; _3 o4 R5 t% D' acht.lsp --- 直接修改文字内容或块属性 4 O* k' k- A8 {/ P Z
ct.lsp --- 对数字串进行加减 / t, u n; h" Z9 z. L/ D
chh.lsp --- 直接修改文字高度
' E& H% w9 h( u5 N% U) xchhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) 8 b3 x1 e4 Y2 z0 C* ~
chst.lsp --- 直接修改文字字体 5 t2 g; q! g% F
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
, J! Y4 Y8 C2 O: ?tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
$ s* t: k; `$ n4 wtiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小 + B$ \ F( M/ g1 |, M$ \ o
untiao.lsp --- 上两个程序的复原 ' m0 C( [; }$ j* H- }4 c& R# t
sht.lsp --- 在图中查找字符串
1 @. e' j, u5 x" S8 J* p/ D" gzhuang.lsp --- 桩点及钎探号绘制（勘测图）4 |* I) g& g' ^" o9 H0 m+ o; B
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
: j; J8 y1 J/ J( y* Gdimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
- [8 o! [" _; Q$ R# Rdi1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图) * _1 v5 X" w4 q6 c' K
di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
' C& U# V4 {) G2 |, dbrk.lsp --- 将一线条在与其它线条相交处断开
! Y6 m# L8 X# i3 _5 P' ^# gpeditx.lsp --- 成批修改线条的线宽
" w1 b( f% C8 I3 @ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
1 M2 K- }3 Y/ {0 W& I Qchcr.lsp --- 修改园和园弧的半径
- F6 }. c* O& T; n G2 V3 y2 Clay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结
$ z# B- F9 @. z5 zbg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
/ B: i$ N! _% C# `/ c/ G0 [5 _bg1.lsp～bg4.lsp --- 标注各种标高! |* o- v* Y5 U
hu.lsp --- 直接给出园弧长度) B( ^# j7 \4 v+ x6 d2 U
jdx.lsp --- 截断线 " r$ d4 u8 D. m1 K: d% g
jdx2.lsp --- 双截断线
4 ?: H% t4 S- @7 Q7 bbdgj.lsp --- 板底钢筋(土建结构图用) . o7 }1 R! ^5 d" s. X
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
+ ]/ U+ M: r* f6 Z y3 K) kdk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） 7 ~; f) ?- S6 d5 k2 D
gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）
% T, F4 o0 u, o* ogzz.lsp --- 构造柱绘制3 C2 K' e: f/ `. g6 }/ }% h' S
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: 9 i7 x& l) v3 ^* I
XX -- 虚线(用于1:1的图) , l# u; O6 ^5 `
DHX -- 点划线(用于1:1的图) 5 y f5 ~5 ?( J" y% m
XX100 -- 虚线(用于1:100的图)
R6 t' Z: Y1 b" kDHX100 -- 点划线(用于1:100的图)6 m& V) e- U- Y# w: {& O
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
: q2 D. Q3 {1 m( ~CHXX -- 将线型改为虚线(用于1:1的图) , s. K3 Z! t! o. ~% M' ]+ _1 k' Y
CHDHX -- 将线型改为点划线(用于1:1的图)
8 E5 N) m+ l( B6 `/ Z& jCHXX100 -- 将线型改为虚线(用于1:100的图) * n, b5 }+ s0 A+ A; x" p6 l
CHDHX100 -- 将线型改为点划线(用于1:100的图)
! ^6 t8 J H' a, V% a' JCHCON -- 将线型改为连续线 ! J5 o7 T+ \. Z9 d! o% \6 w+ v
CHC -- 直接修改实体的颜色 % I0 L2 ~0 y# O3 s" |% v' a1 T4 K
& U4 I" n: K; F$ U2 _( U3 h
" t/ d. j7 a& ^9 f* H9 k-->请点击下面的链接下载
! s4 _9 D7 r& e1 [) J4 @( V6 ]http://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51