设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
+ T8 H+ o  D! g0 i' Y) k- H
4 \- A' V# Y7 q% p/ _! i
Option Strict Off
Imports System
' J; F% \5 A, b" E) C4 R! D1 JImports NXOpen
8 @( A; G: H) gImports NXOpen.UF
Imports NXOpen.UI

Module Module1

    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
8 @+ `7 i/ M; M4 r: V    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display

+ L2 G& B- M6 s0 m- F: q; e) s    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
1 \+ J2 b4 u6 U) V: T. y  w' W    Sub Main()
& L: {. d9 \- q
3 [  i: ~, I6 m- r- u. M* ^+ q# j! c2 t       Dim sp As New Point3d(0, 0, 0)
4 S. N1 j% {' d: _! K, A        Dim ep As New Point3d(50, 50, 0)
8 T  ?+ k  ?/ A4 f+ O0 B; R5 v! `0 m5 R) U        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
+ F& V" c) ^" j  F        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
! N( A% J0 C+ Q9 T! k        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
8 I+ b7 n) B; l6 S        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
6 l6 K# D, w# _        point2 = workPart.Points.CreatePoint(ep)
/ s- M5 ~! @' U6 L/ g: j  K4 K        associativeArcBuilder1.StartPoint.Value = point1
" ?% j1 o/ g) ?$ K) I3 e0 v        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
: g$ s$ o8 k  K, Y        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
' m# w. P0 j% t/ O4 f9 s) i        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
3 H, t2 x! q$ p$ Y: ~! T9 g        associativeArcBuilder1.MidPoint.Value = point3
. j" B+ L0 Q/ ^, ~* z! [$ ^        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
; V0 A: }' `$ ~0 V- ~        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()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
- L, p, L0 E! q) A7 l/ Y% S* k        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
- h, b- O: u6 Q        Dim objects1(0) As NXOpen.DisplayableObject
! O7 D4 h6 X* S4 E9 a2 T$ z        objects1(0) = theLine
& ?# y. P2 _0 U- E& n5 z        Dim object2(0) As NXOpen.DisplayableObject
5 L; l$ `  t( N* e) b& |        object2(0) = arc1
. U# Z2 d4 k9 T$ L4 h' L: B        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
* J* _0 h% Z0 S' D3 [# _        displayModification1.Dispose()


8 v: i% X) a) E; z, K( p        ' TODO: Add your application code here

% O/ P, i: i- W; {6 |3 T% x/ i: o    End Sub


    Public Function GetUnloadOption(ByVal dummy As String) As Integer
) f% y1 }( H; ^6 ^( V5 ?
3 @! I1 M7 A4 c0 |        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

; `9 F9 [$ s6 O5 I# T        '----Other unload options-------
$ D+ d) h% E" t; W( X/ G        'Unloads the image when the NX session terminates
; g9 ~4 s% H5 y! K' Z0 ]        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
5 o0 k: r9 ^- |' E        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
! ~% h6 j! z; R5 n/ K* U
    End Function

4 @& c; g% R* I# @5 H! REnd Module

& m, k3 M% Q- l; b! |

4 p+ U, t- l& [* D0 `0 k: k