设置线的颜色

45guop

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

: a3 r' h; ~7 P6 ]/ L# H
5 p  D$ Y$ I  o0 q" v8 mOption Strict Off
Imports System
& c, i$ J. n$ JImports NXOpen
3 ?8 }2 u7 C& ^: b3 `/ O- OImports NXOpen.UF
Imports NXOpen.UI
4 O$ Y2 u( U; s/ Q: `. k& g
Module Module1
% ?9 R2 D- x# P
8 \: T# z8 L+ u    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

1 `: p% i6 U, n0 `. I, }. s    Dim displayPart As NXOpen.Part = theSession.Parts.Display
$ |( p( x1 n9 `. k% u+ Z! S- O( @
    '  Explicit Activation
0 a, p+ C4 ]! |; b# d! o# L( P    '      This entry point is used to activate the application explicitly
6 P$ Q5 t5 Y& _, x9 G; f    Sub Main()
6 @; F. i, s2 G+ u
       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
! L9 n+ X: q- n, ]0 ^- I3 D        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
% \8 T  Z- V" e        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
7 {* U7 q/ h, X% }6 P. [1 X        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
' g4 F; }8 p; T' I" U        point1 = workPart.Points.CreatePoint(sp)
+ G" b! J  t( ^9 z        Dim point2 As NXOpen.Point
' ^' M* T$ ?2 X8 O- T+ ?        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
3 `" ]' o. M0 g+ d- e# h5 J        associativeArcBuilder1.EndPoint.Value = point2
! `  `0 p0 I1 R: l8 _, q        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
- T6 B8 ^& v# ?- f% d! M        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
' Q5 ^( u, Y# z4 j        associativeArcBuilder1.MidPoint.Value = point3
1 ~2 A% m0 C% F        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
3 V) I/ o( [1 i3 T# c7 b/ I( y4 V        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
7 C( R/ n; _. g% ~+ f        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)
2 B* X) i7 t/ Q( d8 B- d' `$ U        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
0 P8 d1 M! r0 D2 U0 n6 M        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
: z0 {9 \# ~* f1 t" K" t/ c- |        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
" J- r4 [/ Y# w' H. i* j9 C7 A. P        Dim objects1(0) As NXOpen.DisplayableObject
% t, N) N' O  h: k        objects1(0) = theLine
7 B$ y( c* j# F' E* ~* |        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
3 |! B! c3 |' n; G        displayModification1.Apply(objects1)
" G" T4 G1 m, n1 f( I        displayModification1.Apply(object2)
' g" [9 M  J+ H; M9 U' p        displayModification1.Dispose()


        ' TODO: Add your application code here

6 a3 S" f) V: }6 E, I; D2 {1 V    End Sub


    Public Function GetUnloadOption(ByVal dummy As String) As Integer
4 h2 a' T; v9 n+ z
0 B4 ^8 Z1 F/ x' N' e3 R+ E, m        'Unloads the image immediately after execution within NX
: X( f( }/ I" A+ |- V( v        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
) r) X& m% P- {$ e        'Unloads the image when the NX session terminates
5 B4 N4 Z3 E' [/ u- X        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
3 B: s8 T2 K: {/ [1 B/ F
. A/ L0 W6 o; h$ O3 M        'Unloads the image explicitly, via an unload dialog
8 s$ y( @5 M% {* k" Z2 L' Z        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
$ ]5 y3 ]$ M5 T        '-------------------------------
5 M/ R. |% S+ @1 b# h$ m8 G- h
    End Function

End Module

' v& R0 }. \6 n. ]# Q" k

6 p8 s" G2 ^8 F( ^& ]! P