压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。
( D2 P0 V3 h/ c9 _bg.lsp --- 表格自动生成 4 p# X* r) E( \, k2 k1 U5 N
asc.lsp --- 将文本文件内容写入图中，字符是单个的
; a( ]" `7 L: p# Xwf.lsp --- 将图中字符写入磁盘 & H! l. Q, {- S$ j: A3 G
exstr.lsp --- 将字符串分解成单字 & [' e$ l- o2 @' {5 u# }
pgtxt.lsp --- 将字符合成字符串 1 }% F( V# x' B6 d- T
pb.lsp --- 通过给出长度将字符串分成两个串
2 T9 H( l8 G6 f+ n8 F: |1 Hcht.lsp --- 直接修改文字内容或块属性
8 u" Q5 ~! V, M% J! E1 ict.lsp --- 对数字串进行加减 " G7 {6 L1 ]/ ?& }& A. D# Y5 G$ q
chh.lsp --- 直接修改文字高度 5 Q( g! [8 }% A$ n; K
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
1 E/ ~7 s" o6 G5 `% C7 z2 ^chst.lsp --- 直接修改文字字体
+ w" d$ X! ~+ Z& utxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) - n0 q' T1 q% K) G- S
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 5 Y, W! w4 O* N" r N$ q
tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
2 `0 T' u6 T7 f# v3 G+ Puntiao.lsp --- 上两个程序的复原 ; x- U+ t0 {! W$ y
sht.lsp --- 在图中查找字符串 8 A: C5 n v7 h7 b3 y
zhuang.lsp --- 桩点及钎探号绘制（勘测图）4 E4 I8 |) X+ Q- l
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) * f. H' V2 W! p7 l
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
: M7 T5 Z# e; L1 n. d \+ odi1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
8 x% P1 }7 U. g4 M) R! a* ]$ @( n: M+ ydi100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
1 {* ]1 K# E& \) b, Ibrk.lsp --- 将一线条在与其它线条相交处断开 ) p# R6 f3 b) e' v: q
peditx.lsp --- 成批修改线条的线宽
# Q* C* r5 \. j; @- h6 S/ bex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 / D" R3 A1 w" B1 V$ R8 m
chcr.lsp --- 修改园和园弧的半径
5 s7 R8 o S6 ilay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结* N. P) N7 f* s& j
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
* I5 b2 Q6 f& I" u' n3 Gbg1.lsp～bg4.lsp --- 标注各种标高4 q0 D: |/ g6 m# k, q
hu.lsp --- 直接给出园弧长度9 L a; ?+ j4 c6 }' o; W
jdx.lsp --- 截断线 # U5 r0 ?! z' o! ^
jdx2.lsp --- 双截断线, ?& |6 |. G% M- I, P' R5 t2 [- i
bdgj.lsp --- 板底钢筋(土建结构图用) 9 N6 G8 Y) p& l+ m; N. q- w" `
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)3 F3 Q* x. u# t9 K8 G
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
8 ?; a# L" }6 [gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）
8 L" h6 K. v; z8 o( s1 R8 W+ [gzz.lsp --- 构造柱绘制
# P7 X, K9 |/ B3 e+ G# j" z4 mACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: . r2 j+ a) ^: z
XX -- 虚线(用于1:1的图)
4 d e' g; z0 ^DHX -- 点划线(用于1:1的图)
+ I/ i2 q, `0 ?& \+ R8 W2 DXX100 -- 虚线(用于1:100的图)
9 X7 I/ k) E& o; g( i) IDHX100 -- 点划线(用于1:100的图). V" G8 a3 ? }& N" m# `
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
3 O& a/ O, l& a* ~CHXX -- 将线型改为虚线(用于1:1的图)
4 ]1 U& R0 e. H' u5 W9 bCHDHX -- 将线型改为点划线(用于1:1的图)
% z0 ?( T0 W2 |0 x! l; |. Z' gCHXX100 -- 将线型改为虚线(用于1:100的图) ! `# G# k9 f9 y
CHDHX100 -- 将线型改为点划线(用于1:100的图)
* i. J' M! S W' i/ YCHCON -- 将线型改为连续线 & t) M# Y; _1 ]1 M( r7 I; M
CHC -- 直接修改实体的颜色 ( ]3 _" q& i4 ~: l* Q
# |. T/ `9 ?: A9 z
O8 d- z( h( K+ I% X-->请点击下面的链接下载
; n& G0 C1 M# k! f( I* Xhttp://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51