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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
5 ^5 \2 y8 X2 A) u) P! Q) Y2 x        obj:object;
: p  s& T  A- u6 J+ v' S* x* I        diffY:integer;
5 ]6 {. j# C) g) }0 g
do       
        diffY := height//level - 1;
3 ^& n/ P0 ]4 M7 D: G0 @        if diffY < 1 then
                return;
8 n& P' g3 ]2 J2 W/ |9 ^  |        end;       
       
% Q) F1 a0 ~+ q7 W$ i' c; u        for local i := 1 to level loop
                objName := to_str("p",rowNO,"_",colNO,"_",i);
                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
+ }9 R0 {4 ?. g: P/ g9 H                --local down := obj.setAnipoint()
6 R' l" ~9 d3 F; l1 [                local down := 1;
                local up := current.setanipoint(startPosX + width/2,startPosY+1);
2 X! r" ?. ?- ?6 k/ D3 O7 F                current.linkAniPoint(up, obj, down); --Á´½Óµã
                startPosY := startPosY + diffY + 1;
        next;
6 e2 n) f$ |+ w  t* }2 a9 g& hend;
需要注意的是要先清空在链接。

知足

dongshui8558 发表于 2014-12-28 09:45
( w) ^2 I! D2 u7 @为什么要实现函数连接呢，手动连接不是也很方便啊。

7 Q, J  q0 F9 A) y4 ]9 B/ I! u" ?因为我有多种情况要需要触发多个动画点

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
7 _) b2 I- j9 [# wis
( O6 ?' v3 m7 [8 H6 R8 J        objName:string;

$ }$ T. ^* S* u# Athx，程序还没试，我通过另一种方法解决了这个问题