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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
        obj:object;
        diffY:integer;

do       
& \. Z0 Z, I# I6 G  X+ W        diffY := height//level - 1;
# O% J, Y$ Z. w+ h7 H        if diffY < 1 then
                return;
7 y; d: O3 i- H        end;       
9 T7 C, r7 ]( y       
/ P* N2 v& M$ h        for local i := 1 to level loop
                objName := to_str("p",rowNO,"_",colNO,"_",i);
! b. O& e3 }6 u! v6 d                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
3 E) M7 \4 P) d' H8 }% t                --local down := obj.setAnipoint()
/ m( i% f" Y3 ]6 F# _( k                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
$ Y2 N3 r- A+ C! e  V1 q                current.linkAniPoint(up, obj, down); --Á´½Óµã
, a4 n& s# _1 Q4 A9 W) r; R3 z! s                startPosY := startPosY + diffY + 1;
        next;
/ a) _) k4 o. U. eend;
0 |6 {* v; X4 k/ u需要注意的是要先清空在链接。

知足

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

) @) t& a) N! d! o因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
0 u2 y5 J! a! v2 d) T(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
0 v" ]$ P; j( U7 w, Iis
2 X. B# e7 m, N! A: ?        objName:string;

7 Q* E( _  t- Fthx，程序还没试，我通过另一种方法解决了这个问题