步骤5：添加VB脚本代码到CADONLYREF_ID.RTP

在这一步，将使用报告模板编辑器向规则树中每个引用 CADONLYREF_ID.RTP 的位置添加脚本代码，以确定尺寸是否在公差范围内。若在公差范围内，则代码将令其使用 REFERENCE_ID_COLOR.LBL。否则，代码将令其使用 LEGACY_DIMENSION_CAD.LBL。

1. 当还在编辑规则对话框时，单击使用其他表达式或脚本，选择脚本选项，然后单击编辑按钮。屏幕上将显示 VBS 迷你编辑器。

2. 将以下代码插入 VBS 迷你编辑器：

尺寸计数为整数

尺寸CurrentOutTol为变量

尺寸1为整数

如果在公差范围内，iRetVal=1，如果超差 iRetVal=0

iRetVal=1

132=Dtype 轴

计数=ReportData.GetCount(132)

通过每个轴向循环查看OutTol是否为非零。

FOR 1=计数1次

344=Dtype DIM_OUTTOL

CurrentOutTol = ReportData.GetValue(344, I)

如果CurrentOutTol > 0，然后

iRetVal = 0

为退出

End If

下一个

代码说明：

3. 添加代码后单击确定。迷你编辑器将检查是否存在语法错误。若代码有中错误，将显示一条消息。若无任何错误，将关闭 VBS 迷你编辑器。

4. 单击添加按钮定义新规则。屏幕上将显示编辑规则对话框。

5. 在标签名称框中，选择或键入 LEGACY_DIMENSION_CAD.LBL。

6. 再次单击使用其他表达式或脚本，选择脚本选项，然后单击编辑按钮。屏幕上将显示 VBS 迷你编辑器。

7. 在 VBS 迷你编辑器中插入以下代码：

尺寸计数为整数

尺寸CurrentOutTol为变量

尺寸1为整数

如果在公差范围内，iRetVal=1，如果超差 iRetVal=0

iRetVal = 0

132=Dtype 轴

计数=ReportData.GetCount(132)

通过每个轴向循环查看OutTol是否为非零。

FOR 1=计数1次

344=Dtype DIM_OUTTOL

CurrentOutTol = ReportData.GetValue(344, I)

如果CurrentOutTol > 0，然后

iRetVal=1

为退出

End If

下一个

代码说明：

8. 添加代码后单击确定。VBS 迷你编辑器将检查是否有语法错误。若代码有中错误，将显示一条消息。若无任何错误，将关闭 VBS 迷你编辑器。

9. 单击确定关闭编辑规则对话框。