- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
How redefine a workplane via API
I need a help!
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim oDoc As PartDocument
oDoc = _invApp.ActiveDocument
'获取当前文档存在的工作平面
Dim partDef As PartComponentDefinition
partDef = oDoc.ComponentDefinition
Dim oWP1 As WorkPlane
oWP1 = partDef.WorkPlanes.Item("工作平面1507.5m")
Dim oTransGeom As TransientGeometry
oTransGeom = _invApp.TransientGeometry
Dim p1, p2, p3 As WorkPoint
p1 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(0, 0, 0))
p2 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(100, 0, 0))
p3 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(0, 100, 0))
oWP1.SetByThreePoints(p1, p2, p3)
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
Dim oDoc As PartDocument
oDoc = _invApp.ActiveDocument
'获取当前文档存在的工作平面
Dim partDef As PartComponentDefinition
partDef = oDoc.ComponentDefinition
Dim oWP1 As WorkPlane
oWP1 = partDef.WorkPlanes.Item("工作平面1507.5m")
Dim oTransGeom As TransientGeometry
oTransGeom = _invApp.TransientGeometry
Dim p1, p2, p3 As WorkPoint
p1 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(0, 0, 0))
p2 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(100, 0, 0))
p3 = partDef.WorkPoints.AddFixed(oTransGeom.CreatePoint(0, 100, 0))
oWP1.SetByThreePoints(p1, p2, p3) 'redefine the workplane by three points
End Sub
like this,but it can not run!
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi,
Please have a look : https://forums.autodesk.com/t5/inventor-customization/redefining-sketch-features-with-ilogic/td-p/84...
Regards,
FINET L.
If this post solved your question, please kindly mark it as "Solution"
If this post helped out in any way to solve your question, please drop a "Like"