设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
% }7 I8 ?: H( W. j4 G0 A
- A* W9 o& m0 {5 W
Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
/ ~) b7 q; d! P/ P1 h
Module Module1
/ Y2 r! f, R  t  b# T' O
8 B5 i' ^' @  a. ^) ~" K+ ~3 X) q    Dim s As Session = Session.GetSession()
  W5 d" |3 e5 Z' c* ?) H    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
# o. ^0 T9 {. X( ^    Dim workPart As NXOpen.Part = theSession.Parts.Work
, \& }4 Q# f  L6 J
# i; j9 G$ K2 y5 z+ S/ q    Dim displayPart As NXOpen.Part = theSession.Parts.Display
! a! J; Y) W7 s) e5 H$ O
    '  Explicit Activation
$ r0 Q  f& l- ]# b5 U/ q    '      This entry point is used to activate the application explicitly
    Sub Main()
/ T) S: J& ^& ^* \4 V) m% t
       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
+ e% r  O5 a7 ^" I: q        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
; Q* A; E: q" k        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
( e) s# S: b' [& T        point1 = workPart.Points.CreatePoint(sp)
/ o" Q2 X4 }4 P8 f& s        Dim point2 As NXOpen.Point
1 l. _( d$ s; T8 x2 z4 s) D5 {" @        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
) l% q- ~8 r1 x& s! C  c6 @/ u        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
! U( o% L: q9 b) M* U( [7 }3 z        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
/ w+ U2 {/ _/ f* J. B+ `        Dim point3 As NXOpen.Point
& b) ~$ }3 _9 G) Y3 q        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
& \; T8 U6 G- s8 b4 G; N5 D: r        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
$ q  `# ^- ^, p7 n        nXObject1 = associativeArcBuilder1.Commit()
6 F+ B) v* Q$ D8 Y6 _) N6 i0 y        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
  x! p/ U' Y2 b2 F1 I5 b: K5 L' r        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
  h) t' X- o# Z& R0 P        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
1 N1 |$ ?; A, g, }2 \        Dim displayModification1 As NXOpen.DisplayModification
2 U( I) g1 A) J3 ?( p& N        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
" A! h8 x7 c9 V) K6 v        displayModification1.NewLayer = 10    '设置图层
$ n" F5 S  w# }9 f- @        Dim objects1(0) As NXOpen.DisplayableObject
1 q3 I) O! z* Q4 ^' _/ V        objects1(0) = theLine
3 `7 \* C- n8 K7 E, s0 A6 {+ E: e        Dim object2(0) As NXOpen.DisplayableObject
  w0 F% d- w  ~) l3 o6 r( U        object2(0) = arc1
' o' t8 m6 o0 f2 b        displayModification1.Apply(objects1)
1 ?/ p% H2 O- u8 N% \        displayModification1.Apply(object2)
        displayModification1.Dispose()
2 q  M" I  Q) S' I# |

        ' TODO: Add your application code here
6 D( T8 t0 V* U6 V9 j
% q5 E, J+ E4 U) _5 y" M    End Sub

8 L5 K7 ]9 C0 G+ M7 N
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
* @( L* T! m2 X, o0 e7 L, w* j
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

/ @- `* s2 E. B; ?2 M  N        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
4 ^2 l( h/ B  X% U0 ?
& @/ ?3 @% [8 d" m' m0 b- m4 ~        'Unloads the image explicitly, via an unload dialog
! `6 r6 E1 q8 T& ~$ @3 a        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
0 l, s2 l( O5 a- F! D        '-------------------------------

7 k3 p& V8 P, C' K/ i    End Function

End Module

* t* h! u9 D% a$ [2 \* Y2 @1 {. A

: p% e7 t( G) v5 Q: {8 b