Checking with Knowledge Advanced Language and Correcting Function with User Function

This task explains how to create a check and use a knowledge Language correction method to make the invalid features fulfill the check.

Open the KwxUseCase1.CATPart document.
This document is a draft built from a rectangular pad. Three holes are evenly distributed along the draft length.
Right-click Hole.1 and select Properties. In the Update Status frame, check the Deactivated check box. Click OK to close the window.
Access the Knowledge Expert workbench, then click the icon. In the dialog box which is displayed, select KWE Advanced Language, enter a check name and a comment, and then click OK. The check editor is displayed.

Select the Condition tab and enter the check below:

(for all)

 
             H:Hole

             if
             H.Activity == FALSE

       ThisCheck.AddTupleFailed(H)

				else

      
              
             ThisCheck.AddTupleSucceeded(H)

In the Correction tab, select User Function as correction method and enter the script below into the edition box:

Dim oPart1 As Part Set oPart1 = H.Parent.Parent.Parent.Parent oPart1.Activate H oPart1.Update
Click OK to add the check to the rule base, then click the icon to solve the rule base. In the specification tree, the check icon is red indicating that not all the part holes are activated.
Right-click Hole.1 and select Correct Function. The Correct Function is executed and the hole's activity is changed. Then click the icon to solve the rule base. The check icon is now green.

In the example H, if you use AddTupleFailed method and not the variable define into the part, you must use the correction tab specific instructions to apply the correction to the right variable.
For Example,

(for all)

 
             H:Hole

             if
             H.Owner.Name == "PartBody2"

      
              
              
             ThisCheck.AddTupleSucceeded(H.Owner)

				else

      
              
             ThisCheck.AddTupleFailed(H.Owner)

This check verifies if the owner of the name of each hole is PartBody2.

Correct function,

Let F (Feature) Let P (BodyFeature) Let L (List) L = ThisCorrectFunction.ListFailedElements F = L.GetItem(1) set P = F if (P.Name <> "PartBody2") P.Name = "PartBody2"