本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
e b. ~9 h$ d, B9 i
$ b$ c: a( N6 n* G各位老师好!
6 K6 v9 M' Z, v! E/ I( W- x5 `* c 我在使用plant simulation时出现错误
; r8 r) Z- v6 t' t% N3 k源码如下5 t5 `6 @' u9 V- [" _
$ L! ~; y; D; j' I$ U' f3 w' O5 X
var m,n :integer;
S3 j+ f- z1 q; e0 u, s2 R) i- bvar Name :string;
6 F- R' N* M" ?7 K2 Kvar Obj :object;0 ] c T7 x- O, m# u) p
, _: c; z% x7 n m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;! q& H. ^; b1 L% n! O* h
Name := sprint ("OutPut_Line",m); --生产线名称
! g3 J( ?) r) u2 R- Z0 l Obj := str_to_obj(Name); --转换成对象变量3 `- f( `4 M/ |4 p& r
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法" f1 N4 U4 C+ k
If m>1 then --第二条线要计算产出率
! U4 O$ `4 y$ m. _2 P Name:=Sprint("OutPut_Line",m); --产出率. g1 M* e8 r5 U0 q
Obj :=str_to_obj(Name); --转换成对象变量
% f5 T5 L, A; ]2 l# U Obj.val := n*100/OutPut_Line1; --计算产出率
# E8 Q p) Q5 o3 P! m) h6 z% ` end;2 ?6 Z; h: k* a: [8 H2 G
0 W* r# I8 f* j6 D$ Z. d& S- w$ A
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,7 e9 H& {' ^7 ?0 z9 `
例如Obj := str_to_obj(“coat”); ) }, M, e7 T0 f
|