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

zooey

is
        mark:boolean;
6 f; G' E7 X4 i; m        dx,dy,ct:real;
    i,j,rows,lines:integer;
: j& S. g5 r2 }    machinename,bufname:string;
    machine,buf:object;
do
0 u$ y! T' u' [2 G4 R" s        current.eraselayer(1);
; A" L/ r" M# ]) r, f8 `* Z* D       
  F: n2 B4 S. c        if number_of_machine/=w_from_to_chart.YDim or number_of_machine/=d_from_to_chart.YDim then
9 S4 W- c2 d; H                inspect messagebox("设施数目不对！请核查...,",50,13)
1 l0 E' i+ U0 Z4 N8 G                when 16 then
* T5 H0 C# I" L                        print"yes";
                when 32 then
: F  A5 X, O+ q- g6 D$ I( V# F                        print"no";
                else
1 a, s( C6 G  ^0 K                        print"cancel";
                end;
                eventcontroller.stop;
. z3 i. E5 @9 X$ L! ~* B        end;
  Z/ r" c% V4 _1 m$ K$ a       
        for i:=1 to number_of_machine loop
+ T9 D! V  S) K0 h- D% N1 B/ y        machinename:=sprint("M",i);
3 M5 S6 e/ G- j8 c7 h9 G        if existsobject(machinename) then
                machine:=str_to_obj(machinename);
                machine.deleteobject;
7 D# c4 @: M* [2 o6 `1 P9 [        end;
        bufname:=sprint("BF",i);
3 [( s' w. D  O, h        if existsobject(bufname) then
                buf:=str_to_obj(bufname);
                buf.deleteobject;
        end;
        next;
       
        dx:=0;
        dy:=0;
        for i:=1 to number_of_machine loop
                rows:=str_to_num(omit(machinesequence[1,i],1,1));
# y5 R$ b2 V6 o, c/ f% Z* ^; q                --mark:=false;
- k% F% H$ l! S* [8 u  ~                if (dx+activityspace[1,rows])>activityspace[1,number_of_machine+1]类型不匹配
/ d  y4 c1 V" c( h' ^/ i" P                then
9 S/ D+ f3 r$ X( J4 J                        /*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];
+ O/ f9 n" }! A" J" m0 T% m( U2 h                        ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
5 p6 R; J% r, F                        activityspace[1,rows]:=ct;
$ I  A  Y* }4 ^# l$ O                        mark:=true;
! m0 Q; z. }8 b$ Q5 f" L9 ^                        else*/
; y2 M2 }" Y* ^, m' C                        y_max:=y_max+dy;
                        dx:=0;
; \! R' T% T. o% X9 R/ n                dy:=0;
" w8 x/ d8 X7 p! M                        --end;
                end;
                d_from_to_chart[number_of_machine+1,i]:=(dx+activityspace[1,rows]/2)*xscale;
6 D& l) z; K- M                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];
                end;
                dx:=dx+activityspace[1,rows];
                /*if mark=true then
* }* P% G, D% `9 D                ct:=activityspace[2,rows];
                        activityspace[2,rows]:=activityspace[1,rows];
8 v' r7 h  E) K0 a                        activityspace[1,rows]:=ct;
" b* W$ v/ n4 x- B; G# X                        end;*/
        next;
        y_max:=y_max+dy;
- ^2 J& {; |" F5 @# E        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);
9 t/ T4 ], s2 F2 A/ o        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);
; G2 p0 G  o+ v  m       
! J5 ^' m1 x: x; f3 @# a" W$ u8 D% f        rows:=0;
; }& l' s$ c! V% h" z; Z& b& |* J        lines:=0;
# [0 {: ^+ \1 V; S/ D1 D        for i:=1 to number_of_machine loop
* v& H5 {. I7 t3 V$ E+ ^6 @                for j:=1 to number_of_machine loop
                        if j=i then
                                d_from_to_chart[j,i]:=0;
5 R5 `% t1 ~) k                        else
4 e- V" U6 W, m4 [' a. L' [                                dx:=d_from_to_chart[number_of_machine+1,j]-d_from_to_chart[number_of_machine+1,i];
/ j5 ^6 @) i9 i. U                                dy:=d_from_to_chart[number_of_machine+2,j]-d_from_to_chart[number_of_machine+2,i];
& T9 R. g0 O) T: l" C. N6 L                                d_from_to_chart[j,i]:=abs(dx-dy);
: H2 K+ C0 p7 q% R                        end;
2 }% H$ p. n/ e2 J7 y% c                next;
        next;
3 k" `0 K  V' p) e% z3 ~       
4 J! W4 ~5 t5 w9 A$ ]! g5 {  T        lines:=0;
2 ^5 [( J1 m$ T/ Z+ X        partstable.delete;
5 v, v' K, @3 ~$ a4 ?* x       
4 r5 I; e& E; e; H9 o* u9 ~        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
5 s) [8 v! n: q9 ~) z/ g, w4 q, s                        lines:=lines+1;
; ]0 t; J1 ^& c                        partstable[1,lines]:=str_to_obj(sprint(".",location.name,".parts"));
, s; |' Q, L' ?( F8 n, F9 A                        partstable[2,lines]:=w_from_to_chart[j,rows];
. {5 U3 Y! f% Q. G7 }; ?                        partstable[3,lines]:=sprint("parts");
                        partstable[5,lines]:=rows;
% x* |' n5 U  d: s1 h+ W/ d4 h                        partstable[6,lines]:=j;
& L! F5 ~/ r, t8 Q3 O' ^9 V                end;
0 B/ G. Y1 G# {! P' ]& e        next;
3 G7 J% O8 y9 q) ^$ ]        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]);
        machine.name:=machinename;标识符未知
) P6 C# L; @, X2 \7 p( |" H& V        machine.proctime:=5;
        machine.label:=activityspace[0,rows];
3 q( D& [' B+ S1 F- G/ E& ]! u' S; G        machine.exitctrl:=ref(leave);
       
( ?  T. e( j7 q- ?2 r- h0 @0 C* I        bufname:=sprint("BF",rows);
' c4 \% j3 |# s# M% d        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);
8 i( N7 l  o; o2 n2 e7 L( p       
        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;
- U0 H$ k3 }- f; Xcurrent.drawrectangle(1,dx,dy,activityspace[1,rows]*xscale,activityspace[2,rows]*xscale,168,1);
next;
& x! e! S2 a# r- ?" M' eend;
$ k9 ?+ [1 r; U3 S% S3 f' F* W