AutoCAD程序100例（很棒的CAD技巧技術(shù)應(yīng)用，個(gè)人收藏）

如果您使用 AutoCAD,下面的內(nèi)容對(duì)您一定有幫助。在某些方面能大大提高
您的工作效率。下面的程序均以源程序方式給出，您可以使用、參考、修改它。

bg.lsp --- 表格自動(dòng)生成
asc.lsp --- 將文本文件內(nèi)容寫入圖中，字符是單個(gè)的
wf.lsp --- 將圖中字符寫入磁盤
exstr.lsp --- 將字符串分解成單字
pgtxt.lsp --- 將字符合成字符串
pb.lsp --- 通過(guò)給出長(zhǎng)度將字符串分成兩個(gè)串
cht.lsp --- 直接修改文字內(nèi)容或塊屬性
ct.lsp --- 對(duì)數(shù)字串進(jìn)行加減
chh.lsp --- 直接修改文字高度
chhw.lsp --- 直接修改文字高寬比(針對(duì)PKPM軟件將字符定位點(diǎn)改為左下角)
chst.lsp --- 直接修改文字字體

txt.shx --- 修改后的標(biāo)準(zhǔn)txt.shx文件。(kuozhan.sld為增強(qiáng)的內(nèi)容幻燈片)

tiao.lsp --- 配合修改過(guò)的標(biāo)準(zhǔn)字體文件，將中文字符調(diào)大
tiao1.lsp --- 配合修改過(guò)的標(biāo)準(zhǔn)字體文件，將英文字符調(diào)小
untiao.lsp --- 上兩個(gè)程序的復(fù)原

sht.lsp --- 在圖中查找字符串
zhuang.lsp --- 樁點(diǎn)及釬探號(hào)繪制（勘測(cè)圖）

dim.lsp --- 配合JT.DWG將尺寸標(biāo)注調(diào)成適合建筑結(jié)構(gòu)設(shè)計(jì)(1:1)
dimm.lsp --- 配合JT.DWG將尺寸標(biāo)注調(diào)成適合建筑結(jié)構(gòu)設(shè)計(jì)(1:100)

di1.lsp～di8.lsp --- 直接連續(xù)標(biāo)注尺寸(用于1:1的圖)
di100.lsp～di800.lsp --- 直接連續(xù)標(biāo)注尺寸(用于1:100的圖)
　
brk.lsp --- 將一線條在與其它線條相交處斷開(kāi)
peditx.lsp --- 成批修改線條的線寬
ex.lsp --- 分別或一起或通過(guò)層來(lái)炸開(kāi)塊、尺寸標(biāo)注及PLINE線
chcr.lsp --- 修改園和園弧的半徑
lay.lsp --- 通過(guò)點(diǎn)取層上一實(shí)體來(lái)實(shí)現(xiàn)層操作：刪除/解凍/凍結(jié)

bg0.lsp --- 直接將正負(fù)零標(biāo)注在圖紙中(建筑結(jié)構(gòu)圖用)
bg1.lsp～bg4.lsp --- 標(biāo)注各種標(biāo)高

hu.lsp --- 直接給出園弧長(zhǎng)度

jdx.lsp --- 截?cái)嗑€
jdx2.lsp --- 雙截?cái)嗑€

bdgj.lsp --- 板底鋼筋(土建結(jié)構(gòu)圖用)
bdgj1.lsp,bdgj2.lsp --- 板頂鋼筋(土建結(jié)構(gòu)圖用)

dk1.lsp～dk8.lsp --- 配合PKPM軟件生成的圖繪洞口(基礎(chǔ)留洞）
gl1.lsp～gl8.lsp --- 配合PKPM軟件生成的圖繪過(guò)梁(結(jié)構(gòu)平面圖）

gzz.lsp --- 構(gòu)造柱繪制

ACAD.LIN --- 增強(qiáng)的線型文件, 擴(kuò)充線型(線型比例為1)如下:

XX -- 虛線(用于1:1的圖)
DHX -- 點(diǎn)劃線(用于1:1的圖)
XX100 -- 虛線(用于1:100的圖)
DHX100 -- 點(diǎn)劃線(用于1:100的圖)

ACAD.LSP --- 增強(qiáng)的ACAD啟動(dòng)文件, 命令擴(kuò)展如下:

CHXX -- 將線型改為虛線(用于1:1的圖)
CHDHX -- 將線型改為點(diǎn)劃線(用于1:1的圖)
CHXX100 -- 將線型改為虛線(用于1:100的圖)
CHDHX100 -- 將線型改為點(diǎn)劃線(用于1:100的圖)
CHCON -- 將線型改為連續(xù)線
CHC -- 直接修改實(shí)體的顏色
其余詳見(jiàn)ACAD.LSP的內(nèi)容。ACAD的命令縮寫根據(jù)其使用的頻率作了調(diào)整。

V -- 先執(zhí)行ZOOM E, 再將當(dāng)前視圖存儲(chǔ)，并調(diào)用ZOOM W
此命令主要為"超級(jí)視圖"做準(zhǔn)備，"超級(jí)視圖"妙處一用便知 ! 建議使用顯
示卡自帶的AutoCAD顯示驅(qū)動(dòng)

增強(qiáng)后的ACAD.LSP能在狀態(tài)行上顯示當(dāng)前文件名

ACAD.MNU的改進(jìn): 調(diào)整了光標(biāo)菜單（共兩頁(yè)），并將最常用的捕捉方式定義
在組合光標(biāo)鍵上。

將如下內(nèi)容替換原相應(yīng)項(xià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
[--]

說(shuō)明:
1. 按Shift-鼠標(biāo)右鍵: end,int 捕捉方式
2. 按Ctrl-鼠標(biāo)右鍵: nea 捕捉方式
3. 按Shift-Ctrl-鼠標(biāo)右鍵: 啟動(dòng)"超級(jí)視圖"
4. 按鼠標(biāo)中鍵: 捕捉方式和常用繪圖命令的切換(共兩頁(yè))

---------------------------------------------------------------

下面是一業(yè)余版的二維建筑設(shè)計(jì)軟件，其最大的特色為所繪的實(shí)體僅有
LINE、POLYLINE、CIRCLE和TEXT四種，修改容易。雖只有二十多個(gè)程序，
但確能幫您解決二維繪圖中的一些問(wèn)題。
ax.lsp --- 規(guī)則軸網(wǎng)繪制
chax.lsp --- 軸線線型由點(diǎn)劃線到連續(xù)線的交替變換
wwall.lsp --- 外墻繪制
nwall.lsp --- 內(nèi)墻繪制(beta)
gwall.lsp --- 隔墻繪制(beta)
ss.lsp --- 室外散水
chww.lsp --- 墻線加粗
chw0.lsp --- 墻線加粗恢復(fù)
dimw.lsp --- 標(biāo)注墻厚
zhu.lsp --- 交點(diǎn)插柱
win.lsp --- 墻上插窗
wwin.lsp --- 無(wú)墻畫窗
door.lsp --- 墻上插門

3dimzs.lsp --- 標(biāo)注左邊及上邊的第三排尺寸線
3dimyx.lsp --- 標(biāo)注右邊及下邊的第三排尺寸線

lt1.lsp --- 雙跑樓梯平面
ltpm.lsp --- 雙跑樓梯剖面(better)
wsj.lsp --- 衛(wèi)生間布置
wsj1.lsp --- 單個(gè)側(cè)開(kāi)門衛(wèi)生間
tj1.lsp --- 臺(tái)階繪制
pd.lsp --- 坡道繪制
sy1.lsp --- 索引1
sy2.lsp --- 索引2
lmw.lsp --- 立面窗
lmm.lsp --- 立面門