步驟 5：向 CADONLYREF_ID.RTP 新增 VB 指令碼代碼

在這一步，將使用報告範本編輯器向規則樹中每個引用 CADONLYREF_ID.RTP 的位置新增指令碼代碼，以確定尺寸是否在公差範圍內。若在公差範圍內，則代碼將令其使用 REFERENCE_ID_COLOR.LBL。否則，代碼將令其使用 LEGACY_DIMENSION_CAD.LBL。

1. 在編輯規則對話方塊中，按一下使用另外的運算式或指令碼核取方塊，然後選取指令碼選項并按一下編輯按鈕。螢幕上顯示 VBS 迷你編輯器。

2. 將以下代碼插入 VBS 迷你編輯器：

Dim Count As Integer

Dim CurrentOutTol As Variant

Dim I As Integer

' 若在公差內則 iRetVal = 1；若超出公差則 iRetVal = 0

iRetVal = 1

' 132 = Dtype AXIS

Count = ReportData.GetCount(132)

' 迴圈遍歷每條軸以確定 OutTol 是否非零

For I = 1 to Count

' 344 = Dtype DIM_OUTTOL

CurrentOutTol = ReportData.GetValue(344, I)

If CurrentOutTol > 0 Then

iRetVal = 0

Exit For

End If

Next I

代碼說明：

3. 新增代碼後按一下確定。迷你編輯器將檢查是否存在語法錯誤。若代碼有中錯誤，將顯示一條訊息。若無任何錯誤，將關閉 VBS 迷你編輯器。

4. 按一下新增按鈕以定義新規則。螢幕上將顯示編輯規則對話方塊。

5. 在標籤名稱方塊中，選取或鍵入 LEGACY_DIMENSION_CAD.LBL。

6. 再按一下使用另外的運算式或指令碼，選取指令碼選項并按一下編輯按鈕。螢幕上顯示 VBS 迷你編輯器。

7. 在 VBS 迷你編輯器中插入以下代碼：

Dim Count As Integer

Dim CurrentOutTol As Variant

Dim I As Integer

' 若在公差內則 iRetVal = 1；若超出公差則 iRetVal = 0

iRetVal = 0

' 132 = Dtype AXIS

Count = ReportData.GetCount(132)

' 迴圈遍歷每條軸以確定 OutTol 是否非零

For I = 1 to Count

' 344 = Dtype DIM_OUTTOL

CurrentOutTol = ReportData.GetValue(344, I)

If CurrentOutTol > 0 Then

iRetVal = 1

Exit For

End If

Next I

代碼說明：

8. 新增代碼後按一下確定。VBS 迷你編輯器將檢查是否有語法錯誤。若代碼有中錯誤，將顯示一條訊息。若無任何錯誤，將關閉 VBS 迷你編輯器。

9. 按一下確定關閉編輯規則對話方塊。