步驟 3： 向 REFERENCE_ID_COLOR.LBL 新增 VB 指令碼

在這一步，采用標籤範本編輯器向新標籤範本 REFERENCE_ID_COLOR.LBL 新增 VB 指令碼代碼，以依據尺寸顏色設定背景色。

1. 選取檔案 | 報告 | 編輯 | 標籤範本，并開啟 REFERENCE_ID_COLOR.LBL。該標籤開啟。它包含一個 GridControlObject 物件，有一列和一欄。若在該儲存格上按兩下，可以看到儲存格中的運算式爲：

=REF_ID:1

表示標籤將顯示參照特徵的 ID。

2. 在編輯器上按滑鼠右鍵以顯示屬性對話方塊。

3. 從物件清單選取 GridControlObject1。

4. 展開屬性對話方塊中的事件。

5. 按一下 EventReportData 屬性右側的[無]。螢幕上顯示 VBS 迷你編輯器。您可能需要將 VBS 迷你編輯器展開地更寬一些才能看到整個 Sub 陳述式。

可以看到傳入了 ReportData 物件。這就是 PC-DMIS 提取傳入尺寸的資訊的位置。有關 「ReportData」 物件的其他資訊，請參閱 PC-DMIS 2019 R1 物件庫文件中的「ReportData 物件」主題。此外，若要引用 GridControlObject，可使用 "This" 作爲該物件的快速鍵。

6. 將此代碼插入 VBS 迷你編輯器：

Dim Count As Integer

Dim I As Integer

Dim MaxIndex As Integer

Dim MaxDev As Double

Dim CurrentDev As Variant

Dim Dev As Variant

Dim PTol As Variant

Dim MTol As Variant

Dim iReturn As Boolean

' 初始化最大偏差最大指數

MaxDev = 0.0

MaxIndex = 1

' 取得該尺寸的軸數

' 132 爲 Dtype AXIS

Count = ReportData.GetCount(132)

' 遍歷迴圈尋找最大偏差

' 迴圈完成時，MaxIndex 即爲最大偏差

' 的指數

For I = 1 to Count

' 340 爲 Dtype DIM_DEVIATION

CurrentDev = ABS(ReportData.GetValue(340, I))

If CurrentDev > MaxDev Then

MaxDev = CurrentDev

MaxIndex = I

End If

Next I

' 使用 MaxIndex 取得軸偏差，正公差和負公差

' 167 爲 Dtype F_PLUS_TOL; 168 爲 Dtype F_MINUS_TOL

Dev = ReportData.GetValue(340, MaxIndex)

PTol = ReportData.GetValue(167, MaxIndex)

MTol = ReportData.GetValue(168, MaxIndex)

' 使用此資訊來調整格線儲存格的背景色

iReturn = This.SetCellBackgroundColor(0, 0, ReportData.GetTolColor(Dev,PTol,MTol))

代碼說明：

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

8. 選取檔案 | 儲存以儲存 REFERENCE_ID_COLOR.LBL 的新副本。

9. 選取檔案 | 關閉。將關閉標籤範本編輯器。