压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。
" k* M8 r; B6 ]bg.lsp --- 表格自动生成
$ m) `4 C3 Y1 I! u5 tasc.lsp --- 将文本文件内容写入图中，字符是单个的 " J9 I+ O# o$ s% M6 D
wf.lsp --- 将图中字符写入磁盘
# r' a2 r! i& L5 W/ g& l4 n0 xexstr.lsp --- 将字符串分解成单字 3 r7 p% D+ |9 K: e' t4 u* N
pgtxt.lsp --- 将字符合成字符串 3 b" P4 n/ m& V
pb.lsp --- 通过给出长度将字符串分成两个串
1 h; w! H" j0 v* j* H# m2 L; V/ ]cht.lsp --- 直接修改文字内容或块属性 % P/ U; J( V" x) B
ct.lsp --- 对数字串进行加减
3 ^% f m& O6 c" jchh.lsp --- 直接修改文字高度
; I3 ~% i$ Q' Q, w: c1 j' `chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) ! b- N: u e; U8 s! |. }
chst.lsp --- 直接修改文字字体
6 |& j$ j+ X) L2 {- B! e" Mtxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)
) Q5 _% { A$ wtiao.lsp --- 配合修改过的标准字体文件，将中文字符调大 ) D. c2 _! S$ ^ f7 o
tiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
/ R& Q" D. r6 ?1 k& J/ t4 }: }4 zuntiao.lsp --- 上两个程序的复原
; V" H0 S1 L. H) Z; Vsht.lsp --- 在图中查找字符串 3 R3 j3 B7 j7 {( ^" V& Y4 T
zhuang.lsp --- 桩点及钎探号绘制（勘测图）
9 B `& _3 T* s6 q1 H" rdim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) 3 C& M( K5 L) X4 N, u% N
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
" U. L% Q1 b) N- b2 Gdi1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
% ~8 h3 ~3 i6 z0 n5 ]2 N$ A/ Hdi100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
1 s" Y5 c H4 e- h8 P" Cbrk.lsp --- 将一线条在与其它线条相交处断开
* Z: }. ?" f4 t; r$ n' A1 q F. lpeditx.lsp --- 成批修改线条的线宽
/ A) c, U+ E8 ~! P- P; y% y7 mex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
: G0 m( U1 [' M, a- \, E' y6 tchcr.lsp --- 修改园和园弧的半径
0 j# R# f6 U1 e8 qlay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结7 e4 Y3 Q1 [8 l9 v
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
" v% L+ L+ W3 t/ B# q2 i" s; d0 l Ebg1.lsp～bg4.lsp --- 标注各种标高
$ T- K! O) A* F- Zhu.lsp --- 直接给出园弧长度
) B- C1 I4 w7 a/ C! Y8 L. J' Sjdx.lsp --- 截断线 ; m' n5 ~, j+ `7 ^1 l& `# D! e6 K
jdx2.lsp --- 双截断线2 l5 C) r; o) [% h$ @
bdgj.lsp --- 板底钢筋(土建结构图用) 7 }; e" [4 }) m" @: ? i
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)! K# G( z. y% |6 Z
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） . d% Q6 ]# W C" x" `
gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）( _9 Z1 F) Z* d: E% Z* A
gzz.lsp --- 构造柱绘制6 [+ Y) x0 s4 u' b- [
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
" k2 J' v* Q; p& MXX -- 虚线(用于1:1的图) + R, l u" i( T( m$ Y- u/ i
DHX -- 点划线(用于1:1的图)
3 X$ W# I+ {" a3 N! o# IXX100 -- 虚线(用于1:100的图) ) @5 q8 s5 O; U& [' `
DHX100 -- 点划线(用于1:100的图)
+ o2 ]6 a/ r5 t. ^- ?ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
; `& m- E3 ~+ o$ s( }7 s3 O* ], sCHXX -- 将线型改为虚线(用于1:1的图)
+ v$ Y8 k+ r( x y- T2 M! v- y; tCHDHX -- 将线型改为点划线(用于1:1的图)
$ o) v) G" O# _5 D4 wCHXX100 -- 将线型改为虚线(用于1:100的图) 7 M3 {$ p9 A* b8 j3 |
CHDHX100 -- 将线型改为点划线(用于1:100的图)
8 F0 z9 h: R# z4 D+ m, qCHCON -- 将线型改为连续线
6 c* U, o8 i0 C7 QCHC -- 直接修改实体的颜色 5 c2 \4 L- {; I& v* v
" \, W9 c5 W/ q+ z P9 }: E4 K6 q3 G6 a6 x" ~% e9 h
-->请点击下面的链接下载 f9 ^' }9 k( w+ v1 K: i$ z
http://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51