如果您使用 AutoCAD,下面的内容对您一定有帮助。在某些方面能大大提高您的工作效率。下面的程序均以源程序方式给出，您可以使用、参考、修改它。

bg.lsp 表格自动生成
asc.lsp 将文本文件内容写入图中，字符是单个的
wf.lsp 将图中字符写入磁盘
exstr.lsp 将字符串分解成单字
pgtxt.lsp 将字符合成字符串
pb.lsp 通过给出长度将字符串分成两个串
cht.lsp 直接修改文字内容或块属性
ct.lsp 对数字串进行加减
chh.lsp 直接修改文字高度
chhw.lsp 直接修改文字高宽比(针对PKPM软件将字符定位点改为左下角)
chst.lsp 直接修改文字字体

txt.shx 修改后的标准txt.shx文件。(kuozhan.sld为增强的内容幻灯片)

tiao.lsp 配合修改过的标准字体文件，将中文字符调大
tiao1.lsp 配合修改过的标准字体文件，将英文字符调小
untiao.lsp 上两个程序的复原

sht.lsp 在图中查找字符串
zhuang.lsp 桩点及钎探号绘制（勘测图）

dim.lsp 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:1)
dimm.lsp 配合JT.DWG将尺寸标注调成适合建筑结构设计(1:100)

di1.lsp～di8.lsp 直接连续标注尺寸(用于1:1的图)
di100.lsp～di800.lsp 直接连续标注尺寸(用于1:100的图)
　
brk.lsp 将一线条在与其它线条相交处断开
peditx.lsp 成批修改线条的线宽
ex.lsp 分别或一起或通过层来炸开块、尺寸标注及PLINE线
chcr.lsp 修改园和园弧的半径
lay.lsp 通过点取层上一实体来实现层操作：删除/解冻/冻结

bg0.lsp 直接将正负零标注在图纸中(建筑结构图用)
bg1.lsp～bg4.lsp 标注各种标高

hu.lsp 直接给出园弧长度

jdx.lsp 截断线
jdx2.lsp 双截断线

bdgj.lsp 板底钢筋(土建结构图用)
bdgj1.lsp,bdgj2.lsp 板顶钢筋(土建结构图用)

dk1.lsp～dk8.lsp 配合PKPM软件生成的图绘洞口(基础留洞）
gl1.lsp～gl8.lsp 配合PKPM软件生成的图绘过梁(结构平面图）

gzz.lsp 构造柱绘制

ACAD.LIN 增强的线型文件, 扩充线型(线型比例为1)如下:

XX 虚线(用于1:1的图)
DHX 点划线(用于1:1的图)
XX100 虚线(用于1:100的图)
DHX100 点划线(用于1:100的图)

ACAD.LSP 增强的ACAD启动文件, 命令扩展如下:

CHXX 将线型改为虚线(用于1:1的图)
CHDHX 将线型改为点划线(用于1:1的图)
CHXX100 将线型改为虚线(用于1:100的图)
CHDHX100 将线型改为点划线(用于1:100的图)
CHCON 将线型改为连续线
CHC 直接修改实体的颜色
其余详见ACAD.LSP的内容。ACAD的命令缩写根据其使用的频率作了调整。

V 先执行ZOOM E, 再将当前视图存储，并调用ZOOM W
此命令主要为"超级视图"做准备，"超级视图"妙处一用便知 ! 建议使用显
示卡自带的AutoCAD显示驱动

增强后的ACAD.LSP能在状态行上显示当前文件名

ACAD.MNU的改进: 调整了光标菜单（共两页），并将最常用的捕捉方式定义
在组合光标键上。

将如下内容替换原相应项

***BUTTONS1
**b11
;
$b1=b12 $p0=p01 $p0=*
**b12
;
$b1=b11 $p0=p02 $p0=*

***BUTTONS2
_end,_int

***BUTTONS3
_nea

***BUTTONS4
'_view r e '_zoom w

***POP0
**p02
[DDedit]^C^CDDEDIT
[CHGtext]^C^C(if (not chgtext) (load "chgtext"));chgtext
[]
[NEArest]_nea
[PERpendicular]_per
[MIDpoint]_mid
[CENter]_center
[ENDpoint]_endp
[INSert]_ins
[INTersection]_int
[NODe]_nod
[QUAdrant]_qua
[TANgent]_tan
[NONe]_non
[]
[Calculator]'cal

**p01
[]
[Line]^C^C_line
[Polyline]^C^C_pline
[Circle]^C^C_circle
[Arc]^C^C_arc
[]
[Erase]^C^C_erase
[Move]^C^C_move
[Copy]^C^C_c
[Stretch]^C^C_str
[Rotate]^C^C_rotate
[Fillet]^C^C_f
[Offset]^C^C_offset
[Extend]^C^C_extend
[Trim]^C^C_trim
[Break]^C^C_break
[Explode]^C^C_explode
[]

说明:
1. 按Shift鼠标右键: end,int 捕捉方式
2. 按Ctrl鼠标右键: nea 捕捉方式
3. 按ShiftCtrl鼠标右键: 启动"超级视图"
4. 按鼠标中键: 捕捉方式和常用绘图命令的切换(共两页)





下面是一业余版的二维建筑设计软件，其最大的特色为所绘的实体仅有
LINE、POLYLINE、CIRCLE和TEXT四种，修改容易。虽只有二十多个程序，
但确能帮您解决二维绘图中的一些问题。
ax.lsp 规则轴网绘制
chax.lsp 轴线线型由点划线到连续线的交替变换
wwall.lsp 外墙绘制
nwall.lsp 内墙绘制(beta)
gwall.lsp 隔墙绘制(beta)
ss.lsp 室外散水
chww.lsp 墙线加粗
chw0.lsp 墙线加粗恢复
dimw.lsp 标注墙厚
zhu.lsp 交点插柱
win.lsp 墙上插窗
wwin.lsp 无墙画窗
door.lsp 墙上插门

3dimzs.lsp 标注左边及上边的第三排尺寸线
3dimyx.lsp 标注右边及下边的第三排尺寸线

lt1.lsp 双跑楼梯平面
ltpm.lsp 双跑楼梯剖面(better)
wsj.lsp 卫生间布置
wsj1.lsp 单个侧开门卫生间
tj1.lsp 台阶绘制
pd.lsp 坡道绘制
sy1.lsp 索引1
sy2.lsp 索引2
lmw.lsp 立面窗
lmm.lsp 立面门