设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
. `  |6 h, ~1 s6 `) U! z5 U7 x" d$ D' L

# m7 _! E, Y8 [! @; xOption Strict Off
Imports System
Imports NXOpen
+ D0 c( j2 j- {% AImports NXOpen.UF
6 I( a/ g4 U, l6 _3 {5 yImports NXOpen.UI

/ P6 _& m" G, m6 [2 VModule Module1
6 A( `; [# Q# w, I% k
4 X9 E2 b9 V% `2 d0 y    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
0 x' U7 ^  y4 Y3 c% }
' z) j( m/ Q* `7 F: x    '  Explicit Activation
. }! b2 n* J- O    '      This entry point is used to activate the application explicitly
7 N* P9 K/ V% i    Sub Main()
6 n8 d: u7 Z. u. u/ ~
: A5 w+ Y# D9 o& S       Dim sp As New Point3d(0, 0, 0)
; V3 F8 k! |+ l% ^        Dim ep As New Point3d(50, 50, 0)
' B* j, X+ P2 n        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
8 i" m& G! }+ H1 E1 y4 g4 A        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
" ^$ {0 D3 L5 U: M. I5 J3 v% ?        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
8 V- f/ t1 ~+ X        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
& h7 ~3 `2 O9 \( X. @        Dim point2 As NXOpen.Point
# N6 ]% r/ N) G8 A& [) ^3 j4 X        point2 = workPart.Points.CreatePoint(ep)
$ P' y3 \5 _$ `- v$ {3 L  r; D        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
; L! f: @4 F- L3 V# F        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
# y" i1 a, e9 N; s+ {        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
3 S/ F" }+ G, N8 s. c2 \        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
; o8 j* B" b# j$ s0 F        Dim nXObject1 As NXOpen.NXObject
  x: H7 F- e: J3 ?: P        nXObject1 = associativeArcBuilder1.Commit()
! ?2 w/ s- G& S8 S& C        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
9 W, E1 Q! W% k8 h2 v9 v" Q        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
' R% o/ p7 N6 O        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
+ i! K" ^% ]6 }        Dim displayModification1 As NXOpen.DisplayModification
  X4 ^  S! _" C- r- I3 t        displayModification1 = s.DisplayManager.NewDisplayModification()
6 W9 {! t0 F' b  E3 [; C& o        displayModification1 = s.DisplayManager.NewDisplayModification() '
  U. n% ~3 K. c7 B: {( Y* m        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
8 e' `/ A; x1 h" d/ E1 o" |! Y. m& f        Dim object2(0) As NXOpen.DisplayableObject
4 W6 M& b( f: N/ {! ?1 w) r        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()

( }1 D1 e& F' G% N9 b5 n( B
        ' TODO: Add your application code here

9 P5 _) \% N) g! Z9 S# a2 h1 P& F    End Sub
$ {1 V1 Y; N0 V, g) {. u2 r

7 |% y9 M" g) S3 t    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

6 Y* e7 Y) G, g, A        '----Other unload options-------
) x' t  a8 [% _4 W9 S! i2 |! I        'Unloads the image when the NX session terminates
, c1 R* i% }- T8 e        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

) V4 @7 r1 a) v! H: A, V- y' Z9 {# L4 W        'Unloads the image explicitly, via an unload dialog
% v; M% @! Z* c) J        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function

End Module
  Q6 }6 m) k. a" I- X9 [* G" W

4 R' }; K+ `( I
( i: p$ l0 V/ _" R( t