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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
$ R. |5 E3 W8 _' Q0 f! w  ois
        objName:string;
$ ~( A6 @6 Z7 c9 r, H% V        obj:object;
        diffY:integer;

do       
' I& Q( ?* i, R$ T, @7 ]        diffY := height//level - 1;
" }% ^; E+ z" E        if diffY < 1 then
                return;
        end;       
; Z2 a" _9 ]2 s' U4 r2 v* \8 Q       
$ H+ F, i, m1 E) W; x/ J        for local i := 1 to level loop
$ ~( y7 K0 G& `. Y, m                objName := to_str("p",rowNO,"_",colNO,"_",i);
0 E$ ^9 C4 `" E9 F7 D$ Q6 w- Z                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
                local down := 1;
0 A" K/ Q- M  g: ~2 E. M                local up := current.setanipoint(startPosX + width/2,startPosY+1);
                current.linkAniPoint(up, obj, down); --Á´½Óµã
; w0 I2 k; c6 q  G3 H' ^6 v# _                startPosY := startPosY + diffY + 1;
( N& D( E' w5 G# ~3 ?        next;
end;
需要注意的是要先清空在链接。

知足

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

. }. q9 }8 O. t; n# g- R因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
) H8 _" A! J/ k& j' r- I(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;

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