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

知足

急急急，thx

dongshui8558

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

sefule

(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
        objName:string;
        obj:object;
        diffY:integer;
* @# Q0 G+ s# `/ b* s
do       
2 `1 T' F4 [2 l        diffY := height//level - 1;
        if diffY < 1 then
& E! G: g4 q8 S5 T7 [                return;
        end;       
7 |3 q2 B. p) E- @4 {$ E8 d       
        for local i := 1 to level loop
4 T: G, z' M; m; S4 E; w, V                objName := to_str("p",rowNO,"_",colNO,"_",i);
! L$ I& [% h2 N6 Q: [- c0 Q                obj := .Models2.MaterialFlow.SingleProc.CreateObject(current,startPosX,startPosY,objName);
                --local down := obj.setAnipoint()
! V  @. t. p9 o& Z+ h) S                local down := 1;
; G7 C! G" q4 \' K% t( r                local up := current.setanipoint(startPosX + width/2,startPosY+1);
5 B3 l/ E' r2 n9 d( |7 Y, G: m                current.linkAniPoint(up, obj, down); --Á´½Óµã
; G2 U! B3 E3 I, ~2 i9 n' K                startPosY := startPosY + diffY + 1;
        next;
- _6 W+ J* P; y; T8 m; D( W+ E# kend;
" T# a% F6 ]' g2 {/ ~0 I$ N6 j需要注意的是要先清空在链接。

知足

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

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

知足

sefule 发表于 2014-12-29 16:16
(startPosX,startPosY,level,width,height,rowNO,colNO:integer)
is
5 x4 ~+ M! [8 l1 p        objName:string;

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