在此步骤,使用标号模版编辑器,您讲添加VB脚本代码到新的标号模版中,REFERENCE_ID_COLOR.LBL,基于尺寸颜色,设置背景颜色。
选择文件 | 报告 | 编辑 | 标签模板,并打开 REFERENCE_ID_COLOR.LBL。该标 签打开。它包含一个 GridControlObject,有一行和一列。若双击该单元格,可以看到单元格中的表达式为:
=REF_ID:1
这将意味着显示相关特征的ID。
右击编辑器,显示属性对话框。
从对象列表中选择 GridControlObject1。
展开属性对话框中的事件。
单击 EventReportData 属性右侧的[无]。屏幕上将显示 VBS 迷你编辑器。您可能需要将 VBS 迷你编辑器展开地更宽一些才能看到整个 Sub 语句。
可以看到传入了 ReportData 对象。这就是 PC-DMIS 提取传入尺寸的信息的位置。有关 ReportData 对象的其他信息,请参见 PC-DMIS 2020 R1 对象库文档中的“ReportData 对象”主题。此外,若要引用 GridControlObject,可使用 "This" 作为该对象的快捷方式。
将此代码插入 VBS 迷你编辑器:
尺寸计数为整数
尺寸1为整数
尺寸最大索引作为整数
尺寸最大偏差为双字符
尺寸当前偏差为变量
尺寸偏差为变量
尺寸PTol为变量
尺寸MTol为变量
尺寸iReturn为布尔数学体系的
初始化最大偏差和最大索引
最大偏差=0.0
最大索引=1
获得尺寸的轴数据
132是Dtype轴
计数=ReportData.GetCount(132)
循环找到最大偏差
当循环完成时,最大索引是索引
最大偏差
FOR 1=计数1次
340是Dtype尺寸偏差
当前偏差=ABS(ReportData.GetValue(340, I))
如果当前偏差>最大偏差
最大偏差=当前偏差
最大索引=1
End If
下一个
使用最大索引,获得轴偏差,+公差和-公差
167是Dtype F_正_公差;168是DtypeF_负_公差
偏差=ReportData.GetValue(340,最大索引)
PTol=ReportData.GetValue(167,最大索引)
MTol=ReportData.GetValue(168,最大索引)
使用该信息调整网格单元的背景颜色。
iReturn=.SetCellBackgroundColor(0,0,ReportData.GetTolColor(Dev,PTol,MTol))
添加代码后单击确定。迷你编辑器将检查是否存在语法错误。若代码有中错误,将显示一条消息。若无任何错误,将关闭 VBS 迷你编辑器。
选择文件 | 保存,保存 REFERENCE_ID_COLOR.LBL 的新副本。
选择文件 | 关闭。关闭标签模版编辑器。