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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
/ X2 w; {- Q1 l2 T5 eis
% n; L# t. c2 d& ]        objName:string;
. e  i4 @; f* J7 P2 n$ }        obj:object;
+ i: i1 N; b$ w6 D  L  x  H        diffY:integer;

do       
        diffY := height//level - 1;
; t, a6 F- l/ p! Q! @. m& n        if diffY < 1 then
! _9 Z: U# a8 s2 p$ S                return;
        end;       
6 C( j: I- E* m8 @7 Q- a       
. _, `. {5 ]% ^7 k9 e& N  a        for local i := 1 to level loop
                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
. I  ~" l) c6 g/ k8 L                --local down := obj.setAnipoint()
                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
: o" v2 ?% F: d# h: k3 c0 M                current.linkAniPoint(up, obj, down); --Á´½Óµã
                startPosY := startPosY + diffY + 1;
$ f; R# g$ c& N+ `' Y$ M& N; h* u7 `        next;
end;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
5 C- Y( x3 }6 H7 Y9 `" T为什么要实现函数连接呢，手动连接不是也很方便啊。

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

知足

sefule 发表于 2014-12-29 16:16
7 }! Y4 F) ]0 h2 |/ q' m: _' u(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
8 n+ @& M2 E) V. d  B/ fis
$ |- e7 m) F! Z* d1 M: O3 F        objName:string;

  {$ c" F# I# Q' ]2 k. p( rthx，程序还没试，我通过另一种方法解决了这个问题