|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
压缩包中含有以下面程序，且均以源程序方式给出，您可以使用、参考、修改它。解压缩后请先看说明文件。
& H: J- m$ P# u! O5 `. f1 K- dbg.lsp --- 表格自动生成
* d! |0 A# D3 e# F' Jasc.lsp --- 将文本文件内容写入图中，字符是单个的 . {# f2 D/ P$ f- s! R, Z2 d
wf.lsp --- 将图中字符写入磁盘 ( A" e; S0 ]! }. D/ U' q3 }6 X
exstr.lsp --- 将字符串分解成单字 ; \, ]* S. Z! [& D' u8 C
pgtxt.lsp --- 将字符合成字符串 ' J& E/ x% i9 u7 Z' L
pb.lsp --- 通过给出长度将字符串分成两个串
/ A2 k: A" o* N& O: rcht.lsp --- 直接修改文字内容或块属性
9 @7 k6 l* A& Mct.lsp --- 对数字串进行加减
% \5 S* E& z8 @! @8 C) fchh.lsp --- 直接修改文字高度 $ H5 }7 x0 A1 X6 Z! `. a' O
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
" C+ Q/ m Z: _5 Echst.lsp --- 直接修改文字字体 1 k# w* m# s# H7 I+ Q
txt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) % u- n& s; [7 N
tiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
! H3 M! y ~* Z9 G3 Z9 W1 rtiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小 : E3 ]8 q4 ]* l4 B
untiao.lsp --- 上两个程序的复原
: B* s' n Y# ysht.lsp --- 在图中查找字符串
4 }6 L* l) i- V' W c4 [- ^3 Hzhuang.lsp --- 桩点及钎探号绘制（勘测图）, ^$ T4 C- w5 L
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
5 V( t( S2 W/ N1 udimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100) ) d5 k8 m( C; p7 V
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
" g3 E( o: I# ]6 T/ F; I+ {di100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
7 ]/ b9 }! m1 k n- _& \$ g0 ?brk.lsp --- 将一线条在与其它线条相交处断开
# d1 f4 V7 C& Hpeditx.lsp --- 成批修改线条的线宽
" m: C1 I% Z* N! Jex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
( \4 r2 m) d+ N6 x9 }0 G% Xchcr.lsp --- 修改园和园弧的半径 . d7 N) R) I) L* o* }5 n( n. K
lay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结# ~5 b8 ^: |2 L( ^/ T) ?+ |' i; L
bg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
* ~$ u0 k M6 Abg1.lsp～bg4.lsp --- 标注各种标高5 B% u0 p4 x x4 T
hu.lsp --- 直接给出园弧长度9 ]- Q Y# W7 d% u
jdx.lsp --- 截断线 3 `5 K$ Q/ K ]7 [% E0 ?5 ]9 P
jdx2.lsp --- 双截断线7 x6 m$ }/ J8 d
bdgj.lsp --- 板底钢筋(土建结构图用) : o$ L# g, t2 D' o. u- B8 g* i
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)0 H$ O. {5 y! D- F
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞）
2 v Z$ j0 l# Zgl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图） C. Q/ O5 ]1 k. r0 p# v% D
gzz.lsp --- 构造柱绘制
( G* S1 s$ m9 M$ f9 N; R$ CACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
3 g, ~0 Q. {! @, ?XX -- 虚线(用于1:1的图)
& J8 j) I0 i! ~' P0 b# l, cDHX -- 点划线(用于1:1的图)
3 t `0 z" x5 `4 z; d. |# w8 eXX100 -- 虚线(用于1:100的图) ( S2 [9 t5 `" J: _. i a5 Y1 u* d
DHX100 -- 点划线(用于1:100的图)) d, ~2 g" ~! n0 M: @
ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
8 G8 E( X% H9 s/ BCHXX -- 将线型改为虚线(用于1:1的图)
5 `* w! b) M/ ]CHDHX -- 将线型改为点划线(用于1:1的图)
& F! a" c6 n8 J3 E# t& ^' RCHXX100 -- 将线型改为虚线(用于1:100的图)
" G2 E; [4 P0 d& bCHDHX100 -- 将线型改为点划线(用于1:100的图)
1 W( }. `2 r- BCHCON -- 将线型改为连续线 3 }) q! c) m' I$ I$ A
CHC -- 直接修改实体的颜色 |
评分
-
查看全部评分
|
发表于 2008-6-14 11:13:10
发表于 2008-6-18 23:00:13
:)
