QUEST软件scl语言解读.docx

#include part.inc-- ----------------------------------------------------------------- select an output for the part -- 为零件选择一个输出端-- This procedure routes all the unloaded parts of the -- current element. If there is no unload process it routes the -- current part. The output slot selection is based on the specified -- route option such as Next Free/Percent/Priority/Cyclic....-- 该程序路由当前单元所有卸载的零件。如果不存在卸载工艺，那么它会路由当前零件。---------输出端口选项基于指定的路由选项，例如Next Free/Percent/Priority/Cyclic....-- -----------------------------------------------------------------路由卸载的零件Procedure route_unload_parts( num_unloaded, route_option, block_logic : Integer )VAR num_routed : Integer part_idx : Integer the_part : PartBegin /* * If any unload process is not attached, just route the current part * and return如果没有添加任何卸载工艺，那么仅仅卸载当前的零件，并且返回结束程*序 */-----如果当前元素类的卸载工艺为空if( celem-class-unload_process == NULL ) then------如果当前零件不为空 if( cpart NULL ) then------路由当前零件，调用函数route_a_part route_a_part( cpart, route_option, block_logic ) endif ----结束该程序 returnendif ------将路由的零件数量初始化为0num_routed = 0------将零件编号初始化为1 part_idx = 1 ------当路由的零件数量小于卸载的零件数量时 while (num_routed num_unloaded) do ------返回当前位于当前元素输出端的零件列表中指定编号的零件句柄 the_part = celem-out_parts[ part_idx ] ------如果当前位于当前元素输出端的零件不存在 if( the_part == NULL ) then ------结束while循环，结束路由卸载零件操作break endif ------若果当前位于当前元素输出端的零件列表中指定标号的零件已经被路由了 if( the_part-routed ) then ----零件编号增加1，结束当前循环，继续执行下一次循环 part_idx = part_idx + 1 continue endif ------需要卸载工艺的零件如果没有被卸载，是不能被路由的 -- Parts which are NOT unloaded acnt be routed -----part的loading有三种状态：NOT_STARTED, IN_PROGRESS, COMPLETED------（参考Part的属性页）------如果零件没有处于卸载完成状态 if( the_part-unloading COMPLETED ) then ----零件编号增加1，结束当前循环，继续执行下一次循环 part_idx = part_idx + 1 continue endif ----调用函数route_a_part route_a_part( the_part, route_option, block_logic ) ------记录路由的零件数量 num_routed = num_routed + 1 part_idx = 1 endwhileEnd route_unload_parts-- -----------------------------------