压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。- v/ |/ l: h ?3 ]! J2 s
bg.lsp --- 表格自动生成 , C% c) Q; x4 s" b+ p
asc.lsp --- 将文本文件内容写入图中，字符是单个的
9 _* G- [) n+ n4 u y1 ]wf.lsp --- 将图中字符写入磁盘
; R: }: o) R& `- T, hexstr.lsp --- 将字符串分解成单字
# r+ i' u5 ?, n" R3 H& Gpgtxt.lsp --- 将字符合成字符串 1 g9 ] ?5 s: F) H0 ~; J, i
pb.lsp --- 通过给出长度将字符串分成两个串
7 N) j A$ W3 e2 V5 h$ d: I) pcht.lsp --- 直接修改文字内容或块属性
9 Q# L9 f( m! _* Tct.lsp --- 对数字串进行加减 9 h3 I' B4 W8 p- Y/ C6 [
chh.lsp --- 直接修改文字高度 ; U7 W! l; a' U) u: _
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
2 s8 a& M* y! y# D2 U1 a9 d# xchst.lsp --- 直接修改文字字体
8 m7 C3 |6 O! ^9 gtxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) : l3 Z$ k: E" d8 G; R# @
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
( r3 m: X2 m0 z3 }: b( Ktiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小 ) C* s: @# Q* k
untiao.lsp --- 上两个程序的复原 9 S" f( T/ |+ L3 s
sht.lsp --- 在图中查找字符串
3 R* t9 C! H& E, ~" J: Z9 B3 hzhuang.lsp --- 桩点及钎探号绘制（勘测图）* \/ D) f* g) |" |$ m# l
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
; h2 E9 V R- Odimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
4 w+ U) P6 `9 E% ^( J0 x) hdi1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图) 5 B- N9 s* H" g& S6 l; I6 X/ ?) p
di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
: ^8 g: Y, m9 a# Hbrk.lsp --- 将一线条在与其它线条相交处断开 + @ W: O2 e8 g; p6 k6 i
peditx.lsp --- 成批修改线条的线宽
1 ~4 H" z) L$ o) F1 ?. yex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
' [" R; y7 T, Q$ P/ Uchcr.lsp --- 修改园和园弧的半径
# B6 ~4 v9 ]% ]8 ~- clay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结3 y# | L8 Q7 q* @/ ]
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用) + v! n, W/ p" ~" q
bg1.lsp～bg4.lsp --- 标注各种标高8 |0 [! Q% ~# u
hu.lsp --- 直接给出园弧长度, ~5 U2 }$ u4 G2 ^, r; M
jdx.lsp --- 截断线
1 Q0 I' t8 P" W6 Gjdx2.lsp --- 双截断线
8 u$ G( J& Y6 P! t; W+ t9 Pbdgj.lsp --- 板底钢筋(土建结构图用)
6 G! x' o. a x# K6 Y3 B0 s Pbdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
; P+ E( [( l% [6 `6 c! j" W& k# S" Kdk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
+ h! z) N9 x/ rgl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）0 o5 p$ ~: g3 {' _& l8 w3 k* o: l
gzz.lsp --- 构造柱绘制
; U% a/ P+ K6 ^" bACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下: - D# q7 s5 w/ K2 w
XX -- 虚线(用于1:1的图)
: h) H" d3 j- n% N" j! a* Y6 T; MDHX -- 点划线(用于1:1的图)
. S6 E* d( M# _* p6 WXX100 -- 虚线(用于1:100的图) : ^ d8 D2 N% K8 Y( u; Q
DHX100 -- 点划线(用于1:100的图)" I$ T/ |, h: _
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
! A! a: U9 H3 Z# r6 ?. J' B4 I' ?CHXX -- 将线型改为虚线(用于1:1的图) 6 J- x6 I* ^% s! V) v0 B
CHDHX -- 将线型改为点划线(用于1:1的图) 2 b: Q& Z5 }" q% N7 r. T: Z
CHXX100 -- 将线型改为虚线(用于1:100的图) + f6 H' ^, L1 s7 K
CHDHX100 -- 将线型改为点划线(用于1:100的图) * O1 n( T. W9 n7 Z9 G- ?" }# M% G
CHCON -- 将线型改为连续线 : A, e* \/ `% A
CHC -- 直接修改实体的颜色
- h+ X( k7 y; V; G$ J
4 ?' T+ Q0 U8 j) ]1 J1 @
0 n8 ~1 _' T5 o$ X+ x% H0 A-->请点击下面的链接下载4 M! ?% p9 X" c
http://down.5xing.cn/soft/42.html |
发表于 2005-6-17 19:01
发表于 2005-6-19 18:51