{:soso_e179:}
AutoCAD-LISP程序100例.JPG (143.82 KB, 下載次數: 28)
2011-10-18 14:42 上傳
有說明很好！頂
如果您使用 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. 按Shift-Ctrl-鼠標右鍵: 啟動"超級視圖"
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 --- 立面門
------------------------------------------------------------
