CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 49900|回复: 158

CAD加载程序100例(好用的很!!)

  [复制链接]
发表于 2008-4-1 21:23 | 显示全部楼层 |阅读模式
下面是一业余版的二维建筑设计软件,其最大的特色为所绘的实体仅有3 p0 Y' Q- K" h% ?# L4 P
LINE、POLYLINE、CIRCLE和TEXT四种,修改容易。虽只有二十多个程序,% W4 v/ X, }! K1 g) V
但确能帮您解决二维绘图中的一些问题。 5 i9 x5 @9 d  W7 H8 n5 c  P
ax.lsp --- 规则轴网绘制 : g3 ]2 f3 ~# ^% \
chax.lsp --- 轴线线型由点划线到连续线的交替变换 0 F2 S; }$ Z: a3 y
wwall.lsp --- 外墙绘制
' f' `% z+ W, dnwall.lsp --- 内墙绘制(beta) & Y6 j6 R1 T! `# A4 `2 e# k
gwall.lsp --- 隔墙绘制(beta)
6 G# h1 b$ D. X) t6 U# pss.lsp --- 室外散水 + y; D; T  v2 I: ~$ _  ]- h$ b4 p
chww.lsp --- 墙线加粗
+ s  Y4 r8 h# U& G3 l- h4 [chw0.lsp --- 墙线加粗恢复 " U# a' C0 f* l* ^  p
dimw.lsp --- 标注墙厚 + S% M. M( @) ?! Z7 [% i+ Z
zhu.lsp --- 交点插柱 4 t) S3 `0 G0 _; H6 @: t2 R9 y. j
win.lsp --- 墙上插窗
& C, K( ]& ^4 z: z7 i, ?wwin.lsp --- 无墙画窗
" m9 z4 B) {! o) [2 s9 ^0 {door.lsp --- 墙上插门 ) a* l6 q7 R+ T0 @) f/ W5 i
) L1 q8 d  J! E
3dimzs.lsp --- 标注左边及上边的第三排尺寸线 ! N. H+ c* L% o& V! I
3dimyx.lsp --- 标注右边及下边的第三排尺寸线
" `8 p! ~$ _. ^2 l5 t* B* @1 J! J. i8 j+ T4 f- J# S
lt1.lsp --- 双跑楼梯平面 : Z0 Z# i+ X0 N4 U) z" b$ N2 x, p
ltpm.lsp --- 双跑楼梯剖面(better) 9 |$ h4 L" ]' P* F% w. q
wsj.lsp --- 卫生间布置 2 ^  p' E: B  N+ b: m. p
wsj1.lsp --- 单个侧开门卫生间
/ ?, Q; `1 \; F3 |$ o& Rtj1.lsp --- 台阶绘制 ( o; [* n% t& F$ z/ m
pd.lsp --- 坡道绘制
4 V! b4 |( x5 X' {' Osy1.lsp --- 索引1 - Z7 ?2 J$ ?6 X* u
sy2.lsp --- 索引2
. h: [. X" i+ Y. T+ m- G" olmw.lsp --- 立面窗 9 ?+ B) `! c- Z0 W9 z* ?: l
lmm.lsp --- 立面门
! ]8 g% M1 M- R
' G: F. r. \  n7 A
* |6 u4 ^$ I/ e9 T0 r------------------------------------------------------------# z# X& K  ~; g8 N; W- U

6 Q3 L" f! W3 @* }- Kbg.lsp --- 表格自动生成
; }; B% r$ O5 h# o  B4 l  z- l: l8 i, `asc.lsp --- 将文本文件内容写入图中,字符是单个的
6 x* B' O2 `' I9 j+ L  o! wwf.lsp --- 将图中字符写入磁盘 ) r# `' _- r2 J! n; c' l
exstr.lsp --- 将字符串分解成单字 ; F& W. H1 _4 h! w- k
pgtxt.lsp --- 将字符合成字符串 " m2 K+ d; C: `' i# a# \( Q/ l3 X
pb.lsp --- 通过给出长度将字符串分成两个串
" c. v- t% D. c& V% @- echt.lsp --- 直接修改文字内容或块属性
/ R% n7 a) X9 A7 r) C( t9 sct.lsp --- 对数字串进行加减 5 Z" T6 j# `6 [% Y% l( p
chh.lsp --- 直接修改文字高度 % L5 B, K' h: \  N
chhw.lsp --- 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角) ! \; h; p; o3 @- x! O4 k; b
chst.lsp --- 直接修改文字字体
( Z$ P; }/ c0 n/ g8 V4 _4 n7 Q4 ^
% Z5 M. c) C/ H: C! Atxt.shx --- 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片) 7 [+ z7 O1 \' f
& x; P" X7 [" Q2 j/ e
tiao.lsp --- 配合修改过的标准字体文件,将中文字符调大
. Q& |- P- _5 K' D8 M* W3 |; xtiao1.lsp --- 配合修改过的标准字体文件,将英文字符调小 $ ]% f7 ?6 ~; y6 t5 d) T
untiao.lsp --- 上两个程序的复原
# f7 s7 k5 s4 J$ e$ l# Q: J. _
: c1 _0 T& t, T3 ~1 asht.lsp --- 在图中查找字符串
! {3 M- Q9 E/ A$ F7 Qzhuang.lsp --- 桩点及钎探号绘制(勘测图) ' `' H" D) V. z3 E  K+ ]+ T

* F, s0 n6 D7 g$ T+ r- b3 S& odim.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1) ' I3 r/ C  o, U/ B, E5 r- P: Y; U, L. r
dimm.lsp --- 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)
# X$ R6 F7 Z, v! a, j. E
2 H8 p/ e$ B/ f$ {$ e1 U& D% ?+ Hdi1.lsp~di8.lsp --- 直接连续标注尺寸(用于1:1的图)
9 R) N. Y, p1 Cdi100.lsp~di800.lsp --- 直接连续标注尺寸(用于1:100的图) + ~. k; H" w* b
  : M. Q/ z' A" `* ^9 y
brk.lsp --- 将一线条在与其它线条相交处断开
5 R& t& D( X! |5 u( upeditx.lsp --- 成批修改线条的线宽
: S( f+ P; b+ x( Z$ qex.lsp --- 分别或一起或通过层来炸开块、尺寸标注及PLINE线
: U* c# [6 z$ \, Z# L. D3 n6 [chcr.lsp --- 修改园和园弧的半径 # R- z( H2 t% d$ ]  x; {
lay.lsp --- 通过点取层上一实体来实现层操作:删除/解冻/冻结 & i" Q% h: g6 |2 }! v# H

% v1 b# m3 r5 \* C0 N3 P2 ebg0.lsp --- 直接将正负零标注在图纸中(建筑结构图用)
" g$ w# `* L+ xbg1.lsp~bg4.lsp --- 标注各种标高
6 a/ w. G4 _. W# h) s( ~8 x- [7 K% a
hu.lsp --- 直接给出园弧长度 , k3 m" t2 _, |+ x$ T  V, w
) b( Q7 t2 G9 V9 u
jdx.lsp --- 截断线 8 W, b* P: y" T. u" d, T' F8 @
jdx2.lsp --- 双截断线
7 d# Z$ i' h: T- o6 B( O6 z% h. E* k& q0 D# a! F, q
bdgj.lsp --- 板底钢筋(土建结构图用)
  ]- Z2 `4 }. Zbdgj1.lsp,bdgj2.lsp --- 板钢筋(土建结构图用) 1 e5 p* h9 E+ i. x; p
: o% T9 f7 P- P( t" l
dk1.lsp~dk8.lsp --- 配合PKPM软件生成的图绘洞口(基础留洞)
3 r, M  \* t$ I( `, \# qgl1.lsp~gl8.lsp --- 配合PKPM软件生成的图绘过梁(结构平面图)
7 G2 @; l: A# h& Z6 L- L8 f* L! R  w  P8 j( S& O$ }& U
gzz.lsp --- 构造柱绘制
* h: R7 u. X: a! |8 V+ V4 u. w# Y9 Q. h  X# u) Y& e- l
ACAD.LIN --- 增强的线型文件, 扩充线型(线型比例为1)如下:
1 v: `9 Y/ k7 w' o' [
8 v! y( g" a# h# Y+ IXX -- 虚线(用于1:1的图) ! D2 O+ a2 k/ @# {% @9 I
DHX -- 点划线(用于1:1的图) 6 u2 Q+ B2 ^7 L$ Z& b$ S# j. |
XX100 -- 虚线(用于1:100的图)
- t' z$ f+ a8 n2 ^9 TDHX100 -- 点划线(用于1:100的图)
3 F) ?1 F0 E$ c: L: r
, c( R. Y( d* a! N7 ~& BACAD.LSP --- 增强的ACAD启动文件, 命令扩展如下:
" n; p. s, k- K+ x- g* P/ m$ a$ A+ Z0 f. o1 J) ?; G
CHXX -- 将线型改为虚线(用于1:1的图) & [2 ]3 u5 u! k, S' d
CHDHX -- 将线型改为点划线(用于1:1的图)
/ |# \: d, r" V7 LCHXX100 -- 将线型改为虚线(用于1:100的图)
# @! V& j) s# T# s6 ICHDHX100 -- 将线型改为点划线(用于1:100的图)
$ H( A0 L9 n) P, H8 F$ @& x8 wCHCON -- 将线型改为连续线
1 F& n( t+ B1 L  y1 lCHC -- 直接修改实体的颜色

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x
发表于 2008-4-2 09:33 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2008-4-13 18:08 | 显示全部楼层
我下了,挺不错的,顶下!
发表于 2008-4-13 18:13 | 显示全部楼层
  谢谢分享啦
发表于 2008-4-28 04:51 | 显示全部楼层
好东相,真正需要
发表于 2008-4-28 09:29 | 显示全部楼层
谢谢楼主 分享!!
发表于 2008-4-28 10:05 | 显示全部楼层
违反提出 深刻搭街坊可是地方看见
发表于 2008-5-4 21:39 | 显示全部楼层
一直想找这个好东西了谢谢
发表于 2008-5-12 20:05 | 显示全部楼层
好东西,谢谢,收下了.......
发表于 2008-5-12 20:14 | 显示全部楼层
先下来,,看看啊
发表于 2008-5-16 17:38 | 显示全部楼层
支持,lisp文件好啊!借鉴一下啊!!!
发表于 2008-5-18 13:48 | 显示全部楼层
下来用下看
发表于 2008-5-18 18:10 | 显示全部楼层
好东西怎么没人顶啊!!!顶!顶!顶!
发表于 2008-5-18 18:22 | 显示全部楼层
好东西怎么没人顶啊!!!顶!顶!顶!
发表于 2008-5-19 21:33 | 显示全部楼层
:) :) :) :) :( :(
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2024-12-26 00:37

CAD设计论坛,为工程师增加动力。

© 2005-2024 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表