MAXScript101_5.1 ChainMaker-Geometry Creation using Splines

1. 测试torus的法向

pos = lengthInterp $Line01 0.5
-- 曲线在某一点的切向沿着曲线方向，在图中显示为local coordsys的z 向
tanV= lengthTangent $Line01 0.5
-- 物体的方向定义为local coordsys的z -axis 方向
box width: 10 height:20 pos: pos dir:tanV
torus radius:25 radius2:10 pos: pos dir: tanV

注：上图中，torus中心显示的坐标系为其local coordsys;

2. chainMaker1 - rollout
-- 1. 选择曲线作为链条的路径，同时pickButon下面的label显示相应曲线的名字；
-- 2. 修改直径，厚度 以及线框颜色值；
-- 3. 按 Create Chain 按钮，创建链条
-- 4. 注：修改直径，厚度的值，场景中的链条不会发生相应改变

-- rollout; group; pickButton, label, spinner, colorPicker, button<br /> -- 拾取曲线，按照spinner给定的数值，创建一条沿着该曲线的一系列torus,并且站立，平躺交替出现<br /> rollout ChainMaker "Chain Maker"<br /> (<br /> local curve -- holds the picked curve<br /> -- pick filter function, only allow shapes to be picked<br /> fn shapesOnly obj = isKindOf obj shape<br /> --<br /> group "Controlling Curve"<br /> (<br /> pickButton pickCurve "Pick Curve" width:100 filter:shapesOnly<br /> label theCurve "-- none --"<br /> )</p> <p> group "Chain Parameters"<br /> (<br /> spinner diam "Link Diameter: " range:[1, 500, 12]<br /> -- thickness 记录torus实体部分直径<br /> spinner thickness "Link Thickness: " range:[0.1, 500, 2]<br /> colorPicker wireColor "Wire Color: " align: #center<br /> )<br /> -- 初始化按钮，当没有选择好curve时，该按钮不起作用<br /> button create "Create Chain" width: 100 enabled: false</p> <p> -- 在场景中选择一条曲线，存入变量curve中，并且改变label的文本，同时激活create按钮<br /> on pickCurve picked obj do<br /> (<br /> -- handle pick, remember picked object & display its name<br /> curve = obj<br /> theCurve.text = obj.name<br /> create.enabled = true<br /> )<br /> -- 按下按钮，创建链条<br /> on create pressed do<br /> (<br /> -- create the chain<br /> local len = curvelength curve,<br /> uStep = (diam.value - thickness.value) / len,<br /> up = true<br /> -- step along curve param based on link diameter & thickness<br /> for u = 0.0 to 1.0 by uStep do<br /> (<br /> -- figure point & tangent on line, create torus at<br /> -- that location and direction<br /> local pos = lengthInterp curve u,<br /> -- 曲线在参数值为u时点的切向量<br /> tan = lengthTangent curve u,<br /> t = torus radius1: (diam.value/2) radius2:(thickness.value/2) pos: pos dir: tan wireColor: wireColor.color<br /> -- test the interpolation position<br /> sphere radius:2 pos: pos wireColor: red<br /> --rotate the torus around local y or x to sit flat or up along curve<br /> -- 保证torus，沿着曲线方向，平放 交替出现<br /> coordsys local rotate t 90 (if up then y_axis else x_axis)<br /> -- toggle rotate direction<br /> up = not up<br /> )<br /> )</p> <p>)<br /> createDialog chainMaker width:180 

3. chainMaker2 - rollout
-- 1. 选择曲线作为链条的路径，并且pickButon下面的label显示相应曲线的名字；同时创建默认值的链条；
-- 2. 修改直径，厚度以及相框颜色值，场景中的链条发生相应改变；
-- 3. 按 Delete Chains 按钮，删除场景中的链条，并且pickButon下面的label重新显示为"-- none --"；

-- rollout; group; pickButton, label, spinner, colorPicker, button<br /> -- 拾取曲线，按照spinner给定的数值，创建一条沿着该曲线的一系列torus,并且站立，平躺交替出现<br /> rollout ChainMaker "Chain Maker"<br /> (<br /> local curve, -- holds the picked curve<br /> chain = #() -- holds links<br /> -- pick filter function, only allow shapes to be picked<br /> fn shapesOnly obj = isKindOf obj shape<br /> --<br /> group "Controlling Curve"<br /> (<br /> pickButton pickCurve "Pick Curve" width:100 filter:shapesOnly<br /> label theCurve "-- none --"<br /> )</p> <p> group "Chain Parameters"<br /> (<br /> spinner diam "Link Diameter: " range:[1, 500, 12]<br /> -- thickness 记录torus实体部分直径<br /> spinner thickness "Link Thickness: " range:[0.1, 500, 2]<br /> colorPicker wireColor "Wire Color: " align: #center<br /> )<br /> -- 初始化创建按钮，当没有选择好curve时，该按钮不起作用<br /> --button create "Create Chain" width: 100 enabled: false<br /> -- 初始化删除按钮<br /> button deleteChain "Delete Chains" width:100 enabled:false</p> <p> fn updateChain =<br /> (<br /> -- compute curve param step based on link diameter & thickness<br /> local len = curvelength curve,<br /> uStep = (diam.value - thickness.value) / len,<br /> up = true,<br /> i = 1<br /> -- step along curve<br /> -- 1: 初始时，chain.count = 0; i记录循环的次数，<br /> -- 2：在场景中没有链条的时候，创建链条<br /> -- 3: 在场景中存在链条的时候，由于 i 不可能超过chain.count，故for循环语句中，不再生成torus，但会改变torus的状态<br /> for u = 0.0 to 1.0 by uStep do<br /> (<br /> -- add a new link if needed, create a torus<br /> if i > chain.count then chain[i] = torus wireColor: wireColor.color<br /> -- grab next link; size, place & orient<br /> local t = chain[i]<br /> t.radius1 = diam.value / 2<br /> t.radius2 = thickness.value / 2<br /> t.pos = lengthInterp curve u<br /> t.dir = lengthTangent curve u<br /> coordsys local rotate t 90 (if up then y_axis else x_axis)<br /> -- toggle rotate direction & bump link index<br /> up = not up<br /> i += 1<br /> )<br /> -- delete any extraneous links，删除多余的torus<br /> for j in i to chain.count do<br /> (<br /> -- delete 删除结点，但是在数组中的那个位置仍然存在<br /> delete chain[i]<br /> -- deleteItem 删除数组的位置，数组的size减1<br /> deleteItem chain i<br /> )<br /> )</p> <p> -- 在场景中选择一条曲线，存入变量curve中，并且改变label的文本，同时激活delete按钮，创建链条<br /> on pickCurve picked obj do<br /> (<br /> -- handle pick, remember picked object & display its name<br /> curve = obj<br /> theCurve.text = obj.name<br /> deleteChain.enabled = true<br /> updateChain()<br /> )</p> <p> on deleteChain pressed do (delete chain; chain = #(); theCurve.text = "-- none --")<br /> on diam changed val do updateChain()<br /> on thickness changed val do updateChain()<br /> on wireColor changed val do chain.wireColor = val</p> <p>)<br /> createDialog chainMaker width:180 

4. 将.ms制作成菜单

(1) 假设上述的MAXScript存成chain Maker2.ms

(2) 新建maxscript文件，输入制作菜单模板如下，并且保存到与chain Maker2.ms同一个文件夹下

macroScript ChainMaker2Macro category: "My Tools" buttonText: "Chain Maker" toolTip: "Makes chains along a curve"

(

global ChainMaker2

if ChainMaker2 == undefined or not ChainMaker2.open do

fileIn "chain Maker2.ms" -- 该ms文件与macro文件在同一个文件夹下

)

(3) 按ctrl + E 运行之，这样就会在custom > custome user interface 的all commands中产生名为为"My Tools";

(4) 接下来，按照制作菜单流程操作就可以了。 可以参照 MaxScript入门指引系列（四）MaxScript Editor和Macroscripts