设置线的颜色

45guop

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

7 C! [6 ~+ R7 U& F, E/ i4 A
# o! u! t, c( i3 a, i, R7 d9 W! {Option Strict Off
Imports System
Imports NXOpen
' I, t: N5 A( W+ ~& T; hImports NXOpen.UF
7 b+ M# R; o: ~& u! B. M  BImports NXOpen.UI

3 G2 s7 R4 t2 F- a% {% b, l, sModule Module1

+ [  I) Z# P$ G3 Y8 o    Dim s As Session = Session.GetSession()
) f1 Z9 \1 e+ Q    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
% A: A! X+ H1 B8 a
: V0 n' D- V7 K1 ~- m    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
. c* D/ G8 G' g+ e. n) u& T3 V* f. {0 N    Sub Main()

2 L' t; ]& V4 q! ?! z9 q9 D' }       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
5 H2 J% [# d4 }1 e$ _, h* v( e        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
" Z8 c. [6 U& k! ~, e. [; z        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
3 [+ [7 i( @; R* Q4 J; ?1 @" o- _        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
7 I. w( N8 l; J( z0 B- L        Dim point3 As NXOpen.Point
" X3 `: `, Y; K. h, r        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
5 f. a2 ?% j+ y4 O8 X& o        associativeArcBuilder1.MidPoint.Value = point3
# j1 f4 K( \) d) p* w: Q        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)
        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
- K$ n( X4 O! ^4 W  _        displayModification1 = s.DisplayManager.NewDisplayModification() '
/ a% b# S' c, L- M! Z        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
8 A8 i  y4 f/ q0 i5 e        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
& y* y# r, g& g* j' O8 }1 C' \        Dim object2(0) As NXOpen.DisplayableObject
2 D4 i, h: d; ?: `- W3 m        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()
  M, s0 |1 y3 R

        ' TODO: Add your application code here

& p( E- ]# [/ Z    End Sub

3 b1 F3 d7 }/ L+ \& `
* o, w0 @' D/ V8 T; G5 k) M( n    Public Function GetUnloadOption(ByVal dummy As String) As Integer
, o* I$ s+ j6 a
        'Unloads the image immediately after execution within NX
3 K3 J. Y, D0 d& i( a        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

$ b; c$ p0 a9 t/ ]& R        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

1 E, [/ `: I3 t        'Unloads the image explicitly, via an unload dialog
" B2 r' \* z$ _: X; [& t        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
' _1 J+ T  g) G7 ]& p        '-------------------------------
8 a6 O& D$ O8 j6 B
    End Function
0 Q! x) {% |  X2 G( Y& s
5 }- Q; Z  `5 L- J/ [' yEnd Module
+ [+ U+ Y" C1 P6 `
: a3 p$ u0 m5 B
. S& |7 O4 p( {: O0 X& q