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

zooey

is
        mark:boolean;
        dx,dy,ct:real;
    i,j,rows,lines:integer;
    machinename,bufname:string;
    machine,buf:object;
6 m; P, n) _5 P* }- hdo
        current.eraselayer(1);
$ I% y& j$ X3 w; w; b! w/ Y: m. c       
9 L, S3 F: e3 W9 t        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
2 Q1 a( |" G" U, ?8 O                inspect messagebox("设施数目不对！请核查...,",50,13)
6 e- k/ ~0 l: y9 J3 W& f6 f5 ~                when 16 then
; O; a9 G" I$ r2 Z) x, c; L                        print"yes";
                when 32 then
  `  U, E5 I% m2 d0 b4 g  @                        print"no";
) p1 N' K1 U( G- v                else
                        print"cancel";
                end;
                eventcontroller.stop;
        end;
       
        for i:=1 to number_of_machine loop
. S1 {2 o: i0 _& ^0 b" m        machinename:=sprint("M",i);
        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
' A. n2 ~; U8 F& K- A                machine.deleteobject;
        end;
        bufname:=sprint("BF",i);
: ]' d/ h9 d1 m: {0 f        if existsobject(bufname) then
4 {/ _0 r% O9 {7 T/ v6 Q$ p7 {( [% L                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
5 c* _$ G* {& k; P: }5 Y3 v% m       
9 y  n2 v: `- t5 g0 x        dx:=0;
+ ]" ~3 @3 T) w( Y        dy:=0;
        for i:=1 to number_of_machine loop
+ c5 _* l7 h- Y                rows:=str_to_num(omit(machinesequence[1,i],1,1));
2 G, \: D) t1 K! b; |$ g- `& X* h                --mark:=false;
6 G. `: D( p+ v                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
8 q8 Y5 e; f0 s: Q3 J8 {7 E5 a% G4 Y                then
! E" V3 ]' V* o# X( f; L& `% v                        /*if(dx+activityspace[2,rows])<activityspace[1,number_of_machine+1]
9 F: [7 b2 V3 C- T, T8 e                        and activityspace[1,rows]<(1.05*y_max) then
                        print activityspace[1,rows],",",activityspace[2,rows];
                        ct:=activityspace[2,rows];
. @1 J1 F/ Y2 Z% a                        activityspace[2,rows]:=activityspace[1,rows];
5 _# S% ~( E: s  `( h2 C& X1 p/ o6 I                        activityspace[1,rows]:=ct;
                        mark:=true;
                        else*/
                        y_max:=y_max+dy;
' |9 H8 k$ V- W5 D2 y! `; c                        dx:=0;
                dy:=0;
6 T3 S3 h! c" E3 G8 @                        --end;
                end;
9 f% V" i9 B; l% r. z# e  y& h                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
8 W' l1 ~0 h% `/ j* z2 |" T- K                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];
7 \7 s; U% U  v1 {0 Y! z& @                end;
# g1 I, t/ N2 `6 b                dx:=dx+activityspace[1,rows];
% ]$ S) z# [# A2 w& V" [# o) \                /*if mark=true then
                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
' X4 c. b# D( a! M* |( {1 U7 G5 ?                        activityspace[1,rows]:=ct;
                        end;*/
        next;
        y_max:=y_max+dy;
        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);
/ \( G+ v& Y$ b        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);
% _) h) l. B8 W4 k: U  ~. `       
        rows:=0;
% m0 e9 b- X* t% t6 s1 J        lines:=0;
" D( E) \/ I7 T1 U1 M1 k        for i:=1 to number_of_machine loop
8 b" Z: Z/ H! b/ W  f# L6 g) Z                for j:=1 to number_of_machine loop
# v. ^0 n  Q# S                        if j=i then
, O, L, v) U% O6 H2 K                                d_from_to_chart[j,i]:=0;
: _, D. ~$ z8 ?& Y; u' l                        else
9 Q8 E0 V* q: j/ n                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
7 |- X6 A+ H# \7 L2 h$ A* L                                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);
( m4 i; T8 S1 f2 L                        end;
                next;
& Q# ^/ A# F' c+ H: i& _/ B+ L        next;
( w) B5 `9 ~/ ?: j8 U9 ~; G* Y       
        lines:=0;
        partstable.delete;
       
, ?# i0 y8 t8 h/ A. R5 A        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
* ~- `# [- g* Q/ S( h/ m                machinesequence[2,i]:=rows;
- ]4 K0 p, ?9 y9 _                for j:=1 to number_of_machine loop
                        if w_from_to_chart[j,rows]>0 then
; z! O' W0 L0 `                        lines:=lines+1;
/ ^% J# E0 m! d3 k( s                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
                        partstable[2,lines]:=w_from_to_chart[j,rows];
                        partstable[3,lines]:=sprint("parts");
1 |# o9 y& f* M5 f! B                        partstable[5,lines]:=rows;
+ [/ I5 n$ Y$ c/ e& O3 t                        partstable[6,lines]:=j;
& O# c5 R2 g8 x7 t4 W                end;
        next;
1 I2 n5 {- _0 ~1 `        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]);
; [& ?+ _! d/ |* H/ F2 W, L. i8 L        machine.name:=machinename;标识符未知
        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
        machine.exitctrl:=ref(leave);
3 g- N' e- X6 r( R3 T; U0 h% ~2 T       
2 D& E9 H2 `* N' F( Y8 k        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;
        buf.proctime:=0;
        .materialflow.connector.connect(buf,machine);
       
& R- c' X& b2 T        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;
6 d3 P1 B# g0 d% X1 p' `current.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
& P. a% v# f! Rnext;
" ~/ E+ j4 _2 n+ |end;
6 a% V# `" ]! \- t& G- l: n/ B