本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑
- l2 o; x# \& S3 L- v
R# @4 p7 b" y各位老师好!
% L6 L0 I3 l6 n% j- ~ 我在使用plant simulation时出现错误
' m" y- ?3 q2 F: Y源码如下6 ]! T0 f& U5 R8 h' k6 O5 Q4 z
" f" {+ i) @7 o7 V( pvar m,n :integer;/ L8 W8 r' _* n" o- m5 x- D
var Name :string;
6 d! y7 G) c" a; X. Hvar Obj :object;+ _& u9 o! o/ B8 k2 G
9 U# ^. I a9 H2 E
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;7 z$ A9 k" Z3 n! p
Name := sprint ("OutPut_Line",m); --生产线名称! }2 @& C) _# H1 N/ D1 T( t% w
Obj := str_to_obj(Name); --转换成对象变量! A+ Y$ |2 T/ v8 {7 v6 ]1 ?
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法0 R( o2 _$ {5 t) U
If m>1 then --第二条线要计算产出率( e5 ^6 j' d- o7 E+ |. \& I3 h
Name:=Sprint("OutPut_Line",m); --产出率; A2 \1 P+ h' {9 w4 a
Obj :=str_to_obj(Name); --转换成对象变量
% s" i9 v1 F2 G1 e Obj.val := n*100/OutPut_Line1; --计算产出率$ Y( s, z% C2 Q) T" P% z. U7 K
end;( c1 {+ s2 z& ~) c
6 z8 x: Y: n+ O( p
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,/ y3 A) ]% _% P+ B3 A. e; _
例如Obj := str_to_obj(“coat”);
/ Z4 u. |+ k" D% v' r |