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!
