05-04-2023
07:45 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
05-04-2023
07:45 AM
You've put in the axis and the plane in the wrong order...
This should work:
Dim oDef = ThisDoc.Document.ComponentDefinition Dim oWPlane As WorkPlane Dim oAxis As WorkAxes oAxis = oDef.WorkAxes oWPlane = oDef.WorkPlanes.AddByLinePlaneAndAngle(oAxis("Y Axis"), oDef.WorkPlanes("XY Plane"), 45) oWPlane.Name = "Plane_Name"
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website