simtalk程序调试不出来，帮忙看一下

zooey

is
9 R/ G) w& w  t$ ], k% I8 W; g! b        mark:boolean;
7 j, }- a% t: a  p0 ^! |        dx,dy,ct:real;
& A7 P. d* K( z) i: Z8 U    i,j,rows,lines:integer;
    machinename,bufname:string;
/ [: v0 b) I4 S" t( N% ~9 m9 w    machine,buf:object;
# n8 g% M, n1 s+ A/ `. `do
        current.eraselayer(1);
       
3 o3 W; D3 z$ e        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
+ p, y5 `* T9 N, s$ L8 O1 U  r1 Q                when 16 then
, S4 F3 E8 z3 Q, T                        print"yes";
7 M- A" o! r: e/ `/ h                when 32 then
                        print"no";
                else
                        print"cancel";
  p% ]. G; G# R7 X1 x+ t0 Z. E                end;
                eventcontroller.stop;
        end;
# L$ B5 \- @, \1 h3 f8 X2 ?! e: ^       
        for i:=1 to number_of_machine loop
' {1 g4 A7 v9 j& l5 Q# o% M        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
* A5 `; N. Z; t8 d8 Q                machine.deleteobject;
        end;
) [, i# n& ^$ y6 x0 Y        bufname:=sprint("BF",i);
$ g. B0 H1 B& z9 x& o: k- S2 l        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 t6 i$ Y* k: c/ {& x$ y% ~5 t2 [* a4 P                buf.deleteobject;
        end;
        next;
       
+ b, r& x( X6 F6 K$ b3 r" E" h        dx:=0;
+ ]; O- h7 y! k) l) d        dy:=0;
        for i:=1 to number_of_machine loop
4 f" H5 t! M! B' h" D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
, R- L' M1 j7 g; X' S                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
$ _  d) P5 X) K, k7 K                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
! a# [1 ]1 |0 e0 B4 V2 A8 M                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
8 T* g7 g" ?* `$ h4 j                        y_max:=y_max+dy;
2 b" w3 I% B9 \! T6 Y1 H                        dx:=0;
* M" Y: [; K, `                dy:=0;
                        --end;
                end;
3 g; e, w7 f: `& V9 \  k                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
9 ]: {0 ]5 N+ Z0 [! [' K                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
' R5 B; O" B' C( g. i$ \- @            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
9 {+ @6 V8 T; W. X                end;
& j- \9 G0 ~$ n3 f/ ]( J/ f0 m                dx:=dx+activityspace[1,rows];
                /*if mark=true then
                ct:=activityspace[2,rows];
  ^1 C$ |: f1 u2 o                        activityspace[2,rows]:=activityspace[1,rows];
4 f% O7 d& {' F6 Q' g1 _  }                        activityspace[1,rows]:=ct;
) R, r) j# b5 [2 Y! Z2 r7 ]                        end;*/
7 ^' }0 m9 M+ ?3 T: v" V, h! ^6 b, c        next;
/ p) {8 D1 B: ?5 g9 Z. I        y_max:=y_max+dy;
        current.drawrectangle(1,x_pos_init-5,y_pos_init-5,activityspace[1,number_of_machine+1]*xscale+10,y_max*xscale+10,228,174);
2 x/ {" q# p+ B! W5 j$ ^3 l        current.drawrectangle(1,x_pos_init-7,y_pos_init-7,activityspace[1,number_of_machine+1]*xscale+14,y_max*xscale+14,238,176);
       
        rows:=0;
# w, a. r) ~8 r7 N" g0 s        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
                        else
5 V& D$ ~7 s& r                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
: D8 }$ [1 ?% r* l* v. E                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
+ X& i& {, h# i4 z                                d_from_to_chart[j,i]:=abs(dx-dy);
2 \* |! L3 m; C. W' V1 r4 R' ~                        end;
                next;
; K5 ^5 U' g3 t% p        next;
       
        lines:=0;
3 w' g" F! g0 j+ G        partstable.delete;
/ A! z! t1 W+ A3 }/ x1 X  \' F7 _       
        for i:=1 to number_of_machine loop
  B3 v' D$ s' v" E7 R% ~5 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
3 ~1 k# D1 \6 u/ o5 U5 b/ Y                machinesequence[2,i]:=rows;
* Q. ]- g6 e! A  e/ E                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
$ S& R$ }$ r" {4 U& Y4 W                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
* N* p; F; U2 H" y2 Y                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
' K" D; j) D6 ?                        partstable[5,lines]:=rows;
) C, e$ {. E% e, R5 R$ ]                        partstable[6,lines]:=j;
1 n* m7 H* a' H2 _7 G$ W) T                end;
6 y/ \0 d- ]7 y* m* w        next;
        machinename:=sprint("M",rows);
/ |, Z: `& R3 A( Z" G( J+ |        machine:=.materialflow.singleproc.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]+15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
8 V' Q8 l8 G" Q% E& V& p        machine.name:=machinename;标识符未知
3 W& d4 x/ h) @7 J3 ^" @& {& A        machine.proctime:=5;
, ?: t" a. x/ D) ]) q1 N$ h; u2 E        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
1 X5 m8 f! H* C        buf:=.materialflow.buffer.createobject(current,x_pos_init+d_from_to_chart[number_of_machine+1,i]-15,y_pos_init+d_from_to_chart[number_of_machine+2,i]);
        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
! q* Y  e  f5 h2 g# u! S        .materialflow.connector.connect(buf,machine);
( ^$ [7 |% B0 N5 Z6 r       
0 W  S5 G+ S  ?1 X9 K( Z: r8 {) l        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
  ^4 H2 K, W" S# x# |' c7 H, cdy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
end;
/ W) w* V9 T3 F$ G+ [% x/ l; T6 S5 R