KnowledgeAdvisor Methods

Example

You must have created the VB Script.1 macro before creating the rule below:

if PartBody\Pad.1.HasAttribute(String.1) == true 
`VB Script.1` .Run(PartBody\Pad.1.GetAttributeString(String.1) ,PartBody\Pad.1.Name()  )

Example

Boolean2=Relations\DesignTable1\sheet_name->CellAsBoolean(1,5)
if (Boolean2 <> true)
{
  Message("Error !!!")
}

Example

CString=Relations\DesignTable1\sheet_name->CellAsString(1,5) if (CString == )
  {
    Message("No value read !!!")  
  }

Example

//Retrieve the root object of current editor
let root(VPMReference)
root = GetEditorRoots("VPMReference").GetItem(1)
if (root == NULL)
	exit

//Get the Design Table named "DesignTable" inside 3DPart
let myDesignTable (DesignTableType)
myDesignTable = root->Find("DesignTableType","x.Name==\"DesignTable\"",TRUE)
if(myDesignTable == NULL)
	exit

let DesignTableSheet (DTSheetType)
DesignTableSheet = myDesignTable.Sheet

//Clear the sheet contents
DesignTableSheet.ClearSheet()

Example

Sheet->CloserConfig("column1", 
     "<", 
 10mm, "column2", 
     ">=", 
 20deg, 
     "column3", 
     "!=", 
     "standard")
     

The example above can be interpreted as follows:

• the value in column1 is strictly smaller than 10mm
• the value in column2 is greater than or equal to 20deg
• the value in column3 is different from the standard string.

Example

Given the design table below:

The statement below:

Relations\DesignTable1\sheet_name->CloserInfConfig(PadLim1,60mm, SketchRadius, 130mm, PadLim2, 40mm) 

Returns 3.

The values of lines 1 , 2 and 3 are all less or equal to the values specified in the method arguments.

• As the first parameter specified in the argument list is PadLim1, the method scans the lines 1, 2 and 3 and searches for the largest PadLim1 value which is less or equal to 60 mm. Two configurations meet the condition: configuration 1 and configuration 3.
• As the second parameter specified is SketchRadius, the method scans the configurations 1 and 3 and searches for the largest SketchRadius value less or equal to 130 mm. Again, the function finds two configurations meeting the criteria.
• Then it rescans lines 1 and 3 and searches for the largest PadLim2 value less or equal to 40mm. The result is line 3.

Example

ValueSup=Relations\DesignTable1\sheet_name->CloserValueSupInColumn(1, 80mm)
Message(Closest sup value is # (0.08 is expected), ValueSup)

Example

Message(Closest inf value is # , Relations\DesignTable1\ sheet_name->CloserValueInfInColumn(2,41mm))

Example

ValueSup=Relations\DesignTable1\sheet_name->CloserValueSupInColumn(1, 80mm)
Message(Closest sup value is # (0.08 is expected), ValueSup)

Example

// Defines a sheet
Let sheet (DTSheetType)
Let filePath (String)
Let columnValue (String)
Let iKeyList (List)
Let oMap (Map) 
Let combinedKey (String)
Let getCombinedKeyValue (String)

filePath = "D:\\MapReadExcel.xlsx"
sheet = CreateSheet(filePath)
columnValue = “B”
iKeyList.Append(“Color”)
iKeyList.Append(“R”)
oMap = sheet ->CreateMapFromColumns(iKeyList, columnValue)
combinedKey = “pink-255”       // The keys are appended with a ‘-‘ hyphen sign in case of combined key
getCombinedKeyValue = oMap->Get(combinedKey)

Examples

//Search for 3Dpart in database
let results(List)
let currentResult(PLMQueryResult)
let myQuery (PLMQuery)
let PartWithSheet(VPMReference)

//Create Generic model search query based on V_Name search
myQuery = CreatePLMQuery("VPMReference")
myQuery->AddCriterion("V_Name","3DPart")
results = myQuery->RunQuery()

//We check whether exist a unique generic model.
if (results.Size() <> 1)
	exit

currentResult = results[1]
set PartWithSheet = currentResult->LoadResult()
if(PartWithSheet == NULL)
	exit

//Get the Design Table named "DesignTable" inside 3DPart
let fmlDesignTable (DesignTableType)
fmlDesignTable = PartWithSheet->Find("DesignTableType","x.Name==\"DesignTable\"",TRUE)
if(fmlDesignTable == NULL)
	exit

let DesignTableSheet (DTSheetType)
DesignTableSheet = fmlDesignTable.Sheet

// Running first query
let query (string)
query = "PadLength >= 50mm AND Frequency >= 14"
Trace(1,"Query to run : ", query)
let sheetout(list)
sheetout = DTSheetType.Filter(query)
Trace(3,"Number of filtered items from sheet: ", sheetout.Size())
let i = 0
for i inside sheetout
{
	Trace(3,"Row number for first query : ", i)	
}

// Running second query
query = "PadLength >= 50mm OR Frequency <= 14"
Trace(1,"Query to run : ", query)
sheetout = DTSheetType.Filter(query)
Trace(3,"Number of filtered items from sheet: ", sheetout.Size())
for i inside sheetout
{
	Trace(3,"Row number for second query : ", i)
}

// Running third query
query = "PadLength >= 50mm OR Name == \"Config_1\""
Trace(1,"Query to run : ", query)
sheetout = DTSheetType.Filter(query)
Trace(3,"Number of filtered items from sheet: ", sheetout.Size())
for i inside sheetout
{
	Trace(3,"Row number for third query : ", i)
}

// Running fourth query
query = "PadLength >= .04m OR Name == \"Config_1\""
Trace(1,"Query to run : ", query)
sheetout = DTSheetType.Filter(query)
sheetout = DTSheetType.Filter(query)
Trace(3,"Number of filtered items from sheet: ", sheetout.Size())
for i inside sheetout
{
	Trace(3,"Row number for third query : ", i)
}

// Running fifth query
query = "PadLength > 50mm AND Frequency >9 AND Name <> \"config10\""
Trace(1,"Query to run : ", query)
sheetout = DTSheetType.Filter(query)
Trace(3,"Number of filtered items from sheet: ", sheetout.Size())
for i inside sheetout
{
	Trace(3,"Row number for third query : ", i)
}

Example

let DT(SheetType)
DT=CreateSheet("KnowledgeResources|AAA")
DT->ImportAttributes(PartBody)

Example

Line=Relations\DesignTable1\sheet_name->LocateInColumn(4,11mm)
if (Line == 0)
{
Message("No value found !!!")
}

Example

MaximumValue=Relations\DesignTable1\sheet_name->MaxInColumn(1)
Message(Maximum value is # (0.150 is expected), MaximumValue)

Example

MinimumValue=sheet->MinInColumn(3)
Message(Minimum value is # (0  is expected), MinimumValue)
/* you can use also */
Message(Minimum value is # (0 is expected), MinInColumn(3))

Example

let dt (designtabletype) 
dt = Relations\mydt 
dt->AddRowWithParmValues()

Example

You must have created the VB Script.1 macro before creating the rule below:

if PartBody\Pad.1.HasAttribute(String.1) == true 
						`VB Scripts.1` .Run(PartBody\Pad.1 .GetAttributeString(String.1),PartBody\Pad.1.Name() )