设置线的颜色

45guop

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


Option Strict Off
! k. ]" x: D3 a/ y% ^Imports System
7 R- A/ n) P' {4 ]Imports NXOpen
) f7 y. f8 _7 R2 ~) MImports NXOpen.UF
Imports NXOpen.UI

Module Module1

4 f, m2 E: }  l- S6 y    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

* {9 u; f2 i* ~/ H    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
/ x* h' y- c3 p1 ?( P! w    '      This entry point is used to activate the application explicitly
. [" U; t! h2 w/ a9 B+ @    Sub Main()
) a- l/ w  b# z6 f
' Z& r( [! m/ b. s8 Q       Dim sp As New Point3d(0, 0, 0)
& U) H$ f! E+ i( |        Dim ep As New Point3d(50, 50, 0)
        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)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
- h. g  ^3 A$ i" }        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
. V& h' G. g" K3 W" u        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
* {8 M9 t1 F. E3 _' z; E        associativeArcBuilder1.MidPoint.Value = point3
/ q1 g' [4 i$ ?! v% T        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
7 G3 M( s2 F/ Z* e        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
" O0 u7 o3 P! Z( S. P% I) O        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
6 F) _1 ^3 j' F7 E: X; g) m        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
& O$ V; H; Z/ @4 o2 x4 B! \        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
4 J' u$ A+ p( X        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
3 V. V2 y3 p% k! |+ b& o5 J9 {$ }# y        displayModification1.NewColor = 7     '设置颜色
5 K& U/ t2 N+ {1 {! r        displayModification1.NewLayer = 10    '设置图层
5 A, T" N6 N: o! V. i7 s        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
' N* }. }* t4 A+ o! n  Z        Dim object2(0) As NXOpen.DisplayableObject
! f9 a$ G5 ]) L2 t        object2(0) = arc1
  h& m, ?4 ]; F# e        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
9 K5 X& y, J2 h' g) Z- W        displayModification1.Dispose()

" M3 f# E( ~& N3 r& w0 b
% N& L, H/ v5 ]) k1 \        ' TODO: Add your application code here
/ ?4 G+ u/ ?& ?7 l7 i
    End Sub


; u6 x. r$ ?0 c$ f+ T- r! E# w3 o    Public Function GetUnloadOption(ByVal dummy As String) As Integer
) d% N- v7 g3 ^
4 J# W5 f- G% m9 r# a, \. L        'Unloads the image immediately after execution within NX
2 w8 ^4 R. d$ U; k7 D5 J; s" ^        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
1 y3 R, o$ s! @2 j- Q        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
6 ]5 I) K$ h6 c4 V, @, |
    End Function

End Module
$ X# j6 A9 \/ M# h6 ^; O
1 H* b* s! W, i( {; I1 R7 j  k9 V

1 Y  y1 o+ ~6 Z, V0 I# c