设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
0 w4 R* G6 K% v
, R* P# I' J, e2 J7 v6 L3 }
Option Strict Off
0 [$ W. V) E' [" w' uImports System
' x: A, S- j: M! W7 tImports NXOpen
- [1 l1 B/ V; z; N2 Q. ~% S2 RImports NXOpen.UF
2 b" [% U" G; t. }  ?6 xImports NXOpen.UI

Module Module1
. v- d4 A! G! U* {
1 I. F6 O& }" C- P" g% Q, q( Q. \5 P    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

* T  A' P8 e% e( L/ }    Dim displayPart As NXOpen.Part = theSession.Parts.Display
" h9 k7 H' s) ]- \% i1 x
    '  Explicit Activation
* U! `% [+ {* n3 b+ F! F$ l    '      This entry point is used to activate the application explicitly
' F& `2 B; N! T4 D$ e, I    Sub Main()

       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
. H5 ^& E0 c8 X3 h3 ~; [3 ?0 W        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)
) J& w- I  `0 X6 V3 `        Dim point2 As NXOpen.Point
6 P# i' n5 m2 ]: [" k4 W1 L5 k, v' E        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
) x; L; P0 x9 `* `& G* @( O5 F6 x        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
" C' a/ P% f* M% w1 ~8 j        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
) J, R, u9 O" {* ~. O        Dim nXObject1 As NXOpen.NXObject
. l+ R$ P" U$ O" C* ]        nXObject1 = associativeArcBuilder1.Commit()
        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)
; c3 q0 {) P  ]0 T! a5 T1 B& F; Q        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
1 s& I: ]' N  p5 U0 u        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
* O6 ~% g9 C2 h- K  w) }        displayModification1.NewLayer = 10    '设置图层
' E" `+ l' V0 K+ l        Dim objects1(0) As NXOpen.DisplayableObject
8 P7 }! u) C* |% }+ c        objects1(0) = theLine
, F# f% I, c* l+ N        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
" Y) s/ [8 Y$ \$ V! M        displayModification1.Dispose()
) O8 g6 u9 @$ W1 o9 K5 c4 S
0 R, U3 f4 t0 N6 ~( j0 |
        ' TODO: Add your application code here

( f5 r: r' B4 \" }7 o. _! L/ U    End Sub
3 e& }8 ~: O3 y1 E* g% ?

7 n2 Y7 T5 [7 E6 t    Public Function GetUnloadOption(ByVal dummy As String) As Integer
( t- u- U. O. j7 |* U8 |
# I- ?' Z0 g" q% H/ B0 i% X        'Unloads the image immediately after execution within NX
% A9 I" b! J; _5 T& L, j8 k        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
4 q8 L* ?* P) r+ k# B3 r
        '----Other unload options-------
6 \3 [" N8 n1 w; N) q        'Unloads the image when the NX session terminates
& ~: q3 c- J7 Q( h! n        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
% z9 E5 d% l' X, \        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function

End Module


3 s* L1 ~# P' |& F* C. Z