3DE 知识工程 - 使用 EKL 批量布置设备

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()