设置线的颜色

45guop

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

1 G* ]  t5 L; j( V6 ^$ q7 K
3 H& X. u5 [0 T* ?5 N* R; l, _3 wOption Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI

Module Module1
9 F! R; x. `# ^! W# B
7 d0 w& h- Y8 R$ }  J% \% O$ `* Y    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
) R' h9 v8 V3 q8 r9 g+ f
# j. q& q" Z' F: c# d7 n    Dim displayPart As NXOpen.Part = theSession.Parts.Display
2 F0 ~. I! R7 M8 d% r( p# ?
    '  Explicit Activation
0 q1 Z: T0 o0 r' `) E- j% N    '      This entry point is used to activate the application explicitly
    Sub Main()

       Dim sp As New Point3d(0, 0, 0)
2 j! H* ?+ f. h( H1 H, ?        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
& a6 @6 ?; A( V9 a1 p; n3 c7 @( {+ U        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
4 J" V8 i9 _! }5 d3 W        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
# _6 a" J: v1 V        Dim point1 As NXOpen.Point
$ |. R% J4 _% `( J$ r, d/ B, T        point1 = workPart.Points.CreatePoint(sp)
& G! ^+ t5 j$ S* S/ ~        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
* i  w  A) S$ V! o1 W* L        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
7 |) k$ X6 v& D: c' u! i        associativeArcBuilder1.MidPoint.Value = point3
        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)
        associativeArc2.SetName("123")
" _( }5 T/ [( s# O( H- c7 O        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
) V/ [* V$ ^, ?! o        Dim displayModification1 As NXOpen.DisplayModification
" Y  P" }4 |5 a        displayModification1 = s.DisplayManager.NewDisplayModification()
0 y, y6 Q1 @6 M/ b4 l4 p2 p( ^8 h        displayModification1 = s.DisplayManager.NewDisplayModification() '
  T% b* t' E9 [/ Y2 b8 e3 L% x3 @7 Q        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
* E8 |, `+ F6 B3 Z        Dim objects1(0) As NXOpen.DisplayableObject
' a5 v, Y( ]" C# j" r2 A. `( ]        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
" L9 l/ O; P0 `- d7 ?, a        object2(0) = arc1
: I- S/ r. _  D# b7 l        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()
/ d. N: h2 {9 w2 }

2 ?) A. K& ~# T        ' TODO: Add your application code here
7 R7 q& n" u" q, Q
    End Sub
% N3 Y% M( ~1 z) r5 D
) ^$ b  v+ ?! M+ L$ i) k
$ V; O+ M7 ^5 Z* x6 O$ ?    Public Function GetUnloadOption(ByVal dummy As String) As Integer
) D% v+ H8 Y+ T; j
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

- v% O; x# {6 O# u; `        '----Other unload options-------
        '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
7 d% `# U% u0 z1 _! U  R8 ^        '-------------------------------
7 h: j1 W! |9 ~3 i
# h+ K7 T( u- M7 O% @0 E/ [    End Function

0 v/ \3 z& E$ BEnd Module
: N$ }- w: u: u1 T2 N( V
& f6 ^9 Z- w# z& }) U. ~
+ g- w, v) B+ b" B9 l! A