设置线的颜色

45guop

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


# P* ~! P. L! A' G2 N/ iOption Strict Off
$ S% d+ i& M& k6 }Imports System
Imports NXOpen
' ]# w2 s  c" v- o* e: ?" |# bImports NXOpen.UF
0 M' O7 @- M, kImports NXOpen.UI
4 _2 X; r( v4 j) x
Module Module1
/ {' P0 O+ A( P3 [) o+ m# i
  H5 o+ ^6 H9 f5 O  D5 |4 _; J6 l$ T    Dim s As Session = Session.GetSession()
. H( v/ c2 Y( ~. y; d5 ~    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

    Dim displayPart As NXOpen.Part = theSession.Parts.Display
/ ~' m9 K1 j' o  |/ L
    '  Explicit Activation
    '      This entry point is used to activate the application explicitly
    Sub Main()
% O, d1 |0 y( C0 o3 j1 R
       Dim sp As New Point3d(0, 0, 0)
5 r; T. E! Q5 f, D: r        Dim ep As New Point3d(50, 50, 0)
7 O2 g/ L! y5 B+ D        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
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
( n3 s$ r% @+ X4 F) k) `; @& r        Dim point1 As NXOpen.Point
) \& R( a- E; }+ h* e3 Y+ k        point1 = workPart.Points.CreatePoint(sp)
0 |* K+ \; ?9 S" w* N4 Z! k        Dim point2 As NXOpen.Point
% o; K1 _: o6 d. U" b- W0 k        point2 = workPart.Points.CreatePoint(ep)
  t5 t+ v$ u- a9 A( H. ?  m9 R        associativeArcBuilder1.StartPoint.Value = point1
$ T) i8 W! O& S; k3 f/ a; P* h        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
2 M3 V) W( ^" C        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
# V# p9 G7 p  W( s" V& K% `( q        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
1 i( z' h+ R; ?4 x        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
5 v, b4 `4 B# B6 k; r* w+ Z        Dim nXObject1 As NXOpen.NXObject
/ E# e$ b) s( I+ F        nXObject1 = associativeArcBuilder1.Commit()
# d: Q5 S! x0 m( i' c        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
. }5 j4 R- }, j" B# F        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
: v0 L7 P1 \0 p. P% l        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
1 a; w2 c& i2 F4 y: x8 K        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
9 B. z, b  O4 u% L5 H: H        Dim objects1(0) As NXOpen.DisplayableObject
4 x' ~$ |/ T# X* E+ U7 x7 r. z& G        objects1(0) = theLine
& n+ r' M3 u5 c$ C) I7 n% j        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
2 n. K: w; m$ m* y7 J' a9 C        displayModification1.Apply(objects1)
2 h) k8 z4 c( u# O4 \        displayModification1.Apply(object2)
        displayModification1.Dispose()


- y( s1 k8 _  T: w& Y" Z, ~        ' TODO: Add your application code here

    End Sub
5 d" \" M& s+ y  m
2 ?0 b6 q; W1 k( V/ l( Q
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
% a% l) F9 n2 _& l! R7 I$ S
        'Unloads the image immediately after execution within NX
- h) f) i9 a& M( y, U  C/ l' S6 u        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
, Q" ?7 A% k8 j3 v5 Y/ m
. ^, n: T2 q; H! O' Z  V0 @        '----Other unload options-------
/ Q. _; B2 v! F4 B        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
' v  P# i0 ^$ w9 ~0 N8 q/ @  G
        'Unloads the image explicitly, via an unload dialog
( B3 c+ G3 e& G: _4 B9 D" |) N        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
        '-------------------------------

    End Function
3 D. U7 \  C1 ^, a: ^
End Module
9 O6 Y7 a+ r) }, k) K! L

( M/ p( o; o2 h* {