Curtis? Help!

Mark.Valenti — Mon, 13 Nov 2017 14:32:20 GMT
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
topic Curtis? Help! in Inventor Programming Forum

Curtis? Help!
