Hi,
Today they our flour manager came to me with a question. He wanted the engineering department to make a weight overview for each project.
(what we make: pressure tanks/bullets, basiclly a bunch of cilinders stacked on each other with clips, rings and nozzles welded on them).
The weight overview should contain
1) The total weight of a project. this is not a problem (total weight from top-assy in i-property)
2) A overview of all the parts welded (a parts-list table with MASS property into it)
3) The weight of a cylinder with all the welded parts on it. (can be calculated by hand with info from 2. but this is a time consuming job.)
Solution for 3:
a. Make a LOD of the different cylinders and all the parts on it. This by making a 'part priority selection' of the cylinders you don't want and surpressing them. And do this for all cylinders in the project can from 2 to 25, depends on the size of the tank.
Give the LOD for each cylinder a logical name.
b. Catch the weight from all the LOD & export it to a Excel table, i did this by rule.
First there is exporting the total weight, then exporting the weight for 2 always returning parts.
'[ Excel sheet openen.
GoExcel.Open("3rd Party:Configurator Sheet.xlsm", "Configurator - Gewichten")
']
'[ Totaal gewicht gewicht bepalen (master LOD)
ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.LevelofDetailRepresentations("Master").Activate
InventorVb.DocumentUpdate()
RuleParametersOutput()
GoExcel.CellValue("B1") = Ceil(iProperties.Mass)
']
'[ Bodem onder/skirt gewicht bepalen
'LOD selecteren
ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.LevelofDetailRepresentations("Gewicht bodem onder").Activate
'Updaten van document
InventorVb.DocumentUpdate()
RuleParametersOutput()
'Exporten naar excel van het gewicht
GoExcel.CellValue("B2") = Ceil(iProperties.Mass)
']
'[ Bodem boven gewicht bepalen
'LOD selecteren
ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.LevelofDetailRepresentations("Gewicht bodem boven").Activate
'Updaten van document
InventorVb.DocumentUpdate()
RuleParametersOutput()
'Exporten naar excel van het gewicht
GoExcel.CellValue("B3") = Ceil(iProperties.Mass)
']
'[ Cilinders doorlopen en gewicht bepalen
Dim counter As Integer
Dim end_count As Integer
Dim LOD_naam As String
Dim cell_nr As Integer
Dim cell_naam As String
end_count = Cilinders_aantal
counter = 0
cell_nr = 3 'cell van de laatste bodem
While counter < end_count
counter = counter + 1
cell_nr = cell_nr + 1
LOD_naam = "Gewicht cilinder " & CStr(counter)
cell_naam = "B" & CStr(cell_nr)
'LOD selecteren
ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.LevelofDetailRepresentations(LOD_naam).Activate
'Updaten van document
InventorVb.DocumentUpdate()
RuleParametersOutput()
'Exporten naar excel van het gewicht
GoExcel.CellValue(cell_naam) = Ceil(iProperties.Mass)
'Force exit
If counter > end_count
Exit While
End If
End While
']
'[ Excel save & close
GoExcel.Save
GoExcel.Close
']
'[ Master LOD terugzetten
'LOD selecteren
ThisApplication.ActiveDocument.ComponentDefinition.RepresentationsManager.LevelofDetailRepresentations("Master").Activate
'Updaten van document
InventorVb.DocumentUpdate()
RuleParametersOutput()
']
c. Put the excel table on a drawing together with the partslists and done.
Problem for a:
The process is quite good and precise. There are no complaints about it's output from the workfloor. But i want to automize the LOD creation part.
Is it possible to make a drag-part priority selection (like the image), and surpress all the selected parts? The coordinates in relation with the drawing zero point are available. And can anybody tell me how? a small example or somthing i can adjust to my needs? 🙂
Thanks in advance.