Can I change an fx (driven) parameter by editing another parameter with VBA?

HANDBRAKE is one of the most popular and free video conversion tools.

It is open source, easy to use, and works on Windows and Mac.

Yes, Nishan-it is possible to build an Inventor assembly file (.iam) offline, without launching the Inventor UI, using the ApprenticeServer API.

You can prepare a blank .iam template and use Apprentice to:

1. Open the template
2. Insert existing .ipt files as component occurrences
3. Save the modified .iam

Here’s a simplified VB.NET snippet using Apprentice:

Dim apprenticeApp As New Inventor.ApprenticeServerComponent
Dim asmDoc As ApprenticeServerDocument = apprenticeApp.Open("C:\Templates\BlankAssembly.iam")

Dim partDoc As ApprenticeServerDocument = apprenticeApp.Open("C:\Parts\MyPart.ipt")
Dim asmCompDef As ApprenticeComponentDefinition = asmDoc.ComponentDefinition

' This part is tricky — Apprentice does not expose AddOccurrence directly
' You'd need Inventor API for precise placement and constraints

asmDoc.SaveAs("C:\Assemblies\BuiltOffline.iam", False)

Here’s how to make it work more reliably:

1. Initialize Apprentice Properly

   Make sure Apprentice is initialized before loading the control:

   
   Dim appServer As Inventor.ApprenticeServerComponent = New Inventor.ApprenticeServerComponent()
           

2. Use Static Viewing Instead of Interactive Tools

   Avoid using toolbar buttons like Rotate or Zoom directly. Instead, control the view programmatically:

   
   Dim viewCtrl As InventorViewControl = Me.InventorViewControl1
   viewCtrl.ViewOrientation = Inventor.ViewOrientationEnum.kIsoTopRightView
   viewCtrl.Fit()
           

3. Disable Toolbar or Customize It

   If Rotate causes crashes, disable or hide it:

   
   viewCtrl.ToolbarVisible = False
           

   Or selectively enable safe tools:

   
   viewCtrl.ToolbarVisible = True
   viewCtrl.EnableZoom = True
   viewCtrl.EnablePan = True
   viewCtrl.EnableRotate = False ' Disable problematic tool
           

4. Use Try-Catch Around View Manipulation

   Protect your code from runtime exceptions:

   
   Try
       viewCtrl.RotateView(30, 0) ' Example: rotate 30 degrees around X
   Catch ex As Exception
       MessageBox.Show("Rotate failed: " & ex.Message)
   End Try
           

5. Ensure Graphics Compatibility

   Make sure your system supports DirectX 11 and your form has proper DPI and scaling settings. Some crashes stem from graphics context mismatches.

Get Position and Orientation of a Work Plane

Use the WorkPlane.GetPosition method to extract the origin and orientation vectors:

Dim oPartDoc As PartDocument = ThisApplication.ActiveDocument
Dim oCompDef As PartComponentDefinition = oPartDoc.ComponentDefinition
Dim oWorkPlane As WorkPlane = oCompDef.WorkPlanes.Item(1) ' or any specific work plane

Dim origin As Point
Dim xAxis As UnitVector
Dim yAxis As UnitVector

oWorkPlane.GetPosition(origin, xAxis, yAxis)

MsgBox("Origin: " & origin.X & ", " & origin.Y & ", " & origin.Z)
MsgBox("X Axis: " & xAxis.X & ", " & xAxis.Y & ", " & xAxis.Z)
MsgBox("Y Axis: " & yAxis.X & ", " & yAxis.Y & ", " & yAxis.Z)

Sheets in Inventor are named using the Sheet.Name property. By default, they follow a simple pattern:

• Sheet1, Sheet2, etc.
• You can rename them manually or programmatically using:

sheet.Name = "Assembly Overview"

You can delete sheets using the Inventor API or iLogic. Here's a VB.NET-style snippet that safely deletes all sheets except the first:

Dim oDoc As DrawingDocument = ThisApplication.ActiveDocument
Dim oSheets As Sheets = oDoc.Sheets

' Delete all sheets except the first one
Do While oSheets.Count > 1
    Dim lastSheet As Sheet = oSheets.Item(oSheets.Count)
    lastSheet.Delete()
Loop