设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
% i" H* p; g; |$ Q. e* G! F
8 J% r# _" v! K" g2 J- }
Option Strict Off
  p. e; w- \# a" A$ Q5 |$ pImports System
Imports NXOpen
Imports NXOpen.UF
+ P1 e9 D7 ]2 B' x1 _/ H: BImports NXOpen.UI
) a) A3 [* V/ y. V% v; J
Module Module1
3 N0 P- |. D3 o# \, X& I( C+ K! j( ?5 e
    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
- W2 \/ f3 H5 R$ i4 M# p8 S
    Dim displayPart As NXOpen.Part = theSession.Parts.Display
) p. s3 g. n$ v4 ?# O" @6 B
, l* O1 J4 V4 N    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()
" O+ c# `+ p' ~( f7 x- k
. s5 A5 x! v/ n' x% c0 _       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
8 ]- k( e, Z* @. M        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
% U# C( k* ]2 Q/ ]  q        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
$ A: E" R% M0 r9 H9 y: T8 s        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
2 i. ]- r2 [: o! _+ Z        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
7 J: U& r, A! C7 ]        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
2 V3 c# o; O3 Z, N7 \" K        associativeArcBuilder1.MidPoint.Value = point3
3 }: E( l1 F2 d" Z8 h# W6 }        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
# T) T4 v, Z% B6 a  V: M        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
+ c7 W  r8 ^7 P8 u  t$ I        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() '
$ A0 Q! ]2 Q" N& M/ B9 w        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
: R+ R. x- a  G& ^( C        Dim objects1(0) As NXOpen.DisplayableObject
$ S1 d9 k" X8 E1 u! l: W/ |        objects1(0) = theLine
/ T% G; ], H- \- G8 j        Dim object2(0) As NXOpen.DisplayableObject
3 V6 r: q* d* V1 C) }$ x6 M        object2(0) = arc1
  b' x; H5 M8 w& y# B        displayModification1.Apply(objects1)
$ [* l3 j; S- ~0 T  L        displayModification1.Apply(object2)
: E5 K! I: N5 L2 G# w) Q2 c5 _        displayModification1.Dispose()
+ x. v, B3 G: N! J. |7 V! Q

        ' TODO: Add your application code here

6 n/ _3 x) u; I7 b8 i6 w7 l( c    End Sub
, C, z, u6 L/ T: i
/ |1 h- A& j# ]) D
    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
' P! z! d6 H+ N2 H
        '----Other unload options-------
+ H: n: ?/ U  O; X+ L4 d8 k        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
& O) ~6 R4 f! Y+ w* X2 L        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function
5 D9 E7 G: Q/ o. F
End Module

' C* O+ _6 ^* Y6 m/ Q1 x/ x0 s  P
0 L$ y1 N' {' `$ z