压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。
* f+ h! c! Z% X; i% Xbg.lsp --- 表格自动生成
& q3 Y; b4 l- F4 ]1 p' K' [asc.lsp --- 将文本文件内容写入图中，字符是单个的
: @( Q( X4 o- w) owf.lsp --- 将图中字符写入磁盘
J$ s3 |. C W% N: |4 F; D! Texstr.lsp --- 将字符串分解成单字 + _ D: S/ N+ z! S2 ~. m' n
pgtxt.lsp --- 将字符合成字符串 5 A3 b/ ?- p0 g# t
pb.lsp --- 通过给出长度将字符串分成两个串
/ c2 p4 o' A& c8 h- p' P- |cht.lsp --- 直接修改文字内容或块属性
5 S9 F2 C0 [8 P1 q h$ g9 F0 bct.lsp --- 对数字串进行加减
2 N) ~' W+ n4 ]- J! ^3 |chh.lsp --- 直接修改文字高度
0 A6 o4 f- m3 D" e! f* `; F; @chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
6 o+ F7 l3 C! v' l4 u1 C: Lchst.lsp --- 直接修改文字字体
' R: |! f2 n5 D6 ]' O& }) Gtxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
" n1 Q/ @" h* p3 }; w, ntiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
( i; ~: K+ M4 D, Z9 U Ntiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
: T7 g; L- c# s4 {7 z: n: euntiao.lsp --- 上两个程序的复原
1 m5 J" N' x7 Q& u3 X9 N) isht.lsp --- 在图中查找字符串 : _" y+ F; ^( P) y
zhuang.lsp --- 桩点及钎探号绘制（勘测图）( _, C+ g( f ^2 Z7 J
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) , K* k) {9 i6 Y! Q
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) * X0 I9 C x1 l( R$ ~
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图) 4 N% R7 m) K1 U8 Z
di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
9 g6 P, E8 l- ]$ B6 s! Nbrk.lsp --- 将一线条在与其它线条相交处断开 0 Z4 Q' h7 F8 d, P! N6 h$ m3 M
peditx.lsp --- 成批修改线条的线宽
7 o: H8 k( X% `, M9 ^' h$ a' gex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 + c# E2 \4 B0 O! C$ r, z" m. b( c
chcr.lsp --- 修改园和园弧的半径 9 U3 G* j4 R+ O- f5 j( Z
lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结. `: B! u" C }. w+ x
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
# `0 |7 ~/ X/ o3 r$ n* rbg1.lsp～bg4.lsp --- 标注各种标高
3 I4 D1 ^: F5 w- ^0 Uhu.lsp --- 直接给出园弧长度
0 q, T1 X0 ^1 q% I; gjdx.lsp --- 截断线 ; z; Z. K3 U, W6 L& k C
jdx2.lsp --- 双截断线
; U2 o7 ^# u5 o$ Mbdgj.lsp --- 板底钢筋(土建结构图用)
/ `& g, u; b) `: Abdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)7 } e9 L- ~* \2 F% E: z5 x) T5 T" R
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） & v- A- D5 {6 t' e5 L) n
gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）
9 Z/ U1 J4 z. h* ugzz.lsp --- 构造柱绘制) u1 G- G5 H* ^4 a
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: $ r6 I( @& h6 a; ^0 M5 m" x) m* H
XX -- 虚线(用于1:1的图)
4 M- g- `, s. ?7 r4 H9 Z5 ?DHX -- 点划线(用于1:1的图)
1 P3 O' J9 F- D7 B9 a# B8 P qXX100 -- 虚线(用于1:100的图)
0 [# l' K" A9 ^6 c8 N" j7 F. D) ADHX100 -- 点划线(用于1:100的图)7 [: u- z0 |8 @4 d1 D. {
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下: 3 P# W# W! Z% X, e e
CHXX -- 将线型改为虚线(用于1:1的图) 5 ^; L6 L, u9 F a3 ]& [! @+ ^
CHDHX -- 将线型改为点划线(用于1:1的图)
- ?$ n( }7 S j7 RCHXX100 -- 将线型改为虚线(用于1:100的图)
, T9 j9 W( E! Q, h; A, zCHDHX100 -- 将线型改为点划线(用于1:100的图)
7 U3 o7 \( t5 h$ l$ N/ KCHCON -- 将线型改为连续线 6 y, m* `( M& }7 e5 X$ R/ s
CHC -- 直接修改实体的颜色 ( n. G$ g) Z3 } ]# B m* X$ c
& y! `9 T1 r& V( F: N( |# G
5 D% b1 a3 J" u' ~' O+ _-->请点击下面的链接下载
& k7 w* \) w5 Z. p& Ehttp://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51