设置线的颜色

45guop

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


4 m1 o" {7 b8 _% a! POption Strict Off
Imports System
! l& b# H9 R" g% \5 A; T8 r2 C! tImports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
+ F& m8 o, q1 d; t% H! @4 l! F
Module Module1
1 C  H, W' O* H3 t+ e; S2 [; u
5 [( U  x; k1 s1 [    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
6 v6 u) c1 @7 D( m  K1 L
# v( m$ x2 H) t% g: p    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
& N- ?0 X7 S* Q4 ?  Z# _7 n    Sub Main()
( [, Y8 m1 \2 j( s- a' q- c, x8 m
       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
        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
) X' a% A: K7 o$ Q3 d& ]$ ~/ A        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
- \0 q4 A0 ^, a" P! O& {        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
. ~/ d: f$ ~: t. h6 t) W% t5 S5 Z        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
# J: Y) [6 Z, @9 r% f, S+ ?0 Y5 `        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
( M  v# Z) D8 x- [) O3 Z        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
3 j2 o0 p! p& d% A% @6 w        Dim point3 As NXOpen.Point
8 X: P  Q; r' h        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
( E$ k( K0 g4 l) `+ ^2 ^1 s        associativeArcBuilder1.MidPoint.Value = point3
/ K/ H' ^. d/ A5 o, n# {        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)
8 Q4 B' R) _+ Q0 w, w* i3 l0 b3 p        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
7 @. t7 \5 o+ t  R7 Z  F  Q. c  x        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
/ H2 L9 H  X+ Q0 w9 e        displayModification1 = s.DisplayManager.NewDisplayModification() '
& s  r( h+ E% X5 G+ ?9 C1 J$ E& E: Y* |        displayModification1.NewColor = 7     '设置颜色
  k& }9 H# I8 i* T# M# y  ~        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
! X3 k" {; E) x        objects1(0) = theLine
" |, d1 e. n% o: @7 M3 z' S        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
1 x) v" W* ~' t" ?# Z# {) m        displayModification1.Apply(object2)
; s, O# f7 e; e  m2 i7 |        displayModification1.Dispose()
5 P4 u7 K0 ]: p; q! y( p" v

        ' TODO: Add your application code here
; D1 f' @8 i. j
- Q5 l  a+ i8 ^5 |    End Sub
/ Y( C2 v; D( I! ?
9 p1 ~# p+ \) G' [4 W
2 |* s+ q8 `( [' G    Public Function GetUnloadOption(ByVal dummy As String) As Integer
" y% d$ n# c5 H' \; H" Q7 ~/ j
        'Unloads the image immediately after execution within NX
9 H7 w+ q" f, e* U. [        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

/ ~5 i# z6 W1 B& z. ]  w        '----Other unload options-------
0 N: I( q6 K' L) ~        'Unloads the image when the NX session terminates
0 Q8 Z7 C% d0 q: Q( q$ c0 Y' I        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

4 |' d" k5 Z! p6 K' o        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

# T' @' Z0 r* ^; R$ R; o* T    End Function
$ b, a3 v$ a. _
6 e: s4 o5 V7 |3 {  @. Q+ @End Module


" V4 ?0 ?! e# R8 U0 N% M