3dsMAX脚本管理插件

http://www.cgplusplus.com/bbs/viewthread.php?tid=5542&extra=page%3D3

本脚本自动加载指定目录下的*.ms或*.mse脚本文件到插件，有多少个这样的脚本就创建几个按钮，并自动以脚本文件名为按钮名称；这个工具的布局有点像max工具箱，由于篇幅不是很长，技术含量也不高，就直接发源码了；支持列表拉伸

1. /**
   
2. * 2013-5-10 由 霸王硬上弓 编写
   
3. * cg++ id :脚本天下
   
4. * 转载请注明出处，Element3ds万岁
   
5. */
   
6. 
   
7. global dlgIns = rolloutCreator "defaultRol" rolloutName  --控件的父窗口
   
8. global currBtnList = undefined
   
9. 
   
10. fn findLastString str substr =(  --可以使用findLastString "12xx3xxxx4xxx567x8" "xx"测试；找到最后一个字符串的索引
    
11.         lastInd = ind = 0
    
12.         while ((ind = findstring str substr) !=undefined) do(
    
13.                 str = substring str (ind+1) -1
    
14.                 lastInd+=ind
    
15.         )
    
16.         lastInd
    
17. )
    
18. 
    
19. fn filterstr str findstr &strs= (
    
20.         ind = findstring str findstr
    
21.         if ind !=undefined then (
    
22.                 if ind > 1 do (
    
23.                         cutstr = substring str 1 (ind-1)
    
24.                         append strs cutstr
    
25.                 )
    
26.                 levstr = substring str (ind + findstr.count) -1
    
27.                 filterstr levstr findstr &strs
    
28.         )
    
29.         else if str!="" then append strs str
    
30. )
    
31. firstInd
    
32. fn replaceString str findStr replaceStr filterStand:on =( --默认开启标准filter，需要使用逐字符过滤就关闭
    
33.         strArr = #()
    
34.         if filterStand then (
    
35.                 strArr = filterstring str findstr
    
36.         ) --filterstring "xxx-xxx-xxx" "x-x"结果为#()空，不是#("xx","x","xx")
    
37.         else(
    
38.                 filterstr str findstr &strArr
    
39.         )
    
40.         firstInd = findstring str findstr
    
41.         lastkey  = findLaststring str findstr
    
42.         result = ""
    
43.         for i=1 to strArr.count do append result (strArr+replaceStr)
    
44.         if lastkey+findstr.count != str.count+1 do result = substring result 1 (result.count-replaceStr.count) --替换字符串不为尾项就掐掉
    
45.         if firstInd == 1 do result = replaceStr + result  --替换字符串为首项就添加替换字符到最前
    
46.         result
    
47. )
    
48. 
    
49. fn getMxs_ directory &pathArr=(
    
50.         if directory != undefined and doesFileExist directory then (
    
51.                 mxsArr = getFiles (directory+"*.ms*")
    
52.                 mxsArr = for mxs in mxsArr where not (getFileAttribute mxs #hidden) collect mxs
    
53.                 join pathArr mxsArr
    
54.                 dirArr = getDirectories (directory+"*")
    
55.                 dirArr = for d in dirArr where not  (getFileAttribute d #hidden) collect d
    
56.                 for d in dirArr do getMxs_ d pathArr
    
57.                 pathArr
    
58.         )
    
59.         else #()
    
60. )
    
61. 
    
62. fn gencurrBtnList files rolloutName = ( --用于脚本管理器中 生成动态对话框
    
63.         dlgIns = rolloutCreator "defaultRol" rolloutName
    
64.         dlgIns.begin()
    
65.         for i=1 to files.count do(
    
66.                 fname = getFilenameFile files
    
67.                 theCtrl = "dlgIns.addControl #Button #Button"+(i as string)+" "" + fname + "" " + "paramStr: " width:150 height:25 ""
    
68.                 execute theCtrl
    
69.                 event = "dlgIns.addHandler #Button"+(i as string)+" #pressed filter:on codeStr:"fileIn @"+files+"@" "
    
70.                 execute event
    
71.                 event2 = "dlgIns.addHandler #Button"+(i as string)+" #rightclick filter:on codeStr:"shellLaunch @"+files+"@ @ @ " " --两个@ @不能靠紧
    
72.                 execute event2
    
73.         )
    
74.         rol = dlgIns.end()
    
75.         rol
    
76. )
    
77. 
    
78. fn defaultPath srcPath tagPath = (
    
79.         if not doesFileExist srcPath then tagPath
    
80.         else srcPath
    
81. )
    
82. 
    
83. rollout rt_mxsManager  "MaxScript Manager" width:200 height:400(
    
84.         edittext edt_msPath "Path:" text:"" width:150 height:20 across:2
    
85.         button btn_msPath "+" width:20 offset:[35,0]
    
86.         subrollout workZone "subRol" height:(rt_mxsManager.height - 40 )
    
87. 
    
88.                 local selfScriptDir = getFileNamePath (getsourceFileName()) --缺省脚本目录
    
89.         local msPathIni = selfScriptDir + "msPath.ini"
    
90. 
    
91. 
    
92.         on rt_mxsManager  open do (
    
93.                 pathFromIni = getIniSetting msPathIni "Directories" "MS"
    
94.                 msPath = defaultPath pathFromIni selfScriptDir
    
95.                 edt_msPath.text = replaceString msPath "/" "\"
    
96.                 dfiles = getMxs_ msPath #()
    
97.                 files = for file in dfiles collect (replaceString file "\" "/")
    
98.                 currBtnList = gencurrBtnList files "Third Plugin"
    
99.                 AddSubRollout rt_mxsManager.workZone currBtnList
    
100. 
     
101.                 height = (getIniSetting msPathIni "UI" "height") as number
     
102.                 if height == 0 do height = 400
     
103.                 rt_mxsManager.height = height
     
104.                 rt_mxsManager.workZone.height = (amax height 41) - 40
     
105.         )
     
106. 
     
107.         on btn_msPath pressed do(
     
108.                 scriptDir = getSavePath caption:"Get Directories" initialDir:(defaultPath (edt_msPath.text) selfScriptDir)
     
109.                 edt_msPath.text = scriptDir
     
110.                 dfiles = getMxs_ scriptDir #()
     
111.                 files = for file in dfiles collect (replaceString file "\" "/")
     
112.                 if files.count>0 do (
     
113.                         newBtnList = gencurrBtnList files "Third Plugin"
     
114.                         removeSubRollout rt_mxsManager.workZone currBtnList
     
115.                         AddSubRollout rt_mxsManager.workZone newBtnList
     
116.                         currBtnList = newBtnList
     
117.                 )
     
118.         )
     
119. 
     
120.         on rt_mxsManager close do (
     
121.                 setINISetting msPathIni "Directories" "MS" ( replaceString (edt_msPath.text) "\" "/" )
     
122.                 setINISetting msPathIni "UI" "height" (rt_mxsManager.height as string)
     
123.         )
     
124. 
     
125.         on rt_mxsManager resized size do (
     
126.                rt_mxsManager.workZone.height = size.y - 40
     
127.         )
     
128. )
     
129. createDialog rt_mxsManager lockWidth:on lockHeight:off style:#(#style_resizing,#style_toolwindow,#style_sysmenu)

点击此处复制文本

技术牛！

讲的不错，支持一下

大神的绝学都 公布了！受益终身啊！

{:1_141:}

给力！元素有你更精彩

牛人

我和我的小伙伴们都惊呆了！

楼主不该放弃治疗啊！

太牛了

好东西

好东西

好东西

讲的不错，支持一下

给力！元素有你更精彩

谢谢分享

{:1_152:}