Suppress messagebox

[jostroopers]

I have a part with two features.
If the location of feature 1 gets over the location of feature 2  I get a message box.
If I suppress feature 2  I want the message box does not appear.
How can I disable the message box as feature 2 suppressed.

Look in rule: Aansturen sparing.

Thanks

[CCarreiras · Accepted solution]

HI!

Add the condition for Sparing 2  suppressed or not...

SyntaxEditor Code Snippet

If Feature.IsActive("Sparing2") = True Then
                'Melding als de locatie afstand van sparing 1 groter is dan sparing locatie 2.
                If SparingLocatie1 >= SparingLocatie2 Then
                MessageBox.Show("Let op afstand sparing 1 is groter dan sparing 2 ", "Afstand sparing")
                    End If
                
                '�ls sparing locatie 1 is groter dan sparing locatie 2 word sparing 2 met 110mm voorbij sparing 1 geplaatst.    
                If SparingLocatie1 >= SparingLocatie2 Then
                    SparingLocatie2 = SparingLocatie1 + 110
                End If
End If

p 

[Owner2229 · Accepted solution]

Hi, here is your rule "Aansturen sparing" a bit updated:

'Sparing type nummer aansturen afhankelijk van keuze.
Select Case Sparingtype
	Case "Sparing 1"
	Sparing_type_nr = 1
	Case "Sparing 2"
	Sparing_type_nr = 2
	Case Else
	Sparing_type_nr = 0
End Select

'Sparing aan of uit zetten afhankelijk van keuze.
If Sparing_type_nr = 1 Then
	Feature.IsActive("Sparing1") = True
	Feature.IsActive("Sparing2") = False
Else if Sparing_type_nr = 2 Then
	Feature.IsActive("Sparing1") = True
	Feature.IsActive("Sparing2") = True
Else if Sparing_type_nr = 0 Then
	Feature.IsActive("Sparing1") = False
	Feature.IsActive("Sparing2") = False
End If

'Melding als de locatie afstand van sparing 1 groter is dan sparing locatie 2.
If SparingLocatie1 >= SparingLocatie2 Then
     If Feature.IsActive("Sparing2") = True Then
                       MessageBox.Show("Let op afstand sparing 1 is groter dan sparing 2 ", "Afstand sparing")
          End If
End If

'Áls sparing locatie 1 is groter dan sparing locatie 2 word sparing 2 met 110mm voorbij sparing 1 geplaatst.	
If SparingLocatie1 >= SparingLocatie2 Then
	SparingLocatie2 = SparingLocatie1 + 110
End If

Should work now

[jostroopers]

Thanks, Carlos and Mike.

This works for me.