随手翻：任务执行器分配任务给行进距离最短的任务执行器

任务分配器的pass to选项，返回的是一个端口值。将任务分配给与该中间端口连接的任务执行器。
以下为flexsim17.1自带，寻找行进距离最短的任务分配器：

5 u  F2 a, w& o8 H4 D2 r1 E# I: [

1. treenode tasksequence = param(1);
   / j2 ^, v8 a5 [4 O! F- \
2. Object current = ownerobject(c);
   
3. /**找到距离最近的任务执行器*/
   
4. /**如果任务执行器在网络路径上，则计算网络路径的距离，否则计算实体中心点间距。*/
   
5. double curmin = GLOBAL_UNREACHABLE;
   
6. int minindex = 0;
   4 ?# _$ c; i2 ^) J4 e: C5 N3 F6 i" v
7. treenode destination = NULL;
   
8. for (int taskrank = 1; taskrank <= gettotalnroftasks(tasksequence) && destination == NULL; taskrank++)
   3 K! h9 S' {6 ^' T, N
9. {  // 找到第一个行进任务，并获取行进目的地。&& destination == NULL确保一旦找到行进目的地就退出for循环。
   
10.         if (gettasktype(tasksequence,taskrank) == TASKTYPE_TRAVEL)
    
11.                 destination = gettaskinvolved(tasksequence,taskrank,1);
    7 ], n) {2 q- s( |6 X
12. }
    . g  a% h( F7 {: k. M5 C) X, |
13. 
    
14. if (destination==NULL) // 如果没有行进任务，把任务传递给第一个可用任务执行器。
    6 L' K' D0 u2 m$ z6 Y8 Y( g4 B3 X
15.         return 0;
    3 ?& X9 q% t9 N9 v( P: o
16. 
    4 S* }1 @9 y2 [9 K/ C: S5 z1 n6 H
17. //如果有行进目的地，则遍历所有任务执行器，寻找距离最近的那个。
    7 d! E- _0 B' j# a5 _0 B
18. for (int index = 1; index <= current.outObjects.length; index++)
    4 g) d0 I+ |) Z* T2 b, r
19. {
    
20.         treenode curobj = current.outObjects[index];
    ( e3 J. B$ H1 _
21.         if (curobj && isclasstype(curobj, CLASSTYPE_TASKEXECUTER))
    
22.         //中间端口有连接实体，并且该实体为任务执行器
    
23.         {
    $ f0 n( p# y# m& q4 Q; i
24.                 double curdist = distancetotravel(curobj, destination);
    
25.                 //计算任务执行器和目的地之间的距离
    , V1 G! ~* k! E: K  ]/ ]7 f
26.                 if (curdist != GLOBAL_UNREACHABLE && (curmin == GLOBAL_UNREACHABLE || curmin > curdist))
    " y/ N9 k6 R3 C8 s
27.                 {//如果计算出来的距离小于curmin,则更新curmin，把当前距离作为最小距离。
    
28.                         curmin = curdist;
    9 K+ i5 _& S9 S2 X+ ~3 B
29.                         minindex = index;
    
30.                 }
    
31.         }
    
32. }
    7 [8 B7 y8 V& s4 t/ K
33. 
    8 h* d- }! W$ A  g" U# `
34. return minindex;
    , w* z- |& U+ [' e  ^
35. //返回minindex，距离最近的那个任务执行器在任务分配器上的中间端口号。

复制代码

: ~$ w  t3 x8 Y& G; N$ _
9 e( N3 Z2 L  l# U2 \随手翻，不保证正确性、可读性。

谢谢大神的分享