设置线的颜色

45guop

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


Option Strict Off
Imports System
3 F1 B$ h$ L. z* V8 F- q  SImports NXOpen
+ R& C. O- ]' m7 D( A+ XImports NXOpen.UF
Imports NXOpen.UI

6 v6 K; o8 B. J7 f. f' m2 OModule Module1
  F# W; P5 D/ F& F- Z2 L' l) y
    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
( l( a- X) q, I3 t1 z3 Y' `
; v3 ]7 s3 Y4 A  K5 u" N    Dim displayPart As NXOpen.Part = theSession.Parts.Display
  h" j9 u3 ?' \# Q9 P
    '  Explicit Activation
& ~& X/ m) @9 Z" h+ `    '      This entry point is used to activate the application explicitly
    Sub Main()
! ?9 g* |6 o( ?: l/ a9 k
0 ?1 A: f7 m0 F       Dim sp As New Point3d(0, 0, 0)
( y. A" N  O' C2 E% H8 j4 f$ R, h        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
& c) H( b# L! n+ M: y        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
8 ]$ y1 A, J9 d6 o" E. a6 G6 Y* x        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
' C* ?. D6 a% l$ `# m8 s1 ?        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
1 m; Q4 o8 @) `0 c1 z9 J& C        point1 = workPart.Points.CreatePoint(sp)
- R7 d, k- k) }  x9 n3 O% V; l        Dim point2 As NXOpen.Point
7 W# w+ S6 N) e( k1 v. p/ i+ L1 s% T        point2 = workPart.Points.CreatePoint(ep)
" E) {2 _4 e% T: N6 q1 y        associativeArcBuilder1.StartPoint.Value = point1
9 M, t1 g1 \9 ?( T( s9 {- n        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
1 Y0 a8 K2 _% h: x" m3 Z8 V        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
* `; M, X/ W. ^; U/ J        Dim point3 As NXOpen.Point
3 j  d: T! _5 D$ L        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
+ `9 t- q: S2 \" R1 X" c        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
# e( C8 s& \- ?: q- H        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
; b: N, ^' q6 f$ f0 [- w4 {        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
$ [5 U, n) l8 _# j& y) C        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
4 K) ?( I% U7 M# ?4 }# [        Dim object2(0) As NXOpen.DisplayableObject
6 ~/ E+ x# ~' p        object2(0) = arc1
) [$ H! N$ ?8 R# T        displayModification1.Apply(objects1)
! ]7 J' A* O/ ]0 E0 q        displayModification1.Apply(object2)
2 [% [- I+ ?" O2 T9 V9 {        displayModification1.Dispose()
2 P& R) g( w* x9 y3 h5 P1 C
5 p  g& f* Y) C" W9 D! }
        ' TODO: Add your application code here

    End Sub
3 K& {* ^- B8 i3 U* O

* r6 A, l# v9 E" r' H1 B2 T    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
; O! i1 y) j* D) Q1 b' @        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----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
        '-------------------------------

1 a( \/ t& @  n8 I3 P0 i    End Function
7 @. f! c2 V; N, R5 |7 k8 ?
End Module
* E: ~. x1 b6 M/ y/ D' i5 w
. J/ ^4 P6 v+ O7 G& d6 j
' L9 M) d) C$ |$ b4 p