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

zooey

is
        mark:boolean;
3 s  C( n) ?, ]0 G# ~& d        dx,dy,ct:real;
+ T2 Z/ N$ a7 u- k; N    i,j,rows,lines:integer;
, |3 _. p9 t3 Y7 j# y3 ~, A' u    machinename,bufname:string;
% F* v" J! f% M8 Y  B& v8 }, l    machine,buf:object;
do
) y/ ]* B( r1 X# G/ Y% L        current.eraselayer(1);
       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
+ P% m# }8 R5 V3 s4 _5 w3 z4 b$ l' |                        print"yes";
( `) o. E0 v8 F: S, y                when 32 then
                        print"no";
                else
6 F7 S+ @9 ~4 s' a                        print"cancel";
                end;
                eventcontroller.stop;
& G  X2 u+ S, }- ~4 d5 K        end;
       
        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
: {6 S' [  N+ x5 M                machine.deleteobject;
0 {# z9 [  Y3 g, e        end;
6 I, K7 f% g7 h: c        bufname:=sprint("BF",i);
        if existsobject(bufname) then
/ n3 Q8 s" T7 A! G& h                buf:=str_to_obj(bufname);
# V2 d1 B  _3 ]; A' z                buf.deleteobject;
        end;
# X4 R) L9 l9 O6 w        next;
3 t. K$ w8 e$ A  _       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
7 x# [% u) Q) C* Z, H& O                --mark:=false;
- {$ W# _; g( c, D                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
# F, @$ r3 B; f) ]% Q7 {                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
" Z* P5 y& [  N: e; F9 i/ _                        and activityspace[1,rows]<(1.05*y_max) then
1 a; L* v* V+ h9 }. L                        print activityspace[1,rows],",",activityspace[2,rows];
" I$ `4 \* h; U9 J3 k$ N, q                        ct:=activityspace[2,rows];
+ o: ]( B' b& c                        activityspace[2,rows]:=activityspace[1,rows];
9 @6 H" w, A8 m/ J2 i                        activityspace[1,rows]:=ct;
1 X1 m+ ^0 S3 K3 s# R2 h4 a) h                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
+ e% I. Y+ \( X                        dx:=0;
8 C) F+ n9 w* G& M: H6 X                dy:=0;
                        --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;
            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
3 v+ j$ @$ x. p% N& g9 y% a2 W                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
% h" M5 r- R% h  q) U$ O                ct:=activityspace[2,rows];
9 Y4 f; t% b# @8 l# E! B7 a1 |8 U                        activityspace[2,rows]:=activityspace[1,rows];
/ q8 L, W8 k% l. u' k/ w2 M2 {                        activityspace[1,rows]:=ct;
, _" T! C. ]; P                        end;*/
/ Q  q7 R& `7 }$ R0 ~6 K        next;
        y_max:=y_max+dy;
" d& i! ]9 L" J/ x  B        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);
" S5 M3 M& T2 Q5 W+ G" {4 B       
        rows:=0;
        lines:=0;
$ d5 v  A" L# d" g" J        for i:=1 to number_of_machine loop
, w% w/ _8 b# i& @                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
/ l$ f1 I7 o) i0 G- z                        else
0 [4 S1 w( p6 a% t7 k$ a; N                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
; l! ^  V; H5 i6 l: d$ X+ _                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
, j0 A. }; D7 o6 u                                d_from_to_chart[j,i]:=abs(dx-dy);
                        end;
4 Y# L* c6 t4 ^                next;
5 J" g6 {3 h  r        next;
       
        lines:=0;
2 V; E5 [2 }, A8 C2 m" O7 Z        partstable.delete;
       
        for i:=1 to number_of_machine loop
  N# T/ G6 Y% D                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
% I. M* Y9 M: L                for j:=1 to number_of_machine loop
6 S5 |/ F: z) ^# m                        if w_from_to_chart[j,rows]>0 then
" M  t" h" U2 j; E! E                        lines:=lines+1;
2 V- }1 m  _3 d: c4 p( d$ l                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
! `  n, [  \! P* n% ^; `& O4 i7 b  f# E                        partstable[5,lines]:=rows;
                        partstable[6,lines]:=j;
                end;
        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]);
3 m9 E1 W- s  _+ ?* u        machine.name:=machinename;标识符未知
/ ^& B# M5 o% O& i3 k8 S5 S        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
, l4 H8 i# ~! z  ^8 N0 {- Z        machine.exitctrl:=ref(leave);
" t0 i. n, h, Y) j( d' i, S) M       
        bufname:=sprint("BF",rows);
        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;
3 m, z4 ?. i( X5 ^) [        buf.proctime:=0;
/ W( D7 D' Y/ E0 T5 D' U9 O        .materialflow.connector.connect(buf,machine);
       
: Z" ^4 x/ F" |% _' w        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;
+ V$ V$ n# r2 j* ?1 l9 ~# c4 Wcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
! V& }* ]- B2 Mend;