08-23-2022
06:04 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
08-23-2022
06:04 AM
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: