设置线的颜色

45guop

怎么才能设置线的颜色呢代码：


Option Strict Off
# E: E% Z. Q* y3 d7 ]Imports System
( V4 M7 ?- U) M/ L$ x% `& oImports NXOpen
Imports NXOpen.UF
! d5 v4 f1 L$ G# pImports NXOpen.UI

Module Module1

6 K$ B: `( H$ T# L! |/ Y    Dim s As Session = Session.GetSession()
! W" U  Z1 s( ]6 c0 n    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
- x- d& I6 }7 ]6 a( }    Dim workPart As NXOpen.Part = theSession.Parts.Work
" I2 j7 }' {4 D# ?7 U
! U1 _$ N; X$ y    Dim displayPart As NXOpen.Part = theSession.Parts.Display
4 ]1 X8 D  o7 O6 K# b7 V! m
    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
! R! ~% m) s( ^- K+ X# f    Sub Main()

* F4 c8 j& H  d4 b1 {       Dim sp As New Point3d(0, 0, 0)
+ r4 X; D$ D. }$ t+ v& _        Dim ep As New Point3d(50, 50, 0)
* I  f0 D; M. x        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
3 ^. D6 E! P9 |8 H. U% A* Z: @7 x        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
* E; ~$ B6 t% M6 O% E$ b& M        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
) X0 ~: ~" u; U2 O% w& k        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
9 c3 m) f! q0 g, q5 p9 m4 Z( p$ E- v        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
6 }/ w& u- s  q        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
1 q: ]' |, x) t, p0 ]( V        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
$ w( j, g' k# |& n0 C8 `9 ^        associativeArcBuilder1.MidPoint.Value = point3
3 |# V: N7 L* w. A5 d, L" x        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)
0 K) E1 d8 s" b7 m2 N7 I- p5 O  ~        associativeArc2.SetName("123")
. o: j: c8 j$ e0 c( z3 Y        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
) ^5 [$ L# _5 J& d        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
: O4 b9 L$ x5 Y* g0 @        Dim displayModification1 As NXOpen.DisplayModification
# q, E$ w" g' k$ g        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
2 O. ]: d! O4 N9 n2 z5 P0 p; w/ f        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
) ~) E3 V2 ]  H        displayModification1.Apply(objects1)
* ]* F3 n3 s, ^: f        displayModification1.Apply(object2)
6 h  Y) a& w& g. j7 N        displayModification1.Dispose()
5 \: M2 B8 h; d! a2 i

  v" f! [' C7 P6 j' l        ' TODO: Add your application code here

    End Sub
0 L5 ^5 d+ ]* r  \" M
0 o! K6 {$ ~5 O+ D8 k& N: `4 @6 |0 s
7 w; f( j! P0 F' v4 E3 A0 A/ l    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
9 `3 j" `/ u8 I* o0 K        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
- y$ N7 I/ L8 T! P& ?
: u( Y, F9 K+ A9 G; e4 P; N        '----Other unload options-------
        'Unloads the image when the NX session terminates
& M$ I6 W  w4 Q1 H7 W  K' h        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
4 U4 I+ n3 `4 K. h* ~- s  \* A
: ~% D5 z8 H7 p! @. ]        'Unloads the image explicitly, via an unload dialog
# C4 l4 n0 A6 F' f( x        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
/ S8 q! L7 q+ J5 @+ @
    End Function

, n+ A0 y3 t" S! WEnd Module
+ t6 Q& f$ _1 p& J; U; c( Y) w1 J