设置线的颜色

45guop

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

+ t2 a9 w; c* b/ e( z  f9 ]" I- A
0 R, p! z/ F2 U3 COption Strict Off
/ j4 `% i. c* b$ \) WImports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI

Module Module1

5 i( x' v# a( ^* @/ M    Dim s As Session = Session.GetSession()
( h; i' @2 I. ]0 ]/ W! `    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
$ O6 v. T2 e5 z5 T$ _
    Dim displayPart As NXOpen.Part = theSession.Parts.Display

" W+ l7 e2 B* M) ?7 I# A    '  Explicit Activation
5 R% w* V$ l! Q2 x5 v+ F    '      This entry point is used to activate the application explicitly
0 _& L# w$ ]( A5 v7 `4 o' O3 G0 t    Sub Main()

       Dim sp As New Point3d(0, 0, 0)
' E& F' {$ K6 X9 @: o        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
% B8 j' G. m' a( h4 _; Z; e7 ^        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
- C3 X6 z" {: \  k        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
# Q9 H- o" f  c8 F        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
2 r8 q9 H$ t# }) x1 t2 `$ s        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
% l, x/ g4 H) e) j        Dim point2 As NXOpen.Point
9 ]% A( c& \0 `" K4 d        point2 = workPart.Points.CreatePoint(ep)
2 c+ T$ p, V: N- R$ V& L        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
& L: U% i+ `7 R/ w) t        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
$ l7 ^: ]& C" L+ Z4 l        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
* o* _& }) Y, w; R* [4 C5 J2 D( R8 k        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
  o9 N7 U4 f9 T- C, l1 h; O        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)
6 e# l; e0 B( H$ ~! v: J. z        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
, t& e7 x, ?& O0 I/ N, I        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
, p7 y8 B$ t8 g4 E        displayModification1 = s.DisplayManager.NewDisplayModification() '
% Z9 ^5 Q8 f+ C% d' Y! q' ?! ~        displayModification1.NewColor = 7     '设置颜色
! s  ~! A* D5 @( ~9 \% z/ B- Y; b        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
0 |, m! |) C5 S        objects1(0) = theLine
# _- H- F! T# c2 m. `$ `0 K        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
4 j& C0 O2 @# W& f; {0 K; N" o        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()


5 ]/ [3 _0 }& c% J        ' TODO: Add your application code here

    End Sub
' \8 v* y+ L6 F
$ Q2 h( V7 z6 s, X, Y2 D. A+ M+ _
) f$ i) ^5 {  [9 c8 F6 k; G- \; _    Public Function GetUnloadOption(ByVal dummy As String) As Integer
. ~  G0 ?. M7 j8 h5 g$ M% i1 m
1 C. V/ Y. v) T9 q6 ]- l/ P        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
7 h( S0 j8 ]2 w# m' R  Q        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
4 `! ?% A% s6 M: K9 I3 }' j        '-------------------------------
% x9 ]4 V% n1 k. R6 r1 p6 q2 R
& h1 w8 u" U' B' w    End Function
4 U' r/ v$ e1 r9 T1 I- W4 R1 J: E
( k; e, h' i9 U; e6 s, t3 w' G6 ZEnd Module

; S# }( Y) H5 r' o, L# b
0 c3 ~6 z2 n  L. C/ ^
/ y5 [2 Z( V2 G  K8 [3 X5 d; M) D7 ~