|
|
CADLISP程序，标高修改，管网标注，等一堆：! [: B* J4 y/ _9 n" k+ ]
, x1 D- y& Q/ x- f5 o2 P& f用APPLOAD命令加载程序，然后使用命令。。。。7 |/ @& H% ^5 {) D8 m _( k
; v4 h3 c0 z) @/ M8 f
如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高
8 L7 c- s# s% g n) X您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。+ S) P2 z; a7 w, B+ \' H: Q. ?7 v
. x3 n6 U: T/ {% L, J% ?% Y0 b! Obg.lsp --- 表格自动生成
* ^# k6 h9 |, P8 a9 Aasc.lsp --- 将文本文件内容写入图中，字符是单个的 1 w5 v1 S J: O7 _* t
wf.lsp --- 将图中字符写入磁盘 8 w. w, e, F2 i5 n
exstr.lsp --- 将字符串分解成单字
8 m, w' N1 i, g, R. N. wpgtxt.lsp --- 将字符合成字符串 7 }* w) c# C# b. t0 Z
pb.lsp --- 通过给出长度将字符串分成两个串 # i( H) A+ y& B8 o! H1 P
cht.lsp --- 直接修改文字内容或块属性 3 D1 C5 {5 F6 I: d" ~9 n( V
ct.lsp --- 对数字串进行加减 6 [3 @4 q: W4 F8 r; @' O
chh.lsp --- 直接修改文字高度 % P5 Q0 u% z9 d9 a7 H: A5 u" t
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) 6 n$ [0 s; ^/ L) H" A) ^8 k
chst.lsp --- 直接修改文字字体
4 J2 b5 d: P, `, \& [. }1 T; t
# [. X# t0 k; }% `6 itxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) 2 U/ f$ P9 Q) M0 {0 O6 W/ {$ _
; E2 q& t2 d. Htiao.lsp --- 配合修改过的标准字体文件，将中文字符调大
% _+ \- U; J% {& U! j( [! xtiao1.lsp --- 配合修改过的标准字体文件，将英文字符调小
& H' L3 J. b* N: iuntiao.lsp --- 上两个程序的复原
, _' d" T$ i7 E' F. ?: a* M( \/ |/ g
sht.lsp --- 在图中查找字符串 ( J2 H/ V; `4 z
zhuang.lsp --- 桩点及钎探号绘制（勘测图）
7 l) I$ U! f& G% ?& F$ ^3 f4 j: u2 }3 i- v, A9 u
dim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) , ?5 H. a4 D6 [& n* _8 a4 V. s
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
( v& z: Y8 Z' w, l: W! O B! K; V6 C+ l" V
di1.lsp～di8.lsp --- 直接连续标注尺寸(用于1:1的图)
5 \; H' _7 i8 c: e; S4 ldi100.lsp～di800.lsp --- 直接连续标注尺寸(用于1:100的图)
! c) f3 a& B2 q @" e! Y( L 5 v9 d' U! Q: i( [
brk.lsp --- 将一线条在与其它线条相交处断开 6 S& R7 G' z, H) Z" B0 y
peditx.lsp --- 成批修改线条的线宽 ! A y- F4 ?) H
ex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线 7 F4 W. K* `0 c: E
chcr.lsp --- 修改园和园弧的半径
4 A2 Y/ j, C2 e9 V3 G Klay.lsp --- 通过点取层上一实体来实现层操作：删除/解冻/冻结 5 x! l5 D V% M1 ^/ f2 E$ H
" E0 k' N: M3 e6 k% m% hbg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
# \8 J; X8 P* r5 h' b3 T3 Pbg1.lsp～bg4.lsp --- 标注各种标高 # g9 h( b) d4 P- w3 L7 `* ]: V& z
4 C$ j7 ?3 ^% h
hu.lsp --- 直接给出园弧长度
, A, }# Y @1 v" G
7 q8 ?; N+ S1 X s1 u$ u3 Mjdx.lsp --- 截断线 5 t: o. k( \! a V4 s0 W& U& m, G
jdx2.lsp --- 双截断线
- B. d( c# S9 M- P4 |' A
& }$ N" k/ F( X( T U5 N- Abdgj.lsp --- 板底钢筋(土建结构图用) . v! ]" t# ?' `0 q8 d( X2 f
bdgj1.lsp,bdgj2.lsp --- 板顶钢筋(土建结构图用)
+ w' J/ e9 @. p0 w, R; q `4 C/ A9 D# k. }& |" W0 Q& B
dk1.lsp～dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞） $ j6 r2 d1 D& Y# P, L% h: Q' k
gl1.lsp～gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图）
% e7 B v5 T4 q% |4 w/ }% D. Y7 z* v% Z. [* T1 s, R! O' m
gzz.lsp --- 构造柱绘制 1 p! m: y: O$ K$ c+ I6 K
" R0 G2 o2 {; o4 h9 PACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
' H+ v* {6 F" M: X0 e7 k; p/ m: [! w$ k/ E, e: Q: }1 C
XX -- 虚线(用于1:1的图) # I1 j7 Y& w: ?, O3 p" R
DHX -- 点划线(用于1:1的图) + B" X$ Y g! l/ L5 B+ k6 ^
XX100 -- 虚线(用于1:100的图) # L% b7 |4 `3 t9 i6 Q: k
DHX100 -- 点划线(用于1:100的图) 9 R. {4 V& ]# P4 Q Z6 x
9 V; R; f! H) A% ^ACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
$ r& x! x1 z& \+ N9 ^
6 X5 t3 w4 h2 w7 BCHXX -- 将线型改为虚线(用于1:1的图) 6 B$ Z: b' U7 K) e1 E, g9 D* s
CHDHX -- 将线型改为点划线(用于1:1的图) - W; k4 ^4 ^6 d d# Q
CHXX100 -- 将线型改为虚线(用于1:100的图) % L$ |% |: N$ `2 U
CHDHX100 -- 将线型改为点划线(用于1:100的图) 0 o; T( n/ w/ L& R' d
CHCON -- 将线型改为连续线 3 d& X6 e$ y1 [- S
CHC -- 直接修改实体的颜色 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有账号？立即注册
x
|
发表于 2009-8-28 10:48
[/img]