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

zooey

is
, c) {3 J1 V) I# H. }( g# y        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
1 U/ |. k. T1 E6 q, a' I  Bdo
7 `, l: j. i' @. y4 r9 ^1 |! N        current.eraselayer(1);
+ h# Z( [4 i3 l, i/ z       
' R( w6 z7 U# U. g6 R        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
  A5 Z+ E* o5 F6 z                when 16 then
+ X8 X8 w) L$ w3 t; ~% `( J                        print"yes";
                when 32 then
                        print"no";
                else
                        print"cancel";
( a) }/ j  l! b( p" u                end;
, Z4 ~3 W/ }3 ?2 o8 F4 L" ?                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
) t/ C5 l, o7 M        machinename:=sprint("M",i);
2 M2 ?* w8 @0 v% l        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
! J* Z7 D/ x( P. [9 l" G$ V                machine.deleteobject;
        end;
7 h; h+ I( x  j1 H" @# v% e        bufname:=sprint("BF",i);
        if existsobject(bufname) then
9 ]; O! _8 U: D0 W5 l% D3 L* q                buf:=str_to_obj(bufname);
7 p3 w- J. K8 p! D; y/ Q% h0 i" U3 s                buf.deleteobject;
        end;
/ W. L9 q" K5 z2 c# ]5 V        next;
. J" D: {1 Q8 s0 C- U1 X/ E8 P       
8 R6 a; g+ a% h3 S0 E8 X& K3 V        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
4 g9 q5 _9 w3 s                rows:=str_to_num(omit(machinesequence[1,i],1,1));
" ]5 ]1 i, j+ J! `" N! X# C                --mark:=false;
& j0 U% w* f4 f; f                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 c% p' Q5 p* E. l5 J* t                then
                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
# X8 H- V. n1 z/ v- w9 p                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
6 L) A$ I3 b( }, f/ P7 f) @( Y1 P                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' ]5 U  `6 {. V# Q$ i/ K7 G* R$ n                        activityspace[1,rows]:=ct;
. f* V' a' a) R7 I+ V0 R: U4 X" n                        mark:=true;
5 ^( X" j! m! J" z% J  m                        else*/
: l& ^0 V* S: e% E' P# `2 L                        y_max:=y_max+dy;
( `& V# f7 ~2 A2 P& B                        dx:=0;
                dy:=0;
) ?# o/ k7 I! T" \7 n4 W                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
                d_from_to_chart[number_of_machine+2,i]:=(y_max+activityspace[2,rows]/2)*xscale;
6 t9 S: H2 Z4 R            if activityspace[2,rows]>dy then
; u  j3 t7 k+ }2 h8 b$ S  I: j                        dy:=activityspace[2,rows];
# a9 R3 ?) S7 |: R, i5 Y                end;
                dx:=dx+activityspace[1,rows];
, @4 s* L2 ?& z, J* O( ]: R; @; w                /*if mark=true then
                ct:=activityspace[2,rows];
- Q1 q, r: o+ G1 b, [1 J1 l0 C                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
6 a  n& B( Q* `: F1 x+ r                        end;*/
        next;
* F# x& `0 ]+ ~- y        y_max:=y_max+dy;
" A% c# `, X2 {. e/ h        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);
        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);
       
' V$ z& R  j: o' o$ ^        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
                        if j=i then
! g# M. {5 k9 K& E. O) T" v                                d_from_to_chart[j,i]:=0;
                        else
                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
% x  M' K7 S- F8 J1 e5 h0 E/ Q+ h                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
                                d_from_to_chart[j,i]:=abs(dx-dy);
  L# k# t$ y* v                        end;
5 x( V$ P- q; b) W5 K8 I                next;
        next;
' J* X5 g( H: K$ S( S       
        lines:=0;
) l* @8 C' w5 `5 h/ b' n        partstable.delete;
       
- V# g4 r' O! _' O/ _: @+ g& ^& {        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
) g( g% R8 Z' R' k                machinesequence[2,i]:=rows;
1 V! ^! A* g4 ^* L                for j:=1 to number_of_machine loop
2 X& J" J6 l. y: ?+ b                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
( G  r; U8 N! M  \8 R4 n1 H) p                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
; Q$ U. Z3 V9 [" V7 j                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
3 Z: R* w& c8 Y5 i- p8 Q        next;
        machinename:=sprint("M",rows);
        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]);
        machine.name:=machinename;标识符未知
. M# X) }  ]6 g: {' p; }: \5 b4 B/ u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  P7 |( b& m, e. m, N* }" F        machine.exitctrl:=ref(leave);
       
        bufname:=sprint("BF",rows);
' U* |9 x! F6 D; T, I. E        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;
3 }) Q( z8 m6 _- q2 ?        buf.capacity:=5000;
. q2 ^6 ]4 A& K- T        buf.proctime:=0;
7 e7 \( ^( Q1 N) Y3 D# X        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
& W& h; `& n7 W2 C% J$ L+ O& Ocurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& Z6 W& K# @4 c3 G5 h1 Wend;