Trying my best to follow what you posted last week for me with regard to the iLogic code... ran into an issue not surprising...
SyntaxEditor Code Snippet
Sub Main 'set a trigger to watch the STYLE parameter for value changes oTrigger = STYLE If Parameter("STYLE") = "MASTER" Then oBoolean = True oMessage = "ON!" 'call sub Call SetSuppression (oBoolean, oMessage) ElseIf Parameter("STYLE") = "RAW" Then oBoolean = False oMessage = "OFF!" 'call sub Call SetSuppression (oBoolean, oMessage) ElseIf Parameter("STYLE") = "TYPICAL" Then oBoolean = False oMessage = "Null" ''call sub to set all to default status OFF Call SetSuppression (oBoolean, oMessage) 'Configure typical to selectivly turn 'feturtures on and set parameters oBoolean = True Call Typical_sub (oBoolean) ElseIf Parameter("STYLE") = "JAM" Then oBoolean = False oMessage = "Null" ''call sub to set all to default status OFF Call SetSuppression (oBoolean, oMessage) 'Configure typical to selectivly turn 'feturtures on and set parameters oBoolean = True Call Jam_sub (oBoolean) End If End Sub Sub SetSuppression (ByVal oBoolean As Boolean, oMessage As String) If oMessage <> "Null" Then MessageBox.Show("All features will be turned " & oMessage _ &vbLf & "Use for diagnostic purposes only.", Parameter("STYLE")) End If 'set parameters Parameter("INTERMEDIATE_HORIZ_QTY") = 4 Parameter("ANCHOR_HOLES") = oBoolean Parameter("INTERMEDIATE_HORIZONTAL") = oBoolean Parameter("H1") = oBoolean Parameter("H2") = oBoolean Parameter("H3") = oBoolean Parameter("H4") = oBoolean Parameter("H5") = oBoolean Parameter("H6") = oBoolean Parameter("H7") = oBoolean Parameter("H8") = oBoolean Parameter("H1_SPANDREL") = oBoolean Parameter("H2_SPANDREL") = oBoolean Parameter("H3_SPANDREL") = oBoolean Parameter("H4_SPANDREL") = oBoolean Parameter("H5_SPANDREL") = oBoolean Parameter("H6_SPANDREL") = oBoolean Parameter("H7_SPANDREL") = oBoolean Parameter("H8_SPANDREL") = oBoolean Parameter("FALSE_EXPANSION_JOINT") = oBoolean 'Parameter("SSG_SILL") = oBoolean 'set features Feature.IsActive("AP-003_ANCHORHOLES") = oBoolean Feature.IsActive("HP-009")= oBoolean Feature.IsActive("HP-019_H1")= oBoolean Feature.IsActive("HP-019_H2")= oBoolean Feature.IsActive("HP-019_H3")= oBoolean Feature.IsActive("HP-019_H4")= oBoolean Feature.IsActive("H1 WEEP")= oBoolean Feature.IsActive("H2 WEEP")= oBoolean Feature.IsActive("H3 WEEP")= oBoolean Feature.IsActive("H4 WEEP")= oBoolean Feature.IsActive("H5 WEEP")= oBoolean Feature.IsActive("H6 WEEP")= oBoolean Feature.IsActive("H7 WEEP")= oBoolean Feature.IsActive("HP-033_JAMCLIP_TOP")= oBoolean Feature.IsActive("H1 HP-033_JAMCLIP")= oBoolean Feature.IsActive("H2 HP-033_JAMCLIP")= oBoolean Feature.IsActive("H3 HP-033_JAMCLIP")= oBoolean Feature.IsActive("H4 HP-033_JAMCLIP")= oBoolean Feature.IsActive("HP-035_JAMCLIP_BOTTOM")= oBoolean Feature.IsActive("NP-001")= oBoolean Feature.IsActive("NP-001 Fillet1")= oBoolean Feature.IsActive("NP-001 Fillet2")= oBoolean Feature.IsActive("HP-001")= oBoolean Feature.IsActive("NP-002")= oBoolean End Sub Sub Typical_sub (ByVal oBoolean As Boolean) 'set parameters Parameter("ANCHOR_HOLES") = oBoolean 'set features Feature.IsActive("HP-009") = oBoolean Feature.IsActive("NP-001") = oBoolean Feature.IsActive("NP-001 Fillet1") = oBoolean Feature.IsActive("NP-001 Fillet2") = oBoolean Feature.IsActive("HP-001") = oBoolean End Sub Sub Jam_sub(ByVal oBoolean As Boolean) Feature.IsActive("HP-009") = oBoolean Feature.IsActive("NP-001") = oBoolean Feature.IsActive("NP-001 Fillet1") = oBoolean Feature.IsActive("NP-001 Fillet2") = oBoolean Feature.IsActive("HP-001") = oBoolean Feature.IsActive("HP-033_JAMCLIP_TOP") = oBoolean Feature.IsActive("H1 HP-033_JAMCLIP") = oBoolean Feature.IsActive("H2 HP-033_JAMCLIP") = oBoolean Feature.IsActive("H3 HP-033_JAMCLIP") = oBoolean Feature.IsActive("H4 HP-033_JAMCLIP") = oBoolean Feature.IsActive("HP-035_JAMCLIP_BOTTOM") = oBoolean End Sub 'set triggers to watch parameters for value changes oTrigger = INTERMEDIATE_HORIZONTAL oTrigger = INTERMEDIATE_HORIZ_QTY If Parameter("INTERMEDIATE_HORIZONTAL")="NO" Then oBoolean = False 'SET TO 8 TO SUPRESS ALL iCount = 4 Else oBoolean =True 'get the count value iCount=Parameter("Intermediate_Horiz_Qty") End If 'loop through each HP-019_H# feature and set suppression Dim i As Integer For i =1 To iCount Feature.IsActive("HP-019_H#" & i) =oBoolean Next i
