设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
$ n# ]" y2 h$ ~2 |4 E
  S9 N/ }' f2 l7 D. ]+ F9 b
( T, S( a7 v' I  LOption Strict Off
Imports System
# |2 g3 d# I) m9 H5 n: E6 [Imports NXOpen
Imports NXOpen.UF
0 }) s. [/ w8 j1 \! Q1 L# GImports NXOpen.UI
( L3 s% H" @' c- [6 p! L8 V
Module Module1
2 E! q* c) K$ A' h) f  j
; f. p5 c: E3 W: h5 U( u: r    Dim s As Session = Session.GetSession()
* @, Q7 o3 {& p) C7 I    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
/ }9 K/ }$ i: K! O% S
. V- p( \) o' r0 V& B    Dim displayPart As NXOpen.Part = theSession.Parts.Display

' Q8 ?# q% P4 b! l, }- D    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
; w4 C8 ~) f6 K. j    Sub Main()
$ t% x& E- A' _' Z, q
       Dim sp As New Point3d(0, 0, 0)
: @- |: W* f: j& x: `2 r( v        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)
/ L. Z, K/ G0 X9 K3 G0 B1 j) x        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
  x1 D+ q# F' q5 x        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
( K) L" ^4 N- v1 y' v- D- }        Dim point1 As NXOpen.Point
" l' J6 l- T0 h& u9 J        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
; K5 i' w/ D, J: ]- k" D( Z        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
0 j# G, T: @5 Z" M: I/ A        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
: m! W  |$ c/ @. [0 T  X: v        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
  [3 q! R1 |& I2 I9 ^        associativeArcBuilder1.MidPoint.Value = point3
8 p$ V! T7 m, b. g        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
. p- v0 @$ C$ E/ a, p        associativeArc2.SetName("123")
  t. O, v  N# u# t0 b! |        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
' m6 u( ~' D8 L8 b5 [7 ^        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
9 r( v1 X7 r8 O2 w8 A        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
: {9 O; i  {# d; E5 |$ I( K+ s        displayModification1.NewLayer = 10    '设置图层
. L* N/ p# i' f% Z        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
2 `) [1 w8 W7 M) v' \        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
2 ~2 Y5 K' n7 B- ^7 E, C) E        displayModification1.Apply(object2)
        displayModification1.Dispose()


        ' TODO: Add your application code here

; m& P+ |2 r! ]2 V" r  }" b    End Sub


. o! |4 r7 B. J, l+ e. ?# |    Public Function GetUnloadOption(ByVal dummy As String) As Integer

' S4 h! c/ V7 E& A        'Unloads the image immediately after execution within NX
! @3 x0 j* o- [        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

% z3 w1 A% W1 R2 @! R" U4 b        '----Other unload options-------
+ [% j+ R8 o% M+ @        'Unloads the image when the NX session terminates
7 Z" M0 d5 V" Y" n. r* B        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

+ D: |' E& Y; O' V7 ~        'Unloads the image explicitly, via an unload dialog
$ }. C1 `% j) z3 f+ G: W; M        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
7 l- J; I% G9 j! _0 v        '-------------------------------
, f2 K5 v( T* o8 I
( X, D6 R- e7 w( q# I3 u" G$ f    End Function

End Module