设置线的颜色

45guop

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


Option Strict Off
* q0 [, y; T1 |  ~Imports System
9 \. ~1 p% Q% pImports NXOpen
Imports NXOpen.UF
0 U: `6 ?% ~% q' a& }4 N  pImports NXOpen.UI

Module Module1

    Dim s As Session = Session.GetSession()
% D+ n/ s, Z9 t! h5 p) d    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
2 \3 P8 D" G6 C0 u
0 ^: R. i* m  O* Z3 }* y% |    Dim displayPart As NXOpen.Part = theSession.Parts.Display
* ~. A2 P% |4 L/ e9 l# a5 f8 B
    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
* h2 b$ ?1 A. o5 t    Sub Main()
$ w, o$ ]& y* Y* t4 q4 y: D+ u! a" F
" o: O; L7 U% K5 M9 H0 ]+ g9 J       Dim sp As New Point3d(0, 0, 0)
# m+ g9 j4 ?, k: _        Dim ep As New Point3d(50, 50, 0)
% l8 @- S8 I* v& @, V# v        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
6 y5 Q; _) y. q# l/ B        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
0 w" H8 T% l- {; i        point1 = workPart.Points.CreatePoint(sp)
. m; J4 K3 l. _        Dim point2 As NXOpen.Point
$ q6 z  z5 Q2 S) V        point2 = workPart.Points.CreatePoint(ep)
$ S( y9 z8 `" y* }. A        associativeArcBuilder1.StartPoint.Value = point1
4 K) x9 y' m* f, F        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
! U; d: r- b8 Z9 P; M, D6 N6 h& e        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
" W" q0 r# ^( U8 N! L, C& k        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
# s$ i  G& e3 ]* n: D, Y        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
2 g6 n; i! a! _' v+ r- Z        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
1 ]8 d# a1 W! |5 x4 w6 w- n. w        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
% f& t' {5 q2 L, z" a        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
& U4 n- @1 l3 o. N: a3 f: f7 x        Dim object2(0) As NXOpen.DisplayableObject
# }' C) ?/ W1 n/ m# e0 j- W8 t+ D& _        object2(0) = arc1
% D% K$ a( I0 _& S- Q        displayModification1.Apply(objects1)
  A2 L/ B5 z6 E& u1 O5 ?        displayModification1.Apply(object2)
. u6 `3 S. d. E- K0 K        displayModification1.Dispose()


        ' TODO: Add your application code here

( i0 {) r7 C0 X: o& L    End Sub
5 q, z, Y% a& Z" K0 |  W
# W% B9 e# v* _3 E9 M( e$ b- {
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
1 b* \7 L+ o4 G( i. @. u6 @2 \5 t
        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
* f7 _4 f. s! B2 |$ B$ L        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
* m% i/ a! b7 Y( U' |' [0 O& A. F
1 f" ?2 U) m1 i        'Unloads the image explicitly, via an unload dialog
# C. Q4 s) x8 {0 V) P! Z8 v0 s/ w. u# k        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
/ N8 ]0 y, E/ e+ N8 ^        '-------------------------------

    End Function
# w# A! _) u1 o
End Module