Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
K.clement
in reply to: WCrihfield

a bigger example:

 

Dim oADef As ComponentDefinition = g_inventorApplication.ActiveDocument.ComponentDefinition
Dim oAsmXYPlane As WorkPlane = oADef.WorkPlanes.Item(3) 'Assembly XY Plane
Dim oAsmZAxis As WorkAxis = oADef.WorkAxes.Item(3) 'Assembly Z Axis

 

Dim oODef As ComponentDefinition = oOcc.Definition
Dim oOccXYPlane As WorkPlane = oODef.WorkPlanes.Item(3) 'Occurrence XY Plane
Dim oOccZAxis As WorkAxis = oODef.WorkAxes.Item(3) 'Occurrence Z Axis
oOcc.CreateGeometryProxy(oOccXYPlane, oOccXYPlane)
oOcc.CreateGeometryProxy(oOccZAxis, oOccZAxis)

 

This is a bigger example, do note that :

- This Code works, (it only gives a annoying warning)

- Defining:  Dim x as workplaneproxy  /  oOcc.CreateGeometryProxy(oOccXYPlane, x) gives the same warning: