设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
  B8 n$ V: I* l
# g! P3 ^! W1 I, F8 P
Option Strict Off
Imports System
" O$ u: Y% I* i0 ~! ZImports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
" }5 B  O* t  q! D' H
Module Module1
# H2 r! P  e* [7 a. N8 t3 G
    Dim s As Session = Session.GetSession()
5 s1 z6 Q, Q) V; q8 h) w    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

  g4 A, f8 ?  Y% g0 B" u+ p    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
  v2 u7 N+ O0 K( J    Sub Main()
& h. k3 B; t; @
       Dim sp As New Point3d(0, 0, 0)
1 x& v+ ]' W& k: ~8 X" a% E) O        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
$ p9 T( C6 j8 a3 o" d        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
7 E( }0 v# }8 h( u2 M' w7 a        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
1 b: f2 I9 Z- i( P* i        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
& U0 }+ V$ w0 S+ H# k# N        associativeArcBuilder1.StartPoint.Value = point1
' E3 d6 \. |& e4 `3 l# _' e        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
; Y: [' P0 |0 S& v6 {6 Y        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
* U; D# n! k0 u8 s! O0 z" U        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        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)
7 l# s( d. @9 g2 P- L" E        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
, n2 n: D9 g6 j  k2 `3 R7 u1 S: s        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
$ _8 D/ s: t! P$ A+ E5 E        displayModification1 = s.DisplayManager.NewDisplayModification()
8 }( r; q: y: K1 F        displayModification1 = s.DisplayManager.NewDisplayModification() '
2 q# f" l/ I' k3 K/ `9 a        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
0 b; j& u" ~8 e* `- Y3 Q        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
+ K) v5 N7 B% x        Dim object2(0) As NXOpen.DisplayableObject
# M" Y1 h" [  c; A2 u" p: L! R        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
* b( F, \2 h3 r. K0 C; ~- W" X  p        displayModification1.Dispose()


; w1 C; `0 i: g  X/ T, e* M7 I        ' TODO: Add your application code here
) z# N/ M/ N. u; T% q9 b
+ i# I7 I& [; j9 O7 a& ^$ O9 L% P    End Sub

5 J% ~. ?* z! q0 j! R
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
5 n4 ^9 o4 b# |/ e5 t" K
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
' r4 D! E) Z1 s
! U3 Y& s$ D* T- T        '----Other unload options-------
0 J+ h( a0 x# P1 S; f" x7 g- o+ M        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

. w, W' A- g! i. l4 _! d: F: G        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

2 P% O" c& w- Q5 B% l/ b& e( I/ X- @    End Function
. e) G2 {6 c& g; n
End Module
' `1 [, Z  E; K& s3 o" u/ c


" T. `3 }2 J; D& R4 x4 T- z7 x9 x