iReference : VPMReference
--------------------------
let i(Integer)
let cabinList(List)
let equipList(List)
let idx(String)
let cabinName(String)
let equipName(String)
let plmID(String)
let revision(String)
let x(String)
let y(String)
let z(String)
let csvSheet(DTSheetType)
csvSheet = CreateSheet("D:\设备批量布置.csv")
for i = 1 while i < 999
{
set idx = csvSheet.CellAsString(i, 1)
if idx == "" break
set cabinName = csvSheet.CellAsString(i, 2)
set equipName = csvSheet.CellAsString(i, 3)
set plmID = csvSheet.CellAsString(i, 4)
set revision = csvSheet.CellAsString(i, 5)
set x = csvSheet.CellAsString(i, 6)
set y = csvSheet.CellAsString(i, 7)
set z = csvSheet.CellAsString(i, 8)
if cabinList->IndexOf(cabinName, 1) <= 0
{
let cabinInstance(VPMInstance)
set cabinInstance = new("VPMReference", cabinName, iReference)
cabinList->Append(cabinName)
cabinList->Append(cabinInstance.Reference)
}
if equipList->IndexOf(equipName, 1) <= 0
{
let currentQuery(PLMQuery)
currentQuery = CreatePLMQuery("VPMReference")
currentQuery->AddCriterion("PLM_ExternalID", plmID)
currentQuery->AddCriterion("revision", revision)
let resultList(List)
resultList = currentQuery->RunQuery()
let currentResult(PLMQueryResult)
set currentResult = resultList->GetItem(1)
let equipReference(VPMReference)
set equipReference = currentResult->LoadResult()
equipList->Append(equipName)
equipList->Append(equipReference)
}
let cabin(VPMReference)
set cabin = cabinList.GetItem(cabinList->IndexOf(cabinName, 1) + 1)
let equip(VPMReference)
set equip = equipList.GetItem(equipList->IndexOf(equipName, 1) + 1)
let equipInstance(VPMInstance)
set equipInstance = new("VPMInstance", equip.Name + i, cabin, equip)
let equipPosition(Matrix)
equipPosition = equipInstance.PositionMatrix
equipPosition->Set(1, 4, x->ToReal())
equipPosition->Set(2, 4, y->ToReal())
equipPosition->Set(3, 4, z->ToReal())
equipInstance.PositionMatrix = equipPosition
}
iReference->Update()
