JTHWAX 部落格

影片將詳細說明建立與使用方法

管理程式安裝使用-上

管理程式安裝使用-下

mscode_file.txt,文件內容 :
"MS_001-標示尺寸" "dims03b.ms"
"MS_002-更換為標準材質球" "更換為標準材質球.ms"
"MS_003-全選,不選,反選" "全選,不選,反選.ms"
"MS_004-程式顯示名稱" "檔案名稱"
"MS_005-程式顯示名稱" "檔案名稱"
請自行添加程序...

TS_JTHWAX_MAX_LIST.ms,文件內容:

macroScript TS_JTHWAX_MAX
buttontext: "TS_JTHWAX_MAX"
category: "TS_JTHWAX_MAX"
tooltip: "TS_JTHWAX_MAX_LIST"
Icon:#("JTHWAX_LIST",1)

(
--===============================================
files = "c:\\temp\\mscode_file.txt"
--修改此處定義連結檔案路徑及名稱

--===============================================
f = openfile files
D_AR1 = #()
D_MENU = #()

while (not eof f) do (
DP1 = readvalue f
DP2 = readvalue f
D_AR1 = #(DP1 , DP2)
D_MENU = append D_MENU D_AR1
)
close f

d_ar2 = #()
D_MENU2 = #()
for i = 1 to D_MENU.count  do (
dc1 = D_MENU[i][1]
D_MENU2 = append D_MENU2 dc1
)

--===============================================
file_path = "C:\\temp\\max_ms\\"
--修改此處定義*.mx檔案路徑及名稱

--===============================================
rollout combobox_test "JTHWAX_MAX_LIST" (
local mu
local nu

combobox scale_cb "MS_LIST" items:D_MENU2
on scale_cb selected i do (
mu = scale_cb.items[i]
nu = i
)

button theButton "執行" width:200
on theButton pressed do (
if mu == undefined then nu = 1
file_name = D_MENU[nu][2]
file_naph = file_path + file_name
fileIn file_naph
)
)

createDialog combobox_test width:250 height:200
)

本文中建立圖像方法請見下面文章
3dsMax-自訂按鈕圖像方法
詳細內容:
文章來源位置

以上兩篇文章,使用與建立,若有更好方法,請提供意見,謝謝!!!