设置线的颜色

45guop

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


- p; ^/ P2 k8 UOption Strict Off
Imports System
. u! d" M8 b4 g' L: `" m6 B& TImports NXOpen
" l( B' T. w( V5 ~) C) jImports NXOpen.UF
Imports NXOpen.UI

; g: l6 }5 @0 a1 mModule Module1
8 }8 M+ s+ ]7 q) @
7 p% o/ k3 \8 j- p    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
$ R8 @; r& ~# b# `  i" g: A/ }! g0 s    Dim workPart As NXOpen.Part = theSession.Parts.Work
: F; m8 T- `, Z
) u# c* c  }; b) s/ m9 c    Dim displayPart As NXOpen.Part = theSession.Parts.Display

7 i" o  E9 T5 {3 [, ]) c  U7 @    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()

% J  _4 m# x8 B9 o) J       Dim sp As New Point3d(0, 0, 0)
* [) l( o; ~/ t( V- y        Dim ep As New Point3d(50, 50, 0)
        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
3 V& @2 b, E. l' \9 U9 N2 L        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
, f4 y( w' N. y* y/ R# W! S        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
' f* w' [/ B; k! s        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
; D* K6 x+ L8 Y+ s2 m9 z% Z        Dim point1 As NXOpen.Point
8 g; M8 R$ m! S! B5 w        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
6 w* R# t) B5 g- ]! [8 O# F        point2 = workPart.Points.CreatePoint(ep)
* p. B  P0 n+ }( f8 T5 N' h: y6 s        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
, e9 p2 _; |; @0 \" p; i: D        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
1 T! ?  k4 K. B% v0 i/ U        associativeArcBuilder1.MidPoint.Value = point3
/ j" i) b' s) P( }        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")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
8 q" H& M+ x5 D# ~( f        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
* u7 D) q0 ~6 r        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
% O2 u! l* |( L* ]/ \. I6 [        objects1(0) = theLine
0 }" P% r) d2 S; d' g" D        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
0 B; s1 G5 F% _- J4 ]        displayModification1.Apply(object2)
        displayModification1.Dispose()


' y% d" ?7 t& r/ e# M. b- X& g        ' TODO: Add your application code here

    End Sub

$ N% M  T) b& H1 s4 t! M) f
    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

' D4 J$ v$ _2 I" s( P# K6 h/ L        '----Other unload options-------
        'Unloads the image when the NX session terminates
2 r  d0 t8 B$ R/ L, j# d7 V5 m        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
' p) c$ X8 @( M: {0 n# {
. u$ L0 ^/ Y/ D, m  V# v        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------
# v6 V9 N" ~# [' j
    End Function
# m& z* X8 n. i3 t, S+ a, j
# x( X4 |8 R& P; h9 Y4 cEnd Module