一些免費的 Autolisp <四>

很多年前寫的 AutoLisp (不含原始碼) 跟各位分享，輸入規格自動繪製公制結構鋼材斷面

鋼鐵手冊 http://tech.ths.com.tw/ths1/directory.htm

用起來覺得還是比動態圖塊要快得多





MaxSteel 結構鋼斷面繪製工具
設計動機 : 由於鋼結構斷面規格頗多製成Block 或撰寫以DCL 對話框之ListBox 挑選之方式皆不便
故採用直接輸入規格的方式繪製結構鋼斷面 , 這幾個程式與您分享 .

(感謝Jimmo 網友提供功能表檔STEEL.MNS 及安裝說明

安裝
1複製MaxSteel 資料夾至電腦硬碟
2開啟AUTOCAD (2002以上版本)
→工具
→載入應用程式
→載入 MaxSteel.VLX
→啟動套件
→加入 MaxSteel.VLX
→關閉

→工具
→自訂
→功能表
→瀏灠 將STEEL.MNS 載入
→關閉

→工具
→環境選項
→選擇 檔案 標纖
→支援搜尋路徑
→加入
→瀏覽 將C:\MaxSteelSource 加入
→上移 將C:\MaxSteelSource 移到最上層

MaxSteel 用法

STEELFC
指令: _SteelFc
請輸入 槽鋼 高度<75>:
請輸入 槽鋼 寬度<40>:
請輸入 槽鋼 腹板厚度<5>:
請輸入 槽鋼 翼板厚度<7>:
大圓角值1<8>:
小圓角值2<4>:
請選擇插入點:
(自動產生Label ) C-75x40x5x7
------------------------------------------------------------------------
STEELLC
指令: _SteelLC
請輸入輕型鋼 高度<75>:
請輸入輕型鋼 寬度<40>:
請輸入輕型鋼 回折<15>:
請輸入輕型鋼 厚度<1.6>:
請選擇插入點:
(自動產生Label ) C-75x40x15x1.6
------------------------------------------------------------------------
STEELLL
指令: _SteelLL
請輸入角鋼 邊長<100>:
請輸入角鋼 邊長<100>:
請輸入角鋼 厚度<7>:
請輸入角鋼 大圓角<10>:
請輸入角鋼 小圓角<5>:
請選擇插入點:
(自動產生Label ) L-100x100x7t
------------------------------------------------------------------------
STEELPFC
指令: _SteelPFC
請輸入 PFC 槽鋼 高度<380>:
請輸入 PFC 槽鋼 寬度<100>:
請輸入 PFC 槽鋼 腹板厚度<11>:
請輸入 PFC 槽鋼 翼板厚度<19>:
大圓角值<15>:
請選擇插入點:
(自動產生Label ) PFC-380x100x11x19
------------------------------------------------------------------------
STEELRH
指令: _SteelRH
請輸入 H-Pin 高度<350>:
請輸入 H-Pin 寬度<175>:
請輸入 H-Pin 腹板厚度<7>:
請輸入 H-Pin 翼板厚度<11>:
圓角值<13>:
請選擇插入點:
(自動產生Label ) RH-350x175x7x11
PL 繪製工具
MaxRectangle
MaxRectangleU
MaxRectangleD
註: 三指令共用一字典變數值( 非常方便 )
<模式一>
指令: _Maxrectangle
填滿位置(基準點)或設定W寬度<30>
填滿長度第二點:
<模式二>
指令: _MaxRectangle
填滿位置(基準點)或設定W寬度<30>w (註:可螢幕取點當板厚或手動輸入板厚)
請輸入W寬度值:<30>6
填滿位置(基準點)或設定W寬度<6>
填滿長度第二點:

MaxCub(邊長繪製正方形)
指令: _MaxCub
請輸入寬度值W 或點選螢幕上兩點<1.6>:
點選螢幕以決定寬度<1.6>:2


下載位置 : http://www.4shared.com/file/117517113/bb390035/MaxSteel___.html


# 一些免費的 AutoLisp <一>


# 一些免費的 Autolisp <二>


# 一些免費的 Autolisp <三>


# 一些免費的 Autolisp <四>