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

zooey

is
        mark:boolean;
8 C1 Z- f4 y2 e( I- d( `0 l        dx,dy,ct:real;
. G; M# {4 Q: u) x$ T    i,j,rows,lines:integer;
6 j) z/ n+ q( a# W" C% z    machinename,bufname:string;
    machine,buf:object;
do
% R$ P" {: h$ U8 `0 @) @        current.eraselayer(1);
       
2 k3 }3 {$ g. h9 w        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
                inspect messagebox("设施数目不对！请核查...,",50,13)
* j8 b  o% H& G/ }; l* q5 n- s6 z                when 16 then
' ]& y9 G  B4 u' P8 c  g/ H                        print"yes";
                when 32 then
; v8 I) @7 M' e) Y1 G1 I% w                        print"no";
                else
3 E9 z$ s) U, @. r* s& O                        print"cancel";
                end;
                eventcontroller.stop;
3 a6 p; Z/ Z# X, G( u. Q2 o        end;
8 u2 L3 l: e) j* w& O       
. k) y) D- q! Y- a* J( _( l+ a. l        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
8 S) A. o' v; w/ r" j+ y8 l        if existsobject(machinename) then
+ b& z; A4 ?: L                machine:=str_to_obj(machinename);
                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
' i7 O+ z& |3 Y0 j0 Y                buf.deleteobject;
        end;
        next;
       
$ R5 z" `- |! w8 B+ D; F        dx:=0;
# |* H0 f$ A! b  w3 {        dy:=0;
# C1 F2 N' o9 x2 O4 V        for i:=1 to number_of_machine loop
: `) Z2 I4 C1 y6 @# \, [) a2 E1 ?; P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
1 f! W% E9 R" x$ B                --mark:=false;
                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
* s: @) ~* [* n* k6 w                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 t! Q- k; Z, n                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
- i6 P, [# A  R- x                        ct:=activityspace[2,rows];
. p  v! {* e/ `9 n8 \                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
% U; s, x3 c/ d                        mark:=true;
; w* K5 J# @% u; e0 o! D) L                        else*/
5 {" l- X, s. f& l. j4 ~+ {! z                        y_max:=y_max+dy;
4 W4 X5 @; n5 @1 o. j                        dx:=0;
                dy:=0;
                        --end;
$ d) P( o, x! F& C( h+ [8 }* _                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;
1 \% V8 J( Z& `7 I0 y' u            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
                end;
                dx:=dx+activityspace[1,rows];
/ i* B2 a# J8 K, B, ^+ X+ C- K# v                /*if mark=true then
: ]* @; F6 K2 U: O! l                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
                        activityspace[1,rows]:=ct;
( P  U4 p' J! r4 k" I                        end;*/
        next;
" Y* m8 M' q4 t! ^9 k6 r5 n        y_max:=y_max+dy;
3 }# P2 y, n/ V6 @' F        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);
. D' \5 K; ?" D2 z1 ^+ g        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);
       
2 V9 |2 G, d$ m$ H        rows:=0;
3 Z$ b# C: Z7 l& s# k' j% s        lines:=0;
        for i:=1 to number_of_machine loop
0 a$ C1 I* s/ S                for j:=1 to number_of_machine loop
                        if j=i then
                                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];
                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
4 M2 U9 R/ Y5 K3 O                                d_from_to_chart[j,i]:=abs(dx-dy);
+ Y$ w$ l0 @( ]$ Y, g8 S7 ?$ c. B                        end;
* r7 f" T1 X9 t9 K% ~                next;
        next;
( H  q0 Z! G& Q' Z4 a, w  m2 n       
0 z% r* d( n" q0 l* c" j8 l0 r$ c        lines:=0;
/ Z; i8 M; N; T        partstable.delete;
6 _7 f2 R7 S, v* N2 _& `+ b       
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
  _% R% F$ A0 Q- l( J# t$ @                        lines:=lines+1;
9 X/ X7 q6 n7 V$ P                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
( F) e/ t( E9 k' N                        partstable[2,lines]:=w_from_to_chart[j,rows];
1 E  @4 ~2 c5 U; y: ~                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
' \: U% h8 F2 {& f                        partstable[6,lines]:=j;
                end;
        next;
        machinename:=sprint("M",rows);
( ?1 j4 h1 _5 {  K" D! n' s4 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]);
        machine.name:=machinename;标识符未知
5 W# [6 h' _0 B        machine.proctime:=5;
7 Z/ S) @  _& l$ y0 A+ X        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
9 ]. f. b" _2 ]       
        bufname:=sprint("BF",rows);
# Q3 T$ o- v. x/ k& l8 d) X  S        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;
7 e5 o( l+ g8 @2 h4 A: K, I5 d        buf.capacity:=5000;
; b  R6 A' V6 J) I# h; w        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
# J& d+ q' j5 p$ ]% O! ]; O( P       
8 x: d" W* {3 S6 S/ ]        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
* d' @1 Y7 o2 ~2 T4 L7 ydy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
( J+ J( Y) X% u$ hcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
- m+ j: J: a) bnext;
end;
; k& g0 a# n& v, T% [' i& O! ~