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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
# p5 v# S, L2 ^1 ]5 Ris
        objName:string;
: a4 }; S4 N# ]9 }9 t! I1 q5 f        obj:object;
: J( K  _. R6 K        diffY:integer;

  f! E3 f: Y! i# n- }do       
        diffY := height//level - 1;
        if diffY < 1 then
0 i( h% }& d& F* s2 h# p( h" B                return;
        end;       
8 Q( q8 ]1 U* J" m       
        for local i := 1 to level loop
                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
9 S& _2 U3 B7 a2 H5 d4 Q                current.linkAniPoint(up, obj, down); --Á´½Óµã
6 E' h: [4 Y/ [                startPosY := startPosY + diffY + 1;
        next;
end;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
" g& ^! c* r3 B$ e为什么要实现函数连接呢，手动连接不是也很方便啊。

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

知足

sefule 发表于 2014-12-29 16:16
5 g- ]9 D) n, P: c* q(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
( g8 R1 u5 Z$ W" pis
        objName:string;

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