设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
1 b; n; h) z( N+ R
7 ~- U) m  W; I9 p
: B# i( [. g# j' ^6 B3 IOption Strict Off
3 U0 B$ X, \; xImports System
- b. f) V% p  W$ l' HImports NXOpen
% W) x* G( u& {8 I$ j9 g+ \Imports NXOpen.UF
Imports NXOpen.UI

7 F' _0 _" J4 W5 rModule Module1

. f! X' I' U# x    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
. M( X" d: r; }' T! V3 A
& ?+ O  e0 J3 x4 P% x3 ~    Dim displayPart As NXOpen.Part = theSession.Parts.Display

! u( m7 W# O% Q7 X$ d    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
( S# z5 o& j( i2 K    Sub Main()

       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)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
$ o# T5 [8 y& J! d7 [' D+ @        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
: ^) K! g8 A/ g. q/ x# g5 ?        point1 = workPart.Points.CreatePoint(sp)
1 e) x3 ^: b# [" U# ^  H4 }        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        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))
9 A, A5 O3 y% M& b( H        associativeArcBuilder1.MidPoint.Value = point3
& Y7 ~1 @, ^/ F9 f" Y" _# S3 I        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
; i9 x$ e8 f+ c* f" O) O- X5 X        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
$ Y" t  F; E9 k8 L9 j7 q  [        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
8 @6 W6 Q: V" S2 V        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
- J/ l' e# L( l4 m, d$ O: C        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
6 S' y" C& \7 x% Y; t        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
+ G) M, h9 Z3 g/ o$ F& o        objects1(0) = theLine
: _0 i! z4 o: q. i' C& ^: V        Dim object2(0) As NXOpen.DisplayableObject
9 ~( q# g% _# v. w        object2(0) = arc1
4 E3 B: ?) b/ b, H        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()

4 `" _3 O: W' F0 g! a
        ' TODO: Add your application code here

5 H" ]4 u; a2 m    End Sub

+ I" ]3 g5 t6 c) e1 w
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
/ p' R( r3 P) n; A+ b- q; }
8 \8 K5 `3 ?- I1 q' X4 z6 g        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
  D1 C" W' s6 ~4 X# Y  i7 W
        '----Other unload options-------
! f* v" [- e- s6 j. M9 w7 _        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
" c# V) ]0 y, `, r' j+ R
        'Unloads the image explicitly, via an unload dialog
1 G- A; S7 x6 f( C6 \7 `4 r        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
3 c6 T1 o& J8 j8 f! t+ R1 L9 J        '-------------------------------
1 e: m" g: f5 k
    End Function

End Module
3 U. S6 @1 K5 J- h8 l3 }0 L
) o! q. b/ w, @; _  l
: B$ |; E7 f- y6 u. @3 _% J