设置线的颜色

45guop

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


Option Strict Off
1 Q; F/ Q7 z4 C& r; u, d* p( s' BImports System
Imports NXOpen
) v7 V6 @2 \% r& h3 QImports NXOpen.UF
Imports NXOpen.UI

Module Module1

% ~6 S0 q4 ]3 D  e) V4 Q    Dim s As Session = Session.GetSession()
- u/ U; ]; {/ U9 t: x    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

( B& E( w1 O' D, l2 {    Dim displayPart As NXOpen.Part = theSession.Parts.Display

8 P* \! B8 i* \( o    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()

/ ^0 w' F' h2 f  q* D3 Z       Dim sp As New Point3d(0, 0, 0)
5 _7 d+ E5 s, {6 k' Q4 H        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
- ]6 _0 j+ ?; R' B: f% _# M/ Q( P        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
* P. e9 X8 B/ d/ D; X        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
  K" J* R/ @! Z# Z  G9 F) i0 {4 A        Dim point1 As NXOpen.Point
5 k7 H4 X% s& u! Q! u' h        point1 = workPart.Points.CreatePoint(sp)
) R# F4 d7 Z4 V; S4 n( w% I1 \6 j1 b! w        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
- e& O* C2 p7 p$ t: S$ T5 e        associativeArcBuilder1.StartPoint.Value = point1
( }& v/ |) O( g9 j        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
/ |4 }1 }7 n' D; t" F        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
4 ^$ L3 q2 o! Z- V. q; O9 r4 J        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
* m' k( a9 O- E# @: q        Dim nXObject1 As NXOpen.NXObject
4 E- q2 P  @' c4 u8 r        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
' L/ W5 P) c2 C0 G        associativeArc2.SetName("123")
. y9 s- |9 U5 ^8 K% V2 t        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
, W- c9 S  r$ `) D/ b        displayModification1 = s.DisplayManager.NewDisplayModification()
% T. ?) T( b: M        displayModification1 = s.DisplayManager.NewDisplayModification() '
( K$ L5 U4 e6 q5 h        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
9 A! Z* t( t- D# o        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
; |/ q: U. V( ]9 A  I. I: j        displayModification1.Apply(objects1)
' j& d; J% H0 d7 ^) j: F* ^        displayModification1.Apply(object2)
        displayModification1.Dispose()


        ' TODO: Add your application code here
/ N; ?2 H- L' y0 u8 O
- X! n3 e( r0 Y+ }7 e3 C    End Sub
3 [4 j- U! A: K# D8 ?& `6 W

. }% B) f! ^' ^  }9 H    Public Function GetUnloadOption(ByVal dummy As String) As Integer
2 O5 Q7 T4 \- Y: b% e& U
        'Unloads the image immediately after execution within NX
) t, q9 L) E! k4 L  H. k        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
        '-------------------------------

8 j8 g0 G6 k$ n    End Function

End Module
" {9 n" ^! S- w! V( Z0 \6 s
7 h1 m2 {8 M* U& ^: P
7 H# L" k; s) i& T4 h+ U0 ]