您的位置:網(wǎng)站首頁(yè) > 綜合下載
柱子填充的autolisp源代碼下載
- 軟件大小:1 GB
- 更新時(shí)間:2010-11-18
- 軟件授權(quán):免費(fèi)下載
- 所屬欄目:綜合下載
- 軟件情況:綠色安全免費(fèi)下載
- 軟件語(yǔ)言:簡(jiǎn)體中文
- 應(yīng)用平臺(tái):windows xp/vista/win7/
- 本站地址:CAD之家 m.drbzy.com
軟件介紹
對(duì)于TSSD的填充功能不大好用,存在好多的限制,
比如要求是柱圖層,要求是隨層的顏色.
使用方法我就不說(shuō)了.
命令mybh
Quote
(Defun c:mybh (/ e e1 la ps si smx ss ssh)
(command "_undo" "be" "")
(command "layer" "m" "HATCH" "")
(if (and
(princ "n選擇要填實(shí)的柱子<退出>:")
(setq
ss (ssget (list '(0 . "lwpolyline") ))
)
)
(progn
(setq smx (sslength ss)
si 0
)
(while (< si smx)
(setq e (ssname ss si)
si (1+ si)
)
(if t
(progn
(if nil;(setq e1 (entnext e))
(command ".-bhatch" "p" "s" "s" e e1 "" "")
(command ".-bhatch" "p" "s" "s" e "" "")
)
;(@htas nil)
)
)
)
)
)
(command "_undo" "e" "")
)
(command "_undo" "be" "")
(command "layer" "m" "HATCH" "")
(if (and
(princ "n選擇要填實(shí)的柱子<退出>:")
(setq
ss (ssget (list '(0 . "lwpolyline") ))
)
)
(progn
(setq smx (sslength ss)
si 0
)
(while (< si smx)
(setq e (ssname ss si)
si (1+ si)
)
(if t
(progn
(if nil;(setq e1 (entnext e))
(command ".-bhatch" "p" "s" "s" e e1 "" "")
(command ".-bhatch" "p" "s" "s" e "" "")
)
;(@htas nil)
)
)
)
)
)
(command "_undo" "e" "")
)
[ 下載地址1 ]
推薦下載
相關(guān)下載
- BIM技術(shù)叢書Revit軟件應(yīng)用系列Auto
- 全國(guó)專業(yè)技術(shù)人員計(jì)算機(jī)應(yīng)用能力考
- EXCEL在工作中的應(yīng)用 制表、數(shù)據(jù)處
- 從零開始AutoCAD 2014中文版機(jī)械制
- 從零開始AutoCAD 2014中文版建筑制
- 電氣CAD實(shí)例教程AutoCAD 2010中文
- 電影風(fēng)暴2:Maya影像實(shí)拍與三維合成
- 高等院校藝術(shù)設(shè)計(jì)案例教程中文版Au
- 環(huán)境藝術(shù)制圖AutoCAD [徐幼光 編著
- 機(jī)械A(chǔ)utoCAD 項(xiàng)目教程 第3版 [繆希