emplant中如何用函数来实现动画点链接对象

知足

急急急，thx

dongshui8558

为什么要实现函数连接呢，手动连接不是也很方便啊。

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
        obj:object;
        diffY:integer;
& H3 z1 L8 `# F2 A
! q7 ?% e2 L+ U; \/ J3 Gdo       
        diffY := height//level - 1;
5 {+ j9 n9 U, D/ p6 B0 `$ U4 ~        if diffY < 1 then
: v4 j2 E# G6 w9 Y0 ?% q                return;
        end;       
       
        for local i := 1 to level loop
( t0 a9 g* J3 f: [  g9 k  ]                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
5 P6 k; G& F4 [0 `: e% L$ _5 ?                --local down := obj.setAnipoint()
/ n6 ~/ ]3 Q2 X9 a7 I                local down := 1;
. j1 y. w, c+ G& i0 Q                local up := current.setanipoint(startPosX + width/2,startPosY+1);
2 z& I( I8 f0 G8 j& c                current.linkAniPoint(up, obj, down); --Á´½Óµã
                startPosY := startPosY + diffY + 1;
        next;
end;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
为什么要实现函数连接呢，手动连接不是也很方便啊。

因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;

thx，程序还没试，我通过另一种方法解决了这个问题