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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
0 o" q6 f# p/ E  F4 f        objName:string;
        obj:object;
1 M. {  Z& z. T5 r2 s3 H) m        diffY:integer;

" [, n+ ]' C, v+ P" H  j% Jdo       
        diffY := height//level - 1;
0 h* Z1 m4 f* D: Q        if diffY < 1 then
; w! i7 P9 t0 [                return;
        end;       
  @2 E$ j3 z- M/ j/ c  X# j       
        for local i := 1 to level loop
4 ]5 H: V5 n: z* J4 u                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
4 H3 z* a& n! ^- Y& [) }' W+ D% U9 y                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
2 j6 z  Z. N0 _8 u3 n                current.linkAniPoint(up, obj, down); --Á´½Óµã
2 j0 |2 L* A8 P- f3 v' P                startPosY := startPosY + diffY + 1;
        next;
0 P; i0 U, u4 X$ c: h9 M. t/ \end;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
" j3 U' T/ |8 I3 C为什么要实现函数连接呢，手动连接不是也很方便啊。

+ \! ?& Q  q* s9 R) `9 Y; A$ W0 b因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
9 L1 M# L- J- f1 R0 B4 e$ u' q(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
8 t" G% B, c" k( b0 bis
        objName:string;

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