hello.
i tried to make four point A,B,C,D
and connect them using two lines(A and B, C and D)
I think there is nothing wrong in my code
but if i run the code, point A,B and first line(AB) disappeared.
please help me in this problem.
i attach the code here.
thanks
----------------------------------------------------------------
Option Strict Off
Imports System
Imports NXOpen
Module Points_01b
Sub Main()
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
'set undo mark
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Journal")
lw.open()
Dim A As New Point3d( -90, -7, -126 )
Dim B As New Point3d( -6@, -5, -560 )
Dim C As New Point3d( -110, 11, -550 )
Dim D As New Point3d( -22, 7, -540 )
Dim newPt1 As Point
Dim newPt2 As Point
Dim newPt3 As Point
Dim newPt4 As Point
newPt1=workPart.Points.CreatePoint(A)
newPt1.SetVisibility(SmartObject.VisibilityOption.Visible)
newPt2=workPart.Points.CreatePoint(B)
newPt2.SetVisibility(SmartObject.VisibilityOption.Visible)
newPt3=workPart.Points.CreatePoint(C)
newPt3.SetVisibility(SmartObject.VisibilityOption.Visible)
newPt4=workPart.Points.CreatePoint(D)
newPt4.SetVisibility(SmartObject.VisibilityOption.Visible)
'make point on part navigation
Dim nullFeatures_Feature As Features.Feature = Nothing
Dim pointFeatureBuilder1 As Features.PointFeatureBuilder
pointFeatureBuilder1 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)
pointFeatureBuilder1.Point = newPt1
Dim myPointFeature1 As Features.Feature
myPointFeature1 = pointFeatureBuilder1.Commit()
pointFeatureBuilder1.Destroy()
''''''
Dim pointFeatureBuilder2 As Features.PointFeatureBuilder
pointFeatureBuilder2 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)
pointFeatureBuilder2.Point = newPt2
Dim myPointFeature2 As Features.Feature
myPointFeature2 = pointFeatureBuilder2.Commit()
pointFeatureBuilder2.Destroy()
''''
Dim pointFeatureBuilder3 As Features.PointFeatureBuilder
pointFeatureBuilder3 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)
pointFeatureBuilder3.Point = newPt3
Dim myPointFeature3 As Features.Feature
myPointFeature3 = pointFeatureBuilder3.Commit()
pointFeatureBuilder3.Destroy()
''''
Dim pointFeatureBuilder4 As Features.PointFeatureBuilder
pointFeatureBuilder4 = workPart.BaseFeatures.CreatePointFeatureBuilder(nullFeatures_Feature)
pointFeatureBuilder4.Point = newPt4
Dim myPointFeature4 As Features.Feature
myPointFeature4 = pointFeatureBuilder4.Commit()
pointFeatureBuilder4.Destroy()
'make point on part navigation(connect point A and B)
Dim nullFeatures_AssociativeLine As Features.AssociativeLine = Nothing
Dim associativeLineBuilder1 As Features.AssociativeLineBuilder
associativeLineBuilder1 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
associativeLineBuilder1.StartPoint.Value = newPt1
associativeLineBuilder1.StartPointOptions =Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder1.EndPoint.Value = newPt2
associativeLineBuilder1.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Point
Dim myLineFeature As Features.AssociativeLine
myLineFeature = associativeLineBuilder1.Commit()
associativeLineBuilder1.Destroy()
'make point on part navigation(connect point C and D)
Dim associativeLineBuilder2 As Features.AssociativeLineBuilder
associativeLineBuilder2 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
associativeLineBuilder2.StartPoint.Value = newPt3
associativeLineBuilder2.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder2.EndPoint.Value = newPt4
associativeLineBuilder2.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Point
Dim myLineFeature2 As Features.AssociativeLine
myLineFeature2 = associativeLineBuilder2.Commit()
associativeLineBuilder2.Destroy()
lw.Close()
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
End Function
End Module