设置线的颜色

45guop

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

7 [5 B! K0 G+ ~. y* B
4 K7 H' r+ R; ~' O. k2 S/ }( q8 nOption Strict Off
9 a# {& t1 n7 EImports System
6 V- i; N$ `9 e: b$ ]Imports NXOpen
: N: \8 d5 @0 u7 Y  o& K, m* I3 jImports NXOpen.UF
Imports NXOpen.UI
- E- }( j+ U% D1 X' h+ A$ K
% P; y( b" @0 x" ~+ j! C. i: j$ z: |Module Module1
8 ^, [; E/ a  d* ^: e0 |
$ Y' ^; U6 n- ?7 W4 u$ d/ i    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
/ ]! Y8 u' Y, F# R; @! e    Dim workPart As NXOpen.Part = theSession.Parts.Work
; H: o6 Z6 u7 o3 t0 Q
# L7 ?# K; J+ y1 Y1 x, C  j    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
! b3 v$ m* K8 y  L5 _8 ~6 |6 B    '      This entry point is used to activate the application explicitly
( @' p5 O3 B) s6 o+ u# x6 Y    Sub Main()

       Dim sp As New Point3d(0, 0, 0)
7 A% B7 s+ d. \( l) j9 T        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)
& z5 g2 D. s% |5 s+ d        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
4 |) l) y9 _) @% K. t        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
) L0 Y6 z& l% E5 U: z4 o        point2 = workPart.Points.CreatePoint(ep)
% ^  _  T4 ?6 Z3 H  q        associativeArcBuilder1.StartPoint.Value = point1
9 b; t9 M7 ~. y$ c0 T        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
/ F0 K7 g4 T2 c& C$ }  V        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
/ H2 S  K4 U- L# O: G# e, h$ M# S        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
0 P1 W0 I8 L* o1 G$ _- R        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
  ]6 ]2 \( A/ `) c* s2 n8 r! r        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
8 h% ^- S6 u9 |, G0 c  S+ g" m        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
2 W& |4 R8 I& C8 S7 k        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
- x4 P) U+ t9 ]9 c' ~        displayModification1.NewColor = 7     '设置颜色
1 J, E3 R) q8 R% u7 j. p        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
/ |+ m. t. O) z; F& g        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
7 Y) q' |* a9 }- e        displayModification1.Apply(objects1)
' w2 o; x  j! G4 T" N) X        displayModification1.Apply(object2)
        displayModification1.Dispose()


        ' TODO: Add your application code here
6 E1 s& ~) W7 i) g- Z
) j& h2 E! C6 |, Y5 [$ ?# k9 V    End Sub


& p; K+ b/ E" V- T9 c; ^    Public Function GetUnloadOption(ByVal dummy As String) As Integer

# Q+ r8 c! J& t) S( N7 f) {. Q' r        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

& ?' H# K7 i, l# \2 [        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
, R1 b$ [  ^- s" F# |4 ~        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
1 l6 b9 ]  x7 y) k" x0 N" K, M: G
    End Function

End Module

! B+ l& A  e' E
2 c* F! e$ f% V5 E  T1 D. }