topic Re: How to add a WorkPlane to a Weldment Design View Rep in Inventor Programming Forum

How to add a WorkPlane to a Weldment Design View Rep

JBerns — Mon, 29 Jan 2024 18:36:05 GMT

Community,

I trying to add an existing WorkPlane to a copied Design View Representation (DVR) in a weldment.

The goal is to copy a DVR, activate it, and then make an existing WorkPlane visible. The existing WorkPlane name is 'Disassemble'.

Next, restore the Default DVR, which should have the Disassemble WorkPlane invisible.

So far I can:

copy Default DVR to Disassemble DVR
activate Disassemble DVR
toggle Disassemble WorkPlane visibility = true
activate Default DVR

I have been unsuccessful in getting the WorkPlane's visibilty saved to the Disassemble DVR. I don't think Occurrences is the correct property to use with WorkPlanes.

I suspect there is more to editing a DVR with iLogic than what the user performs manually in the browser.

Here is my code:

''' <summary> ''' Utility to copy a DVR, activate copied DVR, toggle a workplane visibility, restore Default DVR ''' </summary> Private Sub Main() ' Get the active assembly document Dim oAsmDoc As AssemblyDocument = ThisDoc.Document ' Get the active document info Dim oAsmCompDef As AssemblyComponentDefinition = ThisApplication.ActiveDocument.ComponentDefinition ' Get weldment info Dim oWeldCompDef As WeldmentComponentDefinition Try oWeldCompDef = oAsmDoc.ComponentDefinition Catch ex As Exception MessageBox.Show("Error: This is not a weldment." & vbLf & vbLf & "Exiting rule.", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End Try ' Declare name for DVR Dim oNewDVR As String = "Disassemble" ' Copy View Rep named, Default, To Disassemble Dim oDisDVR As DesignViewRepresentation = oWeldCompDef.RepresentationsManager.DesignViewRepresentations.Item("Default") oDisDVR.Copy(oNewDVR) ' Activate Disassemble View Rep oDisDVR.Activate ' Disassemble Work Plane Visibility = True Dim oWP As WorkPlane For Each oWP In oWeldCompDef.WorkPlanes If oWP.Name.Contains(oNewDVR) Then oWP.Visible = True Exit For End If Next ' Set to iso view Dim oCamera As Camera oCamera = ThisApplication.ActiveView.Camera oCamera.ViewOrientationType = 10759 'Isometric -- Top Right View oCamera.Apply ' Zoom all ThisApplication.ActiveView.Fit ' Update InventorVb.DocumentUpdate() 'Save Disassemble View Rep oDisDVR.SaveCurrentCamera 'Activate Default View Rep oWeldCompDef.RepresentationsManager.DesignViewRepresentations.Item("Default").Activate oWP.Visible = False ' Update InventorVb.DocumentUpdate() End Sub

Thank you for your time and attention. I look forward to your replies.

Regards,

Jerry

Re: How to add a WorkPlane to a Weldment Design View Rep

WCrihfield — Mon, 29 Jan 2024 19:11:58 GMT

Hi @JBerns. In Line 25 you are copying an existing DVR, but not capturing the new DVR to a variable. Then you continue working with the original DVR after that point, instead of the new/copy DVR. Was that your intention? Also, you usually need to make sure there have not been any recordable changes to the DVR you are attempting to copy, or it may be in a 'transient' state. If in a transient state when copied, those previous changes may not be present in the new copy.

Edit: Below is an edited version of your code, just as an example. See if this works better for you.

''' <summary> ''' Utility to copy a DVR, activate copied DVR, toggle a workplane visibility, restore Default DVR ''' </summary> Private Sub Main() ' Get the active assembly document Dim oAsmDoc As AssemblyDocument = ThisDoc.Document ' Get weldment info Dim oWeldCompDef As WeldmentComponentDefinition If TypeOf oAsmDoc.ComponentDefinition Is WeldmentComponentDefinition Then oWeldCompDef = oAsmDoc.ComponentDefinition Else MessageBox.Show("Error: This is not a weldment." & vbLf & vbLf & "Exiting rule.", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error) Exit Sub End If Dim oRepsMgr As RepresentationsManager = oWeldCompDef.RepresentationsManager Dim oDVRs As DesignViewRepresentations = oRepsMgr.DesignViewRepresentations Dim oDefaultDVR As DesignViewRepresentation = oDVRs.Item("Default") ' Copy View Rep named Default, To Disassemble ' Declare name for DVR Dim oNewDVRName As String = "Disassemble" Dim oNewDVR As DesignViewRepresentation = oDefaultDVR.Copy(oNewDVRName) ' Activate Disassemble View Rep oNewDVR.Activate ' Disassemble Work Plane Visibility = True Dim oWPlanes As WorkPlanes = oWeldCompDef.WorkPlanes Dim oWP As WorkPlane For Each oWP In oWPlanes If oWP.Name.Contains(oNewDVRName) Then oWP.Visible = True Exit For End If Next ' Set to iso view Dim oView As Inventor.View = ThisApplication.ActiveView Dim oCamera As Camera = oView.Camera oCamera.ViewOrientationType = 10759 'Isometric -- Top Right View oCamera.Apply ' Zoom all oView.Fit 'update assembly oAsmDoc.Update2(True) 'Save Disassemble View Rep oNewDVR.SaveCurrentCamera 'Activate Default View Rep oDefaultDVR.Activate oWP.Visible = False ' Update oAsmDoc.Update2(True) End Sub

Re: How to add a WorkPlane to a Weldment Design View Rep

JBerns — Mon, 29 Jan 2024 20:08:52 GMT

@WCrihfield

Thank you. That was not my intention to continue to edit the original DVR. I overlooked that simple mistake.

I was close though. Thanks, Wesley!

Regards,

Jerry