设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
. w/ f& V) H$ {. L
" p: v# A6 R% N9 L
Option Strict Off
4 B7 X' P- h5 V: w6 OImports System
Imports NXOpen
5 A; r( e5 g, a3 _3 G5 G5 G. PImports NXOpen.UF
: i& o$ b5 C  x, J. l( YImports NXOpen.UI

4 J" K& |: J: i0 ~' }- @Module Module1

' O; E4 h9 ]1 u3 h# D' i    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
8 T0 u9 c) [: h* R6 g
    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
. i6 S+ k+ l/ h# c0 c    '      This entry point is used to activate the application explicitly
    Sub Main()

) J) B8 D( I4 Z       Dim sp As New Point3d(0, 0, 0)
! y1 u% _* ?4 x) i        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
4 n: g. c. m1 q& w* |( o! {$ N        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
8 \2 f6 [9 d! |' W9 @        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
- f4 D# X* _3 U/ ^        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
/ [8 v0 d; z) @  F# O+ O        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
+ [" @. j% w5 n: a8 Y# P' x        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)
2 L1 F# t1 N6 G  W4 w, f1 |* W. z# M' s        associativeArc2.SetName("123")
/ q1 I) x0 H6 h+ n        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
9 Y. e+ W) H: N3 [5 ~        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
* M$ A& j( c. [        displayModification1.Apply(objects1)
% Y; `8 C3 I; I; `        displayModification1.Apply(object2)
        displayModification1.Dispose()
3 I4 K$ W. z) n* ^0 a' I7 D, c# Y
! b) L" n, E  `6 p# l0 g$ U( S
        ' TODO: Add your application code here
* T7 L! O& w( m% `, [; b, F
) N  B' ^; _5 s3 Y4 G    End Sub

$ C5 m8 j) {* K6 Z; E
, r- Y+ Q5 J6 u* S    Public Function GetUnloadOption(ByVal dummy As String) As Integer

$ [+ p4 S3 w& X) L. X        'Unloads the image immediately after execution within NX
* ~* r3 k2 {& l0 s$ ?, C& |! G2 T        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
( \1 a" c0 ^# n$ M( u
        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
% F/ f7 _6 _; B! w* ~
8 L# |6 v" M/ o- O/ ?& ^    End Function
# t, e+ W, }- m) y6 f4 j/ U
# ^. R" [; n2 X' r/ e1 `, M- tEnd Module
9 j& A* b8 f8 l
5 J0 `2 Y; H+ Y2 ^
, o0 N6 u$ s4 Z