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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
( d1 e8 G: }! X+ e/ H0 ?7 i        objName:string;
        obj:object;
) M/ ^" Y9 I5 ?& f# [- A0 c9 F; `        diffY:integer;
  F7 ]0 g$ T/ |; `8 w
3 W; M4 Z) X+ r. l1 P& Ydo       
' Y0 I* ^4 C1 H% y8 H4 [        diffY := height//level - 1;
        if diffY < 1 then
                return;
        end;       
2 U6 M8 t, G8 c6 W1 e2 g       
        for local i := 1 to level loop
4 d: a0 q% M6 s/ t6 x                objName := to_str("p",rowNO,"_",colNO,"_",i);
/ _( P' X: J8 I2 X, B1 A1 Y- q                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
+ c2 T: L" ], a3 K4 A" L$ k& x                local down := 1;
: `- b5 D# V( U- K                local up := current.setanipoint(startPosX + width/2,startPosY+1);
                current.linkAniPoint(up, obj, down); --Á´½Óµã
) q. [# r* Q& p( r* a' F                startPosY := startPosY + diffY + 1;
        next;
end;
需要注意的是要先清空在链接。

知足

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

" A" @/ f2 M) b0 v: y6 ?因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
5 j1 I, B' f: q4 ^: Y  g9 \is
" Z/ C8 V7 l. R0 h9 U% b        objName:string;

. E+ c. J& E7 W* [thx，程序还没试，我通过另一种方法解决了这个问题