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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
        obj:object;
        diffY:integer;
8 f+ {6 ?$ n: O0 x" c
7 |/ G) M, ?7 Q1 e- X& jdo       
/ d, e' ^7 r; W& M& V0 P5 V6 J        diffY := height//level - 1;
        if diffY < 1 then
- J8 l9 w8 M1 B' f                return;
        end;       
8 [' r8 C1 [- T3 a! ^6 Q& r& D5 c       
        for local i := 1 to level loop
- T% ]" Y! Y# h6 D2 J                objName := to_str("p",rowNO,"_",colNO,"_",i);
  i, s+ S+ Q" i' w# Y                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
, j( `1 ^9 }7 K  |- K/ Q6 v                local down := 1;
8 x, k% M( C3 ^# G. B" n5 Q; ~                local up := current.setanipoint(startPosX + width/2,startPosY+1);
                current.linkAniPoint(up, obj, down); --Á´½Óµã
                startPosY := startPosY + diffY + 1;
        next;
) A2 ?' N5 ?$ }/ A5 ~# K0 uend;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
$ ]# _$ k9 w) @- @' P7 R7 q- K为什么要实现函数连接呢，手动连接不是也很方便啊。

7 T. q' z% q+ q) K因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
8 ^) {$ @: T* T5 g* y. b4 E% N  V- A        objName:string;

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