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

zooey

is
        mark:boolean;
( K$ I  l8 N  E- ]5 P        dx,dy,ct:real;
& c/ P/ J" e- Y+ d    i,j,rows,lines:integer;
    machinename,bufname:string;
; s& Z  T, [  ^0 j& ^    machine,buf:object;
; V- |8 i# @4 ydo
; W) A& t! y) ^) a1 u        current.eraselayer(1);
       
3 ?2 S+ ]" F! e. w' Y/ {; F        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
7 r) \) N8 R# G; }6 f                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
4 \7 O# y  r. U  k( F7 ^* R2 Q                        print"yes";
# _$ p; e& Y8 Z. n& K. D                when 32 then
6 v2 B; B- ~2 D" z! K                        print"no";
                else
! @" ^; E) G/ ~0 }  m8 Z8 M                        print"cancel";
3 m: ]2 g  s$ q. b' n  l8 |                end;
+ O. z( h* u0 o; e/ B, i                eventcontroller.stop;
- N8 F- }2 z8 f! Q" p        end;
       
* m9 L; K- r3 M* T4 x$ R; [        for i:=1 to number_of_machine loop
2 |8 N9 s: _% ]        machinename:=sprint("M",i);
        if existsobject(machinename) then
* s3 l0 @. T( H# ]3 z                machine:=str_to_obj(machinename);
                machine.deleteobject;
4 N1 @; Q5 _3 |: L9 g, ^/ \; P9 f        end;
: K: w( R/ \  Z* M# l6 W        bufname:=sprint("BF",i);
: Y3 B; T) p6 f, P& Z        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
3 Z" Z5 u6 H; I# M5 Z3 A                buf.deleteobject;
! m$ s9 n+ o$ b9 F" L1 e7 J4 h        end;
        next;
       
0 S% [% N! n9 D& {) G  Y        dx:=0;
9 I- c! |( ]2 i; q8 Y2 i3 j4 \        dy:=0;
( S$ [8 ]$ \' o        for i:=1 to number_of_machine loop
% `) \: }, _8 a5 i; ]6 j$ P                rows:=str_to_num(omit(machinesequence[1,i],1,1));
. v  d  l+ B3 a                --mark:=false;
3 C. s; n; z2 @+ \6 K                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
                then
' y. [9 w7 U' w1 d7 U$ B                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
                        and activityspace[1,rows]<(1.05*y_max) then
  U8 h/ |& [1 X' l9 D" P* F                        print activityspace[1,rows],",",activityspace[2,rows];
" d* c( F7 ?" G( z# C$ n! i% C* c                        ct:=activityspace[2,rows];
. G! f9 F7 x/ @9 S3 @$ V5 @                        activityspace[2,rows]:=activityspace[1,rows];
9 m7 f0 G( y" G9 p                        activityspace[1,rows]:=ct;
                        mark:=true;
6 R# ^8 ~  M) ^0 |" S+ F* ?) O% k                        else*/
! [7 f( I4 \+ p1 x* D# {  B" l2 W                        y_max:=y_max+dy;
! a9 `) P% k4 A* m5 y! t                        dx:=0;
                dy:=0;
                        --end;
                end;
! A5 z, j1 i5 V- S1 }                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;
+ T: X% X$ ^, N% q* m1 i            if activityspace[2,rows]>dy then
                        dy:=activityspace[2,rows];
1 ~+ I  D  t. }" N2 x  u                end;
! X- p# N; I" g9 y6 W: F                dx:=dx+activityspace[1,rows];
                /*if mark=true then
5 I- I$ R% }0 K                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
2 ~% S& v2 x6 f$ }                        activityspace[1,rows]:=ct;
                        end;*/
8 e# J2 c% ~# G$ _' s! x        next;
# s' J+ W8 e8 f! S1 {) O' i        y_max:=y_max+dy;
2 N6 u+ ?8 S2 x4 N% a! P  u        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);
$ m  h( }: v* y: l9 W* Z$ h        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);
& G1 T8 {; _, N$ |# O) c       
! J$ H/ j5 x! u6 b. C3 L* A        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
                for j:=1 to number_of_machine loop
/ u6 r: |7 s9 k5 c                        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];
                                d_from_to_chart[j,i]:=abs(dx-dy);
* }" G! f' d/ e$ W% i; m& u                        end;
7 }" s$ V2 X  k/ ^( \7 g9 f! E                next;
        next;
       
# `' L3 g  U8 o2 E1 V5 @- u7 G# j& `        lines:=0;
        partstable.delete;
7 F/ J2 i5 J9 T       
! h4 S5 n/ a5 m- X' X1 h* v        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
/ \3 f$ Z, ^: L" d1 a                machinesequence[2,i]:=rows;
% K/ b! f4 p' R. D+ b+ K                for j:=1 to number_of_machine loop
# c! F# g8 x1 }8 C5 {" W8 n. K. o; b                        if w_from_to_chart[j,rows]>0 then
' b# C- G% l' {, K$ R2 y                        lines:=lines+1;
                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
. c! H5 M  J# u                        partstable[5,lines]:=rows;
% b$ h- N$ o) s: B( x                        partstable[6,lines]:=j;
                end;
        next;
$ c( |1 ~0 _8 I0 F3 H        machinename:=sprint("M",rows);
) C' g# D4 `; X, E% B        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;标识符未知
* Z9 E+ W+ `4 N4 d6 E/ `+ Z6 U! I        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
0 U# K" i+ h$ n8 Y5 n* U        machine.exitctrl:=ref(leave);
1 E+ T( u' [, {, D       
        bufname:=sprint("BF",rows);
6 J& f) n5 R" O        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]);
0 d4 m# q$ R5 }; K; Z1 ^- e        buf.name:=bufname;
        buf.capacity:=5000;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
        dx:=x_pos_init+d_from_to_chart[number_of_machine+1,i]-activityspace[1,rows]*xscale/2;
1 h- h3 f9 V; J$ ^dy:=y_pos_init+d_from_to_chart[number_of_machine+2,i]-activityspace[2,rows]*xscale/2;
+ A$ I5 H# X1 O" mcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
7 A- D+ ]0 `' Dnext;
end;
5 X& }8 \/ H8 ]1 M