设置线的颜色

45guop

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


& }! s( h# p7 M3 o8 b* R  ]$ v" t; {Option Strict Off
Imports System
+ L# h# B, W7 }& H8 yImports NXOpen
Imports NXOpen.UF
" U' E. F* T7 T$ BImports NXOpen.UI
1 i, z+ ^" N% X1 c1 z
0 f% @- U8 @/ g1 A: |Module Module1

    Dim s As Session = Session.GetSession()
6 v, Z/ p9 Z0 o. R" a/ |    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display

    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()
$ @" V7 [% t4 N
( d5 P5 A4 O5 D: G/ B2 t" k       Dim sp As New Point3d(0, 0, 0)
0 F  x. F) z' v" b, y, t. R. x2 b        Dim ep As New Point3d(50, 50, 0)
. f6 s( _3 P  X1 g0 \6 o  @        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
7 B1 b6 H% J8 c0 q        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
+ W/ \3 Z; D; P        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
% M1 H- m- `# N2 y* S4 h% k7 T        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
' r3 z2 K, b% |$ y        Dim point2 As NXOpen.Point
- I6 i9 m9 |) N' W        point2 = workPart.Points.CreatePoint(ep)
+ n2 g# R6 w  ^* G+ U% W$ A        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
. g0 s$ U$ K3 @1 o        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
4 R4 Z8 t% Q' l0 n$ D; R1 Z        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
; X. `6 A( h3 r) }3 Y1 O        associativeArcBuilder1.MidPoint.Value = point3
7 [& D' @" }& A& }* |) {7 I        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")
& d4 K2 F1 \0 F0 K3 Z) ]        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()
. \2 p4 x! S3 t& F" L) G1 V        displayModification1 = s.DisplayManager.NewDisplayModification() '
1 {# P0 _) ~, l! k2 d9 `0 J        displayModification1.NewColor = 7     '设置颜色
( u- O1 j* o6 b  l        displayModification1.NewLayer = 10    '设置图层
6 O" \# ^% A  r3 U& E        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
3 Q! O. ]! ~& |9 h8 m2 I4 V7 f        Dim object2(0) As NXOpen.DisplayableObject
. h: v+ ~% v! O9 |' h3 j: k; d0 ~        object2(0) = arc1
        displayModification1.Apply(objects1)
7 T9 P( _% h, a/ ?        displayModification1.Apply(object2)
; [/ m) I8 t; {& }( y        displayModification1.Dispose()
9 I8 q% |' R* ~. C( s$ ^6 I

        ' TODO: Add your application code here
% Z. s$ f+ a+ f) |/ S1 g9 ?$ n
    End Sub

9 V3 D' X2 s* Y
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
  D* w% o, Y5 u" h1 n0 q* U6 ~
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
0 Y/ C, X% ~. X9 ?& a+ n7 D7 t
        '----Other unload options-------
. l4 q5 w  O- Z) Q6 ?7 o& Y        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
" f% ^0 o& y* ~7 V! D& s
        'Unloads the image explicitly, via an unload dialog
8 `& ^+ r* f5 E! h8 u        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

+ n% E% {* l' ?    End Function
- ]8 @! L" E4 I. r, T
End Module
* H& f% @2 k7 t6 j
9 C( z5 u: W' N- u9 `5 @

$ A! @3 Y0 O' \$ u2 `; J4 k