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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
5 u+ l, i, f) X, ^& P/ E4 G7 r        objName:string;
" ~4 k: z$ ^: u        obj:object;
        diffY:integer;

do       
        diffY := height//level - 1;
8 i, e  ?* D2 ?5 f. `9 T        if diffY < 1 then
                return;
$ x! o' B# M! G  c" Y6 `& n& Q% N        end;       
       
' b  l0 e# A( y: P7 L  k( U  a        for local i := 1 to level loop
2 _+ \0 T1 t8 M5 r3 P/ F                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
% _0 A" d% l4 ?# F6 \+ o                --local down := obj.setAnipoint()
4 [/ z1 p4 F8 W                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
: [' Z  c! N. f9 H* m, z                current.linkAniPoint(up, obj, down); --Á´½Óµã
                startPosY := startPosY + diffY + 1;
        next;
; v3 ~9 ?- u5 N# T$ Yend;
需要注意的是要先清空在链接。

知足

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

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

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;

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