3D脚本 maxscript入门教程（6）

(2013-05-23 19:59:32)

标签： 建模 maxscript 3dmax it

分类： 脚本

*
这是伏羲先天八卦，乾1兑2离3震4巽5坎6艮7坤8
据易经：天地定位，山泽通气，雷风相薄相，水火不相射
*/
--第一步
--创建数组为后面雕刻八卦用
arr8=#(#(0,0,0),#(0,0,1),#(0,1,0),#(0,1,1),#(1,1,1),#(1,1,0),#(1,0,1),#(1,0,0))
--创建八卦的文本
atext=#("乾","兑","离","震","坤","艮","坎","巽")
--创建一个倒角修改器
bev=bevel Level_1_Outline:1.4 Level_1_Height:2 Use_Level_2:1 Level_2_Outline:0 Level_2_Height:30\
use_Level_3:1 Level_3_Outline:-1.8 Level_3_Height:2

for i in 1 to 8 do (
--把八卦文本分布到八个对应的位置上
atex=text font:"隶书" text:atext prefix:"txt" pos:[0,300,0]
in coordsys world about coordsys rotate atex (eulerangles 0 0 (45*(i-1)))
--创建八卦的卦爻
for j in 1 to 3 do (
r=180+j*30
--创建八卦的卦爻
badd=box pos:[0,r,0] length:16 width:120 height:30 lengthSegs:5 widthSegs:10 heightSegs:4 \
prefix:"badd" wirecolor:white
in coordsys world about coordsys rotate badd (eulerangles 0 0 (45*(i-1)))
--创建给八卦的卦爻雕刻多余部分的雕刻刀。
if arr8[j] !=0 then(
bsub=box pos:[0,r,-2] length:22 width:30 height:34 lengthSegs:5 widthSegs:10 heightSegs:4\
prefix:"bsub" wirecolor:white
in coordsys world about coordsys rotate bsub (eulerangles 0 0 (45*(i-1)))
)
)
)

--第四步
--合并卦爻并删除多余的部分
for i in $badd* do (if i.name != "badd01" then( $badd01+i;delete i))
--合并雕刻刀并删除多余的部分
for i in $bsub* do (if i.name != "bsub01" then( $bsub01+i;delete i))
--为八卦文本加上倒角修改器,并分配材质
for i in $txt* do (
addmodifier i bev
i.material=currentMaterialLibrary["Metal_Dark_Gold"]
)
--雕刻卦爻并分配材质，然后光滑处理
$badd01-$bsub01
delete $bsub01
$badd01.material=currentMaterialLibrary["Metal_Dark_Gold"]
addmodifier $badd01 (meshsmooth())
--结束