×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Planes through spline - Journal

Planes through spline - Journal

Planes through spline - Journal

(OP)
Hello everybody!
I'm trying to write a program that models several same spaced planes through a spline.
I had some troubles understanding how the 4 points for every datum plane are defined.

datumPlane1.SetCornerPoints(point1_1, point2_1, point3_1, point4_1)

I hope somebody could help me or show me how this task could be done.
I'm NX 4.0.4.2 user.

Thanks!

-----------------------------------------
Option Strict Off
Imports System
Imports NXOpen

Module NXJournal
Sub Main

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work

Dim displayPart As Part = theSession.Parts.Display

' ----------------------------------------------
'   Menu: Insert->Datum/Point->Datum Plane...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

Dim nullFeatures_Feature As Features.Feature = Nothing

Dim datumPlaneBuilder1 As Features.DatumPlaneBuilder
datumPlaneBuilder1 = workPart.Features.CreateDatumPlaneBuilder(nullFeatures_Feature)

Dim plane1 As Plane
plane1 = datumPlaneBuilder1.GetPlane()

theSession.SetUndoMarkName(markId1, "Datum Plane")

plane1.SetMethod(PlaneTypes.MethodType.Frenet)

Dim geom1(0) As NXObject
Dim spline1 As Spline = CType(workPart.FindObject("HANDLE R-604"), Spline)

geom1(0) = spline1
plane1.SetGeometry(geom1)

plane1.SetPercent(False)

plane1.SetExpression("670")

plane1.Evaluate()

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Datum Plane")

Dim geom4(-1) As NXObject
plane1.SetGeometry(geom4)

Dim flip1 As Boolean
flip1 = plane1.Flip

Dim feature1 As Features.Feature
feature1 = datumPlaneBuilder1.CommitFeature()

Dim datumPlaneFeature1 As Features.DatumPlaneFeature = CType(feature1, Features.DatumPlaneFeature)

Dim datumPlane1 As DatumPlane
datumPlane1 = datumPlaneFeature1.DatumPlane

Dim point1_1 As Point3d = New Point3d(-474.091218289246, 2471.51918195185, 1335.49675525946)
Dim point2_1 As Point3d = New Point3d(-471.494657855252, 2471.28254083785, 1335.43073246696)
Dim point3_1 As Point3d = New Point3d(-471.249755535249, 2473.83135829555, 1335.92675316644)            
Dim point4_1 As Point3d = New Point3d(-473.846315969243, 2474.06799940956, 1335.99277595895)
datumPlane1.SetCornerPoints(point1_1, point2_1, point3_1, point4_1)

datumPlane1.SetReverseSection(False)

theSession.DeleteUndoMark(markId2, Nothing)

datumPlaneBuilder1.Destroy()

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources