设置线的颜色

45guop

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


Option Strict Off
/ L* w. P: l1 }2 V. M: jImports System
6 d0 \- Z0 t# B$ O, k* ^6 FImports NXOpen
1 m, x; j; A  k: y: N! E5 qImports NXOpen.UF
Imports NXOpen.UI
+ k3 w& ~$ B; t5 N
& J2 d" I: {9 P& L$ M* c) S& E2 kModule Module1

$ ?# b' o" F1 B/ x+ {0 z    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
# R8 X; }$ R7 [. K* g
    Dim displayPart As NXOpen.Part = theSession.Parts.Display

9 L/ c2 ^" y: d4 }! L3 h* ~    '  Explicit Activation
* A5 m$ k' I; z    '      This entry point is used to activate the application explicitly
    Sub Main()
+ i' c. z. u3 t! X, j+ x2 @
3 P0 [6 m5 N" g6 z       Dim sp As New Point3d(0, 0, 0)
& G+ Q4 X& m- h        Dim ep As New Point3d(50, 50, 0)
- Y( G" I' |0 a; [0 I9 Y& T3 l, T        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)
# D7 [0 W: c5 \& t. ~        Dim point1 As NXOpen.Point
+ W8 o: F. M* a4 }. C* b' B- Q# b        point1 = workPart.Points.CreatePoint(sp)
0 Q' g4 m. d& F* n1 H        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
7 [2 @; e0 z/ ^2 n+ b        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
/ m0 I+ Z  |( ^        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
( Z' O3 ^1 _" j" U* @! b1 M2 q( l        associativeArcBuilder1.MidPoint.Value = point3
/ R, H; W" f0 j% T+ a0 \. K: s# a1 T        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
        nXObject1 = associativeArcBuilder1.Commit()
- }, ]! O! h% r. o( s8 q1 ?# ~% A        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
3 _4 b' C% B/ _! ?) J& u        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
7 H7 p, {+ C6 E8 @8 I4 a        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
# H" X5 x# y  }, S9 e- Y( v2 c3 p        displayModification1.NewColor = 7     '设置颜色
/ |6 C6 ?' H3 l, K8 k& g6 f2 q        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
- N/ ^+ \4 g; J9 ]# P7 ?0 [        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
' U7 ?! f+ k4 {& _        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()
* z! D3 k9 J, Q9 g2 _, T
0 L, u! l; C. O; h4 s
        ' TODO: Add your application code here

# n& g  Z* a1 C6 L6 B" m    End Sub
. \3 S. H3 J! B! p- E

' B, L$ K, r0 c# x3 {# M4 x5 ]3 d    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
# v+ T9 H% q8 p2 @! c( B
1 w- h% m: u# ^, c        '----Other unload options-------
        'Unloads the image when the NX session terminates
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
+ F( c& y9 Q4 ]  B        '-------------------------------

    End Function
8 t% F3 P2 Q7 \( v. i) j9 M
* l, y& V% i* l4 E% HEnd Module
+ y) B* N! U5 A* \, d
) K2 A. H$ M0 n) j