设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
. [9 N0 a; H) J  D* ?) Q7 G6 m
0 a7 q+ @1 a0 s
Option Strict Off
7 D3 g; {2 W' F0 C6 @( e. k) XImports System
- E6 f3 W% N& s0 h% ^2 l$ D: \, pImports NXOpen
* Z1 I! H6 i* }Imports NXOpen.UF
Imports NXOpen.UI

Module Module1

) d+ F' W# ]4 j- t" P  L/ @    Dim s As Session = Session.GetSession()
- J0 \7 @- l8 H. G) n9 n    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
  v, a8 ^! ]6 A9 p8 f( Z    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
  V' w+ e9 g8 w$ o
    '  Explicit Activation
1 \" r9 w, m  D5 a2 R# p% ?    '      This entry point is used to activate the application explicitly
    Sub Main()
4 _; [2 V' J$ k5 S- s
       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)
: s. a2 S% ~# [( x        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
% Q& {4 y0 I$ _. b$ h7 K        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
/ u; K. n9 [- B        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
. f3 ]: J& C3 y) W        Dim point2 As NXOpen.Point
( ]: Y% m: S6 p8 a+ M0 d8 A; W        point2 = workPart.Points.CreatePoint(ep)
0 v9 Y2 V5 x( a* E! n0 `) h% |        associativeArcBuilder1.StartPoint.Value = point1
6 x! o0 O- Z. o& Q: ^0 W* `        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
* S0 H6 v; I1 l% d2 L7 G' [        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
: w- R1 j6 f% a& ^        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
- I! Y) S+ N8 J- J$ W4 V        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
/ W8 S3 e8 q! F+ H9 \9 K0 c        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)
  V* s6 B- d; \% y3 R        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
! d) @7 A3 O; M" g% E  Y1 ]        displayModification1 = s.DisplayManager.NewDisplayModification() '
% U  d. @8 U  [( A        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()
$ R' u: u" c8 z7 S+ `" |

- a2 B; n8 u) M- U. C$ s        ' TODO: Add your application code here

    End Sub
2 {. O% L9 r  V% H% ]3 |+ i9 y

6 z; @. o$ ~+ j& D* Z3 V; N- D% G    Public Function GetUnloadOption(ByVal dummy As String) As Integer
& C; t) T. T: ]5 s  d
" G& H5 L8 P8 ^, P- e5 c$ ~: Q9 j        'Unloads the image immediately after execution within NX
3 h) W) b( c  ]+ b# g7 @# n5 X! c* I        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
( s% q2 a8 l* [0 |; H
: D4 t" C& B9 v- ?' }        '----Other unload options-------
3 `9 }( W: h; p2 A0 A        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
$ u  ^* ^4 o$ }0 F: ]
' n( `; s- A  }        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
. m( ~$ @( k3 V( t
4 |6 T+ l/ R6 ~& I: F! D$ ]    End Function

End Module
5 J! Q# j* X& n9 ^3 P