设置线的颜色

45guop

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


Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
6 O3 n* }: Z4 _0 [4 v) tImports NXOpen.UI
" m. W* R. s  Z. Y
+ {8 u# \* A: ZModule Module1

( }& q( [: ^6 D% O+ K% {; O, m    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

1 x( X) q+ d( ?    Dim displayPart As NXOpen.Part = theSession.Parts.Display
3 i# v3 x# ]4 x8 J+ E% K4 R3 F
    '  Explicit Activation
9 V- `) K; C) Y! l2 R    '      This entry point is used to activate the application explicitly
0 I: z1 h* h8 D    Sub Main()

6 N. s$ T4 T( V; Y7 E# ?7 s       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
" y' t' M6 X! X) X6 T2 L. Z        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
0 n% L# S( i% [1 B3 N9 q2 q# {        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
: C4 G; o; r6 ?! j7 m$ A1 d        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
" B( h+ A: Z, t+ S: p        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
6 L$ z# @4 P7 U5 j5 g        associativeArcBuilder1.StartPoint.Value = point1
$ G7 ?0 t) \: m4 b        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
& \2 [  @3 \, b% C" t* r/ P        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
6 q% b4 W! q& y& I$ j        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
6 N# I% [, p6 G- O# H        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
8 E8 D6 Y; R  j& r        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
. O; k" q  ^; O2 E" a* A+ j1 n        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
% F, t) D+ v$ H. d9 M        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()
* \+ j8 R; D  i3 N: K5 V        displayModification1 = s.DisplayManager.NewDisplayModification() '
4 T4 e7 s+ ?8 F0 i        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
. p9 x% t  |$ \# ~1 y! v3 f: ^        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
2 s6 }; n, l8 p# m" L        object2(0) = arc1
        displayModification1.Apply(objects1)
9 [$ A9 [4 r6 T, b. W        displayModification1.Apply(object2)
( O/ m, i% C* P1 L! Z0 i8 H7 O        displayModification1.Dispose()

  m$ q) d% B7 ?: Z3 j4 h, U. u9 D
        ' TODO: Add your application code here
! z0 q' I) _' K  g+ J# r
    End Sub
8 h2 I, d0 h* Y0 [; p
5 \  L( Z4 p. D& H) p
$ s, R1 Y6 J: b0 j) J2 b; X    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

. t& D& B4 h' m2 I" u8 O6 H1 ^- y+ X! y2 m        '----Other unload options-------
9 |, R3 t  }& P' I0 D1 J        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

- @# [1 ?/ N& i: @) b( U$ a        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
0 O7 q+ ~& t- f; n, d& F: Z        '-------------------------------
* h6 x" _7 R; X" x& [* \
    End Function
" z# @, f3 b% t, _
5 Q# u) z( g! REnd Module