i
Select Case DraairichtingPoort
Case "DIN Links"
'Suppressen onderdelen aanslag Din Rechts
Component.IsActive("1043_977:2") = False
Component.IsActive("1013_456:2") = False
Component.IsActive("ComponentPatternDinRechts") = False
Component.IsActive("1013_453:2") = False
'UNSuppressen onderdelen aanslag Din Links
Component.IsActive("1043_977_22") = True
Component.IsActive("1013_456_23") = True
Component.IsActive("ComponentPatternDinLinks") = True
Component.IsActive("1013_453_26") = True
PlaatOfPlankDikte = PlankOfPlaatVoorkant
Case "DIN Rechts"
'Suppressen onderdelen aanslag Din Links
Component.IsActive("1043_977_22") = False
Component.IsActive("1013_456_23") = False
Component.IsActive("ComponentPatternDinLinks") = False
Component.IsActive("1013_453_26") = False
'UNSuppressen onderdelen aanslag Din Rechts
Component.IsActive("1043_977:2") = True
Component.IsActive("1013_456:2") = True
Component.IsActive("ComponentPatternDinRechts") = True
Component.IsActive("1013_453:2") = True
PlaatOfPlankDikte = PlankOfPlaatAchterkant
'Updaten rule
Parameter.UpdateAfterChange = True
RuleParametersOutput()
InventorVb.DocumentUpdate()
iLogicVb.UpdateWhenDone = True
End Select
Select Case Slotkeuze
Case Fortylock
AantalBlokkenSlot = 0 ul
Case Fiftylock
AantalBlokkenSlot = 1 ul
Case Sixtylock
AantalBlokkenSlot = 2 ul
Parameter.UpdateAfterChange = True
RuleParametersOutput()
InventorVb.DocumentUpdate()
iLogicVb.UpdateWhenDone = True
End Select
'Array Din Links
ArrayBlokkenDinLinks = (AantalBlokkenSlot + ArrayBlokkenPlaat)
'Array Din Rechts
ArrayBlokkenDinRechts = (AantalBlokkenSlot + ArrayBlokkenPlaat)
'Bepalen som van aantal affstandsblokken bij Din Rechts
If ArrayBlokkenDinRechts = 0 Then
Component.IsActive("ComponentPatternDinRechts") = False
Component.IsActive("1013_453:2") = False
AfstandAanslagDinRechts = 0
Else
Component.IsActive("ComponentPatternDinRechts") = True
Component.IsActive("1013_453:2") = True
AfstandAanslagDinRechts = (ArrayBlokkenDinRechts* DikteAfstandblok)
RuleParametersOutput()
InventorVb.DocumentUpdate()
iLogicVb.DocumentUpdate
End If
'Bepalen som van aantal affstandsblokken bij Din Links
If ArrayBlokkenDinLinks = 0 Then
Component.IsActive("ComponentPatternDinLinks") = False
Component.IsActive("1013_453_26") = False
AfstandAanslagDinLinks = 0
Else
Component.IsActive("ComponentPatternDinLinks") = True
Component.IsActive("1013_453_26") = True
AfstandAanslagDinLinks = (ArrayBlokkenDinLinks * DikteAfstandblok)
RuleParametersOutput()
InventorVb.DocumentUpdate()
iLogicVb.DocumentUpdate
End If
'Bepaling benodigde afstandsblokken ivm plank of plaat
''' Bepaling van de benodigd aantal opvulblokken in verband met plaat of planken op de poortvleugel
''' Deze code is UNIVERSEEL, de draairichting bepaald welke parameter wordt toegepast
''' DIN Links dan wordt PlaatOfPlankDikteVoorkant gebruikt
''' DIN Rechts dan wordt PlaatOfPlankDikteVoorkant gebruikt
'''
Dim Dikte As Double
Dikte = PlaatOfPlankDikte
If Dikte = 0 Then
ArrayBlokkenPlaat = 0 ul
Else If Dikte > 1 And Dikte <= 5 Then
ArrayBlokkenPlaat = 1 ul
Else If Dikte > 5 And Dikte <= 10 Then
ArrayBlokkenPlaat = 2 ul
Else If Dikte >10 And Dikte <= 15 Then
ArrayBlokkenPlaat = 3 ul
Else If Dikte > 15 And Dikte <= 20 Then
ArrayBlokkenPlaat = 4 ul
MessageBox.Show("Indien nodig ter hoogte van tegensluiting uitsparing maken in plaat of plank!", "Melding")
Else If Dikte > 20 Then
MessageBox.Show("De afstand hart frame tot aan aanslag tegensluiting is te groot! Plaat of planken ter hoogte van tegensluiting uitsparen!", "Melding")
Parameter.UpdateAfterChange = True
RuleParametersOutput()
InventorVb.DocumentUpdate()
iLogicVb.UpdateWhenDone = True
End If