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

zooey

is
        mark:boolean;
. g  ^6 Z2 T* ]; R6 O2 `6 d2 w        dx,dy,ct:real;
' y0 R# L4 [+ x- r+ A1 l+ y    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
( _9 v2 A# L+ Rdo
2 R# `; e- P5 `  s        current.eraselayer(1);
( L$ {+ c5 `- @* Y6 O5 ^  J% e; A, x       
        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
1 D6 ?  c7 L" J* F& I                inspect messagebox("设施数目不对！请核查...,",50,13)
                when 16 then
                        print"yes";
3 s* K1 U0 a% @+ ?                when 32 then
                        print"no";
                else
, l$ A) f- x; E2 G$ D4 g                        print"cancel";
) O0 J3 }; L# K. g. a  c* e1 m                end;
                eventcontroller.stop;
        end;
/ L" {7 r: m$ g       
9 h$ M- }  F5 U3 N" n1 w+ ^! W0 R        for i:=1 to number_of_machine loop
        machinename:=sprint("M",i);
        if existsobject(machinename) then
* V" Q+ W) f  N0 Q3 r) A( E                machine:=str_to_obj(machinename);
" `' R- u! G$ c0 f4 }; A                machine.deleteobject;
# r- I2 b$ K1 r. ~- H8 K0 I2 q        end;
* |6 O2 j1 t1 g* C- R/ c        bufname:=sprint("BF",i);
        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
/ T# Q( a$ e- {3 }' M4 x. \- D9 R                buf.deleteobject;
        end;
6 T, @4 Y! M$ Y" }# [' R$ J        next;
       
1 W9 {/ s+ D1 B  E7 H        dx:=0;
        dy:=0;
8 n7 C6 P% g; c7 s: ~5 y        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                --mark:=false;
& w9 B; n: l, S0 o- h  G& E1 d                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
0 z  K1 l5 ?4 _2 H0 X' _4 Y                then
                        /*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];
' r( D, n$ x: @9 `7 z% t% o! ?( y                        activityspace[1,rows]:=ct;
                        mark:=true;
/ |' \  u  }' e- M9 M                        else*/
                        y_max:=y_max+dy;
                        dx:=0;
' B7 C- `. ], G) }# f                dy:=0;
                        --end;
% f: _5 }/ A( [. l                end;
, t& c  t2 a& ?9 s                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;
& B5 `5 G" ]$ B: n# Y/ e            if activityspace[2,rows]>dy then
/ G# \- w" Z$ I2 q                        dy:=activityspace[2,rows];
                end;
' r, l+ `3 p# a  s. Q                dx:=dx+activityspace[1,rows];
                /*if mark=true then
, M# G8 [/ L" o8 K  n                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
+ N: U" t' u5 e- W2 @                        activityspace[1,rows]:=ct;
                        end;*/
        next;
; `/ i2 z% L1 X0 }. Z, |1 n        y_max:=y_max+dy;
# \. [! ?* ]# G6 n* V        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);
) t! N; f6 b' C' d        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);
       
+ B& w! w% Y4 x' X7 p8 ?3 s        rows:=0;
        lines:=0;
        for i:=1 to number_of_machine loop
4 e6 r" i3 I8 Z, C3 b                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];
# R. Q1 V2 p2 @/ r+ q                                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);
                        end;
                next;
1 ]# I2 Z* ~# O/ B+ h" Q6 A        next;
       
* F' a! i% o9 }# @6 U# `5 ^- P% D9 ^/ R! P        lines:=0;
* a7 x$ j5 V1 C+ D        partstable.delete;
       
" H$ V0 ~/ [2 N: W+ y$ W        for i:=1 to number_of_machine loop
5 U4 r  ^0 A1 V7 U7 t3 i                rows:=str_to_num(omit(machinesequence[1,i],1,1));
                machinesequence[2,i]:=rows;
                for j:=1 to number_of_machine loop
! i! p0 \8 Y3 U# g* E4 }5 a                        if w_from_to_chart[j,rows]>0 then
                        lines:=lines+1;
8 A+ X/ z! D: ?; x, a7 X3 S' D. j                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
1 n& c/ J% a8 F                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
# @& N2 m! ~4 B0 d0 D9 H, k                        partstable[6,lines]:=j;
9 R! A3 m3 Q! d                end;
        next;
7 N" R3 O8 c1 Q& R) h; e) E        machinename:=sprint("M",rows);
8 i6 i0 V. m1 w4 L$ T        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;标识符未知
& p5 W4 N" @& C7 q3 T8 E6 u        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
  w# G( F7 k( @% g        machine.exitctrl:=ref(leave);
       
% O, P. r2 H6 m3 Y5 L        bufname:=sprint("BF",rows);
" t$ {+ s. Z, t1 F' G        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;
/ o2 Q3 O" g9 d& E; P6 @        buf.proctime:=0;
" o) _4 M/ y  z' y* \' B        .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;
/ o: z' F, G+ ^* b# E* t: W/ Ucurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
  K4 K% i; w, F6 _( E' mnext;
/ S& s  y" d7 ~% Hend;