本帖最后由 墨明棋妙 于 2017-11-11 10:33 编辑 6 K+ `- J( w, A/ ` ]8 a$ o
9 _$ Q; s3 g6 O5 {4 |各位老师好!
: u" V' f0 p' r! M 我在使用plant simulation时出现错误% P/ t( d* O$ O& F# q6 t
源码如下
; V4 p3 J) n3 h" P
4 J. `: Y7 o/ r+ ?var m,n :integer;+ A: u5 R4 p: u5 Y
var Name :string;
& D* @5 G* N1 L; @' qvar Obj :object;4 U) g* ~# O' U( d) _" j8 [- j
+ ~, \$ r t0 G/ h. m
m := str_to_num (omit("darian1",1,5)); --先取Drain*后面的数字,在转换成整型数据;0 w9 [5 G- S p/ Q! K
Name := sprint ("OutPut_Line",m); --生产线名称" U; @" J" w9 p
Obj := str_to_obj(Name); --转换成对象变量" |7 M$ ~: w! j9 f6 f
Obj.val := ?.StatNumIn; -- ?代指当前调用Method的物流对象,该Method想做成通用的方法7 b0 h2 ]' r+ F9 ]
If m>1 then --第二条线要计算产出率! d& `$ c) ?6 `$ j* ?! A
Name:=Sprint("OutPut_Line",m); --产出率2 Q! f9 U5 t: W% X W
Obj :=str_to_obj(Name); --转换成对象变量
8 G# T# G3 p$ q- U* ?: J Obj.val := n*100/OutPut_Line1; --计算产出率
?, Z4 p9 T* ?- S9 ~. Q) ` end;
4 _. c7 r% a5 M b6 ~2 L4 V+ y6 l' p. ~6 k
经调试错误出现在Obj := str_to_obj(Name); 显示Name 不是有效的路径,请老师解惑,我使用一个确定的字符串也不行,
5 K! X8 n- Z$ }9 V9 T例如Obj := str_to_obj(“coat”);
, Q- s | i2 o |