设置线的颜色

45guop

怎么才能设置线的颜色呢代码：
! l& ]) B+ l3 c% o9 g; K0 A$ a
/ b4 i+ s% d* u6 `9 ?. Y/ C
Option Strict Off
, b3 v8 D0 D' A; n2 t4 N3 ^Imports System
Imports NXOpen
1 I# R6 c5 S7 |) T, H/ G1 SImports NXOpen.UF
Imports NXOpen.UI
. v1 y+ v. V6 @( V. y: p3 }* P
* n% A6 f6 j7 `( m$ q! _  bModule Module1

. i* i6 M0 a/ X6 {' k5 C! [+ e    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
% Y( e4 K6 |: l" |! L4 ], R
    '  Explicit Activation
1 B' j) Y& x5 S9 O4 _    '      This entry point is used to activate the application explicitly
    Sub Main()
4 `- G9 ?+ M, S1 S& C( }- L
! p/ J- x; d* _       Dim sp As New Point3d(0, 0, 0)
        Dim ep As New Point3d(50, 50, 0)
        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
* S; B7 q' v; X/ R2 c- k( B        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
: q) ]. x6 x3 Y3 @. Z        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
: x: s- v5 }- ^; [+ Z% A  k4 T        associativeArcBuilder1.StartPoint.Value = point1
& x2 C+ X/ s5 z7 P. K! G        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
9 ~7 V  R0 z: A! ?, e% D        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
: f0 }# [# k! t/ @: A        Dim point3 As NXOpen.Point
        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
) Q6 Z$ Z7 Z5 p  w% K        nXObject1 = associativeArcBuilder1.Commit()
        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
* D2 ]4 b) j7 f3 C& y( B/ c        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
2 q! X# I0 Y, p- q& p        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
4 X% W6 f  b1 S: {        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
5 @2 W! P. X. B- p5 s  Q        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
# {0 l. m! D' O$ b        object2(0) = arc1
) R; e1 l( |" L) K" A3 l6 g        displayModification1.Apply(objects1)
  [. V' B. N; ~        displayModification1.Apply(object2)
) Y, i7 R& K7 M7 |        displayModification1.Dispose()
* f' `6 S) N& O) A) e) L, x7 i/ B

        ' TODO: Add your application code here

+ z3 a9 _* D8 k2 I    End Sub
2 A+ d* y4 \4 w$ S
- B  h2 L0 N) b/ |& Z' H
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
3 M; z' h/ I0 H% m* y
        'Unloads the image immediately after execution within NX
, W: E6 d, |; [  B! d% B        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
& R2 n7 ?4 K' p5 N' ?1 c
        '----Other unload options-------
" S3 N  ~: u0 f) ^' B. l        'Unloads the image when the NX session terminates
% S. c2 Y. P/ S, R        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

/ E- x- S* b, r$ M) w% A! T$ O, u        'Unloads the image explicitly, via an unload dialog
9 d: F% @* ?+ a3 ?3 O        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
% N' O- \, B; B/ ]# Z3 f6 U
+ f) L$ A/ [, F$ N8 ^    End Function
0 S0 X) S7 O# r, h
End Module

6 N4 x( e4 ^' Z1 T; }! ]# a$ B
7 T0 Q1 g5 a/ e% `; \8 H" @
6 P* _- j0 H$ ?7 P' G* m/ e- }