设置线的颜色

45guop

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

6 F& \& C2 a0 _9 w6 U( A
Option Strict Off
Imports System
" h" r" j4 m4 h; j$ MImports NXOpen
" w6 c6 n% X6 i5 k6 a. D8 V! H6 }Imports NXOpen.UF
Imports NXOpen.UI
2 Y7 H( [& P* u! O  Y
, q, e0 t  G) LModule Module1
. l" h4 i( \: j) A/ Z' E
    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
2 L/ [; g5 f8 ?, j
    '  Explicit Activation
4 R! E" h5 `' Z# e2 V  [    '      This entry point is used to activate the application explicitly
8 b% \6 G2 ?' Q. n$ P) Q# H    Sub Main()
$ W$ C1 Y& x8 Y4 j* X0 ^; Z
       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
8 n% [" |# Q2 B        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)
; a, Z4 P( [3 C        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
' g) Q& b7 m* ^' ^+ ^! ]$ l        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
$ d9 T8 r+ d* l. C        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
- C/ M( T, z! b8 Q        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)
! C) h( s; n. E) N9 p! T  G: c8 R. w        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
3 V6 ^+ G2 A2 u" ?3 a- h2 [        displayModification1 = s.DisplayManager.NewDisplayModification() '
  q( n2 f( ^& G2 G        displayModification1.NewColor = 7     '设置颜色
3 J# {2 d( Q9 ?) T' H. r" s  L        displayModification1.NewLayer = 10    '设置图层
: C0 E: R% I/ m$ o/ _        Dim objects1(0) As NXOpen.DisplayableObject
* p- \' D$ Q3 f, I        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
& ^  @* r! b) F; z& ^        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()
  c$ R" _# ]3 ?6 Q' E' S# M9 r

        ' TODO: Add your application code here
& w, D* u- D* n
    End Sub
" }+ J- A# B1 s8 ?: |: ?' B# q& l

    Public Function GetUnloadOption(ByVal dummy As String) As Integer
3 E( n9 k7 ^' [! \/ Q6 N6 Z
* Z$ V$ L' I$ |+ T        'Unloads the image immediately after execution within NX
5 j! a4 s2 K5 N4 ~1 Y        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
( ~" ^' ]* H. ]9 o
% C% ]* o# J- H9 F. R$ d/ q% |# V        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
0 ?6 D# u$ _7 g8 s6 [  q
    End Function

End Module

( d' e+ N7 k, i  |6 ]