如果您使用 AutoCAD,下面的內(nèi)容對您一定有幫助。在某些方面能大大提高您的工作效率。下面的程序均以源程序方式給出，您可以使用、參考、修改它。
bg.lsp 表格自動生成
asc.lsp 將文本文件內(nèi)容寫入圖中，字符是單個的
wf.lsp 將圖中字符寫入磁盤
exstr.lsp 將字符串分解成單字
pgtxt.lsp 將字符合成字符串
pb.lsp 通過給出長度將字符串分成兩個串
cht.lsp 直接修改文字內(nèi)容或塊屬性
ct.lsp 對數(shù)字串進行加減
chh.lsp 直接修改文字高度
chhw.lsp 直接修改文字高寬比(針對PKPM軟件將字符定位點改為左下角)
chst.lsp 直接修改文字字體
txt.shx 修改后的標(biāo)準txt.shx文件。(kuozhan.sld為增強的內(nèi)容幻燈片)
tiao.lsp 配合修改過的標(biāo)準字體文件，將中文字符調(diào)大
tiao1.lsp 配合修改過的標(biāo)準字體文件，將英文字符調(diào)小
untiao.lsp 上兩個程序的復(fù)原
sht.lsp 在圖中查找字符串
zhuang.lsp 樁點及釬探號繪制（勘測圖）
dim.lsp 配合JT.DWG將尺寸標(biāo)注調(diào)成適合建筑結(jié)構(gòu)設(shè)計(1:1)
dimm.lsp 配合JT.DWG將尺寸標(biāo)注調(diào)成適合建筑結(jié)構(gòu)設(shè)計(1:100)
di1.lsp～di8.lsp 直接連續(xù)標(biāo)注尺寸(用于1:1的圖)
di100.lsp～di800.lsp 直接連續(xù)標(biāo)注尺寸(用于1:100的圖)
brk.lsp 將一線條在與其它線條相交處斷開
peditx.lsp 成批修改線條的線寬
ex.lsp 分別或一起或通過層來炸開塊、尺寸標(biāo)注及PLINE線
chcr.lsp 修改園和園弧的半徑
lay.lsp 通過點取層上一實體來實現(xiàn)層操作：刪除/解凍/凍結(jié)
bg0.lsp 直接將正負零標(biāo)注在圖紙中(建筑結(jié)構(gòu)圖用)
bg1.lsp～bg4.lsp 標(biāo)注各種標(biāo)高
hu.lsp 直接給出園弧長度
jdx.lsp 截斷線
jdx2.lsp 雙截斷線
bdgj.lsp 板底鋼筋(土建結(jié)構(gòu)圖用)
bdgj1.lsp,bdgj2.lsp 板頂鋼筋(土建結(jié)構(gòu)圖用)
dk1.lsp～dk8.lsp 配合PKPM軟件生成的圖繪洞口(基礎(chǔ)留洞）
gl1.lsp～gl8.lsp 配合PKPM軟件生成的圖繪過梁(結(jié)構(gòu)平面圖）
gzz.lsp 構(gòu)造柱繪制
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 將線型改為連續(xù)線
CHC 直接修改實體的顏色
其余詳見ACAD.LSP的內(nèi)容。ACAD的命令縮寫根據(jù)其使用的頻率作了調(diào)整。
V 先執(zhí)行ZOOM E, 再將當(dāng)前視圖存儲，并調(diào)用ZOOM W
此命令主要為"超級視圖"做準備，"超級視圖"妙處一用便知 ! 建議使用顯
示卡自帶的AutoCAD顯示驅(qū)動
增強后的ACAD.LSP能在狀態(tài)行上顯示當(dāng)前文件名
ACAD.MNU的改進: 調(diào)整了光標(biāo)菜單（共兩頁），并將最常用的捕捉方式定義
在組合光標(biāo)鍵上。
將如下內(nèi)容替換原相應(yīng)項
***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鼠標(biāo)右鍵: end,int 捕捉方式
2. 按Ctrl鼠標(biāo)右鍵: nea 捕捉方式
3. 按ShiftCtrl鼠標(biāo)右鍵: 啟動"超級視圖"
4. 按鼠標(biāo)中鍵: 捕捉方式和常用繪圖命令的切換(共兩頁)
下面是一業(yè)余版的二維建筑設(shè)計軟件，其最大的特色為所繪的實體僅有
LINE、POLYLINE、CIRCLE和TEXT四種，修改容易。雖只有二十多個程序，
但確能幫您解決二維繪圖中的一些問題。
ax.lsp 規(guī)則軸網(wǎng)繪制
chax.lsp 軸線線型由點劃線到連續(xù)線的交替變換
wwall.lsp 外墻繪制
nwall.lsp 內(nèi)墻繪制(beta)
gwall.lsp 隔墻繪制(beta)
ss.lsp 室外散水
chww.lsp 墻線加粗
chw0.lsp 墻線加粗恢復(fù)
dimw.lsp 標(biāo)注墻厚
zhu.lsp 交點插柱
win.lsp 墻上插窗
wwin.lsp 無墻畫窗
door.lsp 墻上插門
3dimzs.lsp 標(biāo)注左邊及上邊的第三排尺寸線
3dimyx.lsp 標(biāo)注右邊及下邊的第三排尺寸線
lt1.lsp 雙跑樓梯平面
ltpm.lsp 雙跑樓梯剖面(better)
wsj.lsp 衛(wèi)生間布置
wsj1.lsp 單個側(cè)開門衛(wèi)生間
tj1.lsp 臺階繪制
pd.lsp 坡道繪制
sy1.lsp 索引1
sy2.lsp 索引2
lmw.lsp 立面窗
lmm.lsp 立面門
RAR
