设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
- j5 J5 U. j; G2 r2 o
% B4 [# e& b- k# ^
/ i: |6 w# b0 Y1 T6 b/ R9 mOption Strict Off
Imports System
. d( _  Q4 a9 }+ }: rImports NXOpen
+ R% d& `6 |0 t* H6 eImports NXOpen.UF
Imports NXOpen.UI
# ^8 E% N/ j8 B6 ~; e, D
9 n; `8 j! Y/ ^0 G! F# L5 h3 lModule Module1

    Dim s As Session = Session.GetSession()
2 y: E' N! U; C- Q    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

( w! o( c2 g9 G* V' s: H    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()
: T4 q# _3 |2 K" ^
       Dim sp As New Point3d(0, 0, 0)
- a) ?+ Y; S; Q' ^& M        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
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
4 q" J* q: v5 v- H6 N& ?+ L( ~        Dim point1 As NXOpen.Point
. r- T+ P# W2 @. |0 m" ~        point1 = workPart.Points.CreatePoint(sp)
  b' L( |2 Q. c- c' t; {        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
1 @2 D4 V* N/ U        associativeArcBuilder1.EndPoint.Value = point2
: a  w% K$ Z; u* V        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
/ g. ?$ H8 O  ^        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
' W3 l. n( ^8 F        associativeArcBuilder1.MidPoint.Value = point3
) T, f6 H# M: K$ F% u. x) G+ |0 k        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
+ U/ @- B1 H  N( k( }! q        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
7 j: V- r7 C# m, I        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
+ v* r6 a! ~  j* I- Q        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
8 I5 b( D9 }+ @: V) _6 b7 Y/ X        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
9 \+ e4 |4 l' P" o+ B9 _        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
1 p; ^* r' K; T3 G3 k; k7 A: u0 W        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
& \3 _# W" y' \' S- ~+ ]        Dim object2(0) As NXOpen.DisplayableObject
) z8 p# t* X- s( G" r+ S        object2(0) = arc1
; r! R# s* J. ]' q        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
  O( s$ z1 {1 k. Z/ o$ u, {1 H9 i3 l        displayModification1.Dispose()

% M6 B( \# b, k& w0 r3 o+ b( t
        ' TODO: Add your application code here

, B! d& j6 z6 T) R+ N    End Sub

6 y4 f1 u/ z5 b8 u: l$ U
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
& ?: q& G3 P; Z& {% u$ A$ l, L5 o
8 J& E9 }* `% {, y1 V        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
9 X4 f9 M" m2 ]        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
) A8 I+ ^7 o: ^- k        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
* U, Q2 y+ T2 {3 P* Q        '-------------------------------

    End Function

End Module
4 X! z  h! a) D( l/ N7 J9 o
0 N. ]+ R3 C" K+ f- s9 E7 y$ A* g
8 S: F( s! c6 ~0 j* N6 L4 Q
! f0 I7 J9 @( m/ H