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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
        obj:object;
  _5 X7 ]- z. a. C9 [7 C: M4 Y        diffY:integer;

do       
        diffY := height//level - 1;
) q$ @3 Q3 z' K+ l. j" Z        if diffY < 1 then
                return;
3 p2 F0 @4 d% z% T; N: @        end;       
       
  w% w. G# @+ V: |1 P        for local i := 1 to level loop
                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
. S  u; O6 G& F1 y                --local down := obj.setAnipoint()
! ]0 y+ m7 A* J                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
                current.linkAniPoint(up, obj, down); --Á´½Óµã
! a; K' D) E! ^  @6 O3 H                startPosY := startPosY + diffY + 1;
        next;
7 G, S1 d4 V) r/ J+ P/ I* Wend;
需要注意的是要先清空在链接。

知足

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

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

知足

sefule 发表于 2014-12-29 16:16
  @1 u6 w2 ?+ d& d5 M7 J2 M% ^, k+ R- Z1 x(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;

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