设置线的颜色

45guop

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

. t) @. x- x% O; p* X4 Y
Option Strict Off
1 b# P2 O" _6 m: T) r& ]2 QImports System
Imports NXOpen
  F& C. X; }9 `3 X; h; y% s3 e7 j3 ?- zImports NXOpen.UF
) P; _5 n0 m6 Y. x5 kImports NXOpen.UI
) d: a/ |  x  B) e6 x" H
0 K" u% z- l% e$ ^3 ]: U9 hModule Module1
0 N9 Z% p; d- ]$ m, r$ Y* }* p% W
- k. G5 V8 x" `: x    Dim s As Session = Session.GetSession()
) Z0 l; o, L& l5 @. P% Y  V    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
8 e  T4 W/ a, w1 J5 P4 J
    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
$ X. ^5 r2 K/ @+ r9 @+ |5 D    Sub Main()

$ N0 O* {1 n) I       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
5 v. q5 n9 S" ]0 X1 @* H        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
1 i+ X+ D& U8 W9 n        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
; X  y# q/ r7 b% Q- X        Dim point1 As NXOpen.Point
& R: W% Q  l3 Q        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
  m+ S  r: y- k. U" d        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
8 E6 M! ^/ B  @& M# N5 e* U        associativeArcBuilder1.EndPoint.Value = point2
' @5 w' N: g9 Z! K7 v        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
; F& d7 w' }2 N$ i        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
1 K. r8 k9 `9 {3 n& d        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
* K+ h, L5 `7 ^        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
3 v- q) U" m4 E1 M' [; |, R! Y0 j        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
- z) U$ ^  V/ v- f' R9 ]6 S        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
% R5 N( c# L; {0 A" r+ Q) y0 b        displayModification1 = s.DisplayManager.NewDisplayModification()
# f2 h3 C1 D1 E        displayModification1 = s.DisplayManager.NewDisplayModification() '
4 U/ L' T! L5 D1 s0 |- u: L        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
6 E5 Q# i  F% S2 [        objects1(0) = theLine
& t* N% W* y3 i# ~1 Z        Dim object2(0) As NXOpen.DisplayableObject
- ~/ R  E1 {0 s0 T$ N1 j        object2(0) = arc1
        displayModification1.Apply(objects1)
  h! x% j1 M/ N* P        displayModification1.Apply(object2)
9 W0 \& n* h3 |4 m        displayModification1.Dispose()
1 c* c5 W) ]: m
2 E2 T- P" D4 q9 m
! J& O, @4 F! G8 @        ' TODO: Add your application code here
/ M+ d! b0 V' W' w' H
    End Sub
+ o/ J2 o6 V% R8 i) u

% z7 g9 D; g' \- }; ^6 B& V    Public Function GetUnloadOption(ByVal dummy As String) As Integer

- `' r! b0 Y( s/ h* I- d        'Unloads the image immediately after execution within NX
- p1 D+ H. n3 [. _        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
+ {5 x1 u. U( {
        '----Other unload options-------
        'Unloads the image when the NX session terminates
  T1 P9 A' b2 l; p2 l" W( n        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function

$ X, X8 _3 t6 a% p0 D7 _5 jEnd Module
! I7 O, H% C, \7 ], @4 J- d
/ k9 x5 E9 ^% B* Z- l8 x( C

9 l4 G/ X& \+ e, ^2 @