topic Toggle "Position Offset" for selected components in positional view. in Inventor Programming Forum

Toggle "Position Offset" for selected components in positional view.

davis.j — Thu, 10 Jun 2021 23:28:18 GMT

Might there be any function for the check box "Position Offset"?

I can't seem to find anything in the API help docs.

I am trying to build a code similarly to what was done here:

https://forums.autodesk.com/t5/inventor-ideas/lock-rotation-right-click-menu-on-insert-constraint/idi-p/8819760

Using this code as a starting template:

qLock = InputRadioBox("Select one:", "Lock Rotation", "Un-Lock Rotation", True, "ilogic") oLock = ThisApplication.ActiveDocument Dim oInsert As InsertConstraint For Each oInsert In oLock.SelectSet Call oInsert.ConvertToInsertConstraint2( _ oInsert.EntityOne, _ oInsert.EntityTwo, _ oInsert.AxesOpposed, _ oInsert.Distance.Value, _ qLock) Next

Idea Thread:

https://forums.autodesk.com/t5/inventor-ideas/assembly-position-offset-issue/idc-p/10374152#M42377

Betreff: Toggle "Position Offset" for selected components in positional view.

Ralf_Krieg — Fri, 11 Jun 2021 06:11:38 GMT

Hello

Can you try this one?

Dim oAssDoc As AssemblyDocument = ThisDoc.Document Dim oAssCompDef As AssemblyComponentDefinition=oAssDoc.ComponentDefinition Dim oOcc As ComponentOccurrence Dim oObj As Object Dim oPosRep As PositionalRepresentation = oAssCompDef.RepresentationsManager.ActivePositionalRepresentation Dim oTrans As Transaction = ThisApplication.TransactionManager.StartTransaction(oAssDoc, "Activate Position Offset") Dim qPosOffset As Boolean = InputRadioBox("Select one:", "Position Offset activate", "Postion Offset deactivate", True, "iLogic") For Each oObj In oAssDoc.SelectSet oOcc = TryCast(oObj, ComponentOccurrence) If oOcc IsNot Nothing Then If qPosOffset Then oPosRep.SetTransformOverride(oOcc, oOcc.Transformation) Else oPosRep.RemoveTransformOverride(oOcc) End If End If oOcc=Nothing Next oTrans.End

Re: Toggle "Position Offset" for selected components in positional view.

davis.j — Mon, 14 Jun 2021 17:02:33 GMT

Thank you @Ralf_Krieg , this is much appreciated.

There was some small edits I made to make the code more stable. I set it to continue the rule only if the active positional view does not = "Master". It isn't written the cleanest but it works for me. 😀

Dim oAsmCompDef As AssemblyComponentDefinition oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition If oAsmCompDef.RepresentationsManager.ActivePositionalRepresentation.Name <> "Master" Then Dim oAssDoc As AssemblyDocument = ThisDoc.Document Dim oAssCompDef As AssemblyComponentDefinition=oAssDoc.ComponentDefinition Dim oOcc As ComponentOccurrence Dim oObj As Object Dim oPosRep As PositionalRepresentation = oAssCompDef.RepresentationsManager.ActivePositionalRepresentation Dim oTrans As Transaction = ThisApplication.TransactionManager.StartTransaction(oAssDoc, "Activate Position Offset") Dim qPosOffset As Boolean = InputRadioBox("Select one:", "Position Offset activate", "Postion Offset deactivate", True, "iLogic") For Each oObj In oAssDoc.SelectSet oOcc = TryCast(oObj, ComponentOccurrence) If oOcc IsNot Nothing Then If qPosOffset Then oPosRep.SetTransformOverride(oOcc, oOcc.Transformation) Else oPosRep.RemoveTransformOverride(oOcc) End If End If oOcc=Nothing Next oTrans.End Else MessageBox.Show("Please activate a Positional view first.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Stop) End If