iLogic "End of statement expected"
Hi ASchlaack,
I think you'll need a space between 60 and in:
60 in
rather than:
60in
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi ASchlaack,
I think you need an Else If on that line. Try something like this example:
If Parameter("Rail_Length") < 60 in Then
MessageBox.Show("not quite 60", "iLogic")
Else If Parameter("Rail_Length") >= 60 in Then
MessageBox.Show("60 or more", "iLogic")
Else 'this Else is optional
End If
Here is a better example of an Else (without If) in use, in case it helps:
If Parameter("Rail_Length") < 60 in Then
MessageBox.Show("not quite 60", "iLogic")
Else If Parameter("Rail_Length") > 60 in Then
MessageBox.Show("over 60", "iLogic")
Else
MessageBox.Show("I guess it must be 60!", "iLogic")
End If
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi ASchlaack,
So in order to suppress something in Inventor using iLogic you must have a Level of Detail that can be edited, set active in the assembly. Most often we use a snippet of code to look for an existing "iLogicLOD", and then create it, should it not be found. Once the "iLogicLOD" is set active, you can have your rule suppress parts as needed.
Here's a quick example:
'define the document
Dim oDoc as AssemblyDocument
oDoc = ThisDoc.Document
'define the LOD
Dim oLOD As LevelOfDetailRepresentation
'define the assembly component definition
Dim oACDef As ComponentDefinition
oACDef = oDoc.ComponentDefinition
Try
'try to activate the iLogic LOD
oLOD = oACDef.RepresentationsManager. _
LevelOfDetailRepresentations.Item("iLogicLOD").Activate(True)
Catch
'catch error when iLogic LOD doesn't exist
'and then create it
oLOD = oACDef.RepresentationsManager. _
LevelOfDetailRepresentations.Add("iLogicLOD")
'activate the newly created iLogic LOD
oLOD = oACDef.RepresentationsManager. _
LevelOfDetailRepresentations.Item("iLogicLOD").Activate(True)
End Try 'look at parameter and suppress components 'if the parameter is less than 60 inches If Parameter("TEST8-Horizontal-Rail1201:1", "d19") < 60 in Then Component.IsActive("TEST-Horizontal-FlangeAngleL:3")=False Component.IsActive("TEST-Horizontal-FlangeAngleL:4")=False Component.IsActive("TEST-Horizontal-FlangeAngleR:4")=False Component.IsActive("TEST-Horizontal-FlangeAngleR:3")=False Else Component.IsActive("TEST-Horizontal-FlangeAngleL:3")=True Component.IsActive("TEST-Horizontal-FlangeAngleL:4")=True Component.IsActive("TEST-Horizontal-FlangeAngleR:4")=True Component.IsActive("TEST-Horizontal-FlangeAngleR:3")=True End If
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi @tjvz85 ,
I didn't look to see what the differences between the LOD and VReps were but here is an example that works:
'define the document Dim oDoc As AssemblyDocument oDoc = ThisDoc.Document 'define the VIEW Dim oVIEW As DesignViewRepresentation 'define the assembly component definition Dim oACDef As ComponentDefinition oACDef = oDoc.ComponentDefinition Try 'try to activate the iLogic VIEW oVIEW = oACDef.RepresentationsManager. _ DesignViewRepresentations.Item("iLogicVIEW").Activate Catch 'catch error when iLogicVIEW doesn't exist 'and then create it oVIEW = oACDef.RepresentationsManager. _ DesignViewRepresentations.Add("iLogicVIEW") End Try
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
Hi @tjvz85
I think this will answer your questions, post back if not.
I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com
oViewName = "iLogicVIEW" Dim oVIEW As DesignViewRepresentation 'get the subassembly component occurence Dim oOcc = Component.InventorComponent("Test1:1") 'define the assembly component definition Dim oACDef As ComponentDefinition oACDef = oOcc.Definition.Document.ComponentDefinition Try 'Try To get the iLogic View oVIEW = oACDef.RepresentationsManager. _ DesignViewRepresentations.Item(oViewName) Catch 'catch error when iLogicVIEW doesn't exist 'and then create it oVIEW = oACDef.RepresentationsManager. _ DesignViewRepresentations.Add(oViewName) End Try 'activate it oOcc.SetDesignViewRepresentation(oViewName,, True)
