设置线的颜色

45guop

怎么才能设置线的颜色呢代码：


Option Strict Off
, l, O4 I; c5 TImports System
! C( j  y) B, @Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI

Module Module1

    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
+ s+ P; m+ M+ [9 k, }) f
8 g2 I' I3 v& V/ ?0 _; V6 ~    Dim displayPart As NXOpen.Part = theSession.Parts.Display

  y0 T- H; o2 _' p    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()

9 Z' Q$ x9 a$ P, P6 c       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
* ^4 ?) O0 S6 L* I        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
* Y; z% _, q& }0 j# o        Dim point2 As NXOpen.Point
( G. @8 S6 c- b6 I! q        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
. s' A2 j0 D7 C( L        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
5 I2 O- ~+ h# o4 C        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
0 P: j6 i) F  @' e; ^4 I% M& Y  a9 e! i        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
+ _& z. t* L- H+ ^) G+ F! ~, Q* [        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
' Y. n0 x7 ?, m  x        Dim displayModification1 As NXOpen.DisplayModification
/ n9 h/ I! U) K6 b# s6 V2 M        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
( u( R  z# t; T+ C        displayModification1.NewColor = 7     '设置颜色
0 Y: h& F+ C0 S+ ]        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
- W3 u, t6 `5 P+ L% e2 i% a        objects1(0) = theLine
/ s. q  j6 }2 @% p8 H  h* C        Dim object2(0) As NXOpen.DisplayableObject
7 H" R2 o4 ?/ Z! f+ ?; |        object2(0) = arc1
1 h# _! S% x' L$ b0 f/ D        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
0 D+ E( @. R  ~        displayModification1.Dispose()
- Z* K+ k7 w$ [" g4 ^8 K& j
8 }6 s  g, j( P8 n/ W% b
        ' TODO: Add your application code here
4 H; W0 l$ i) M- K
    End Sub
% ?- }( R" A: N  t8 r1 H8 m

4 B0 e0 S7 U! u1 N    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
. F# v0 c# p! t$ I/ U# c; ]
        '----Other unload options-------
        'Unloads the image when the NX session terminates
& w  z% o5 d& h3 i, c" I        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

2 l. J+ l: k# H- w/ p        'Unloads the image explicitly, via an unload dialog
8 F/ d$ R& ^; D        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

. \$ v9 e0 V( N# Z) ?    End Function

9 g& Y/ d1 ~% R5 \& REnd Module
* x# }! y* v8 c8 E' e