设置线的颜色

45guop

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


1 V) ~, K& P( B6 D$ s+ {Option Strict Off
Imports System
# {8 z. I9 c+ f2 t# h3 H+ @( |Imports NXOpen
# a9 H# x8 @. [  |; ^, q" _  ^, i; HImports NXOpen.UF
$ x: g3 b+ m4 V$ T, h0 UImports NXOpen.UI
$ I* v; X2 [- O1 r2 A; c
Module Module1
) _! g9 J3 h7 i" M
    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work
3 `7 t+ I. M( D6 i- P. G) v$ S
6 g" o" _/ v  ]/ P' d5 o    Dim displayPart As NXOpen.Part = theSession.Parts.Display

3 ]- G5 V5 a( q- {    '  Explicit Activation
0 D& p2 K7 ^$ q' l; B    '      This entry point is used to activate the application explicitly
    Sub Main()
  Y+ i' v$ h, i: A4 d
% l  [( w4 v1 H       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)
2 J0 T5 z: n" ^, Q7 [        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
& b6 v% G  K9 Z* v3 {' a/ r+ j/ }        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
- H+ h2 B- `4 t+ F) h2 b" e        point2 = workPart.Points.CreatePoint(ep)
4 V: _$ C; Y. c/ x2 O  Q        associativeArcBuilder1.StartPoint.Value = point1
5 L' L: y9 r$ D; T; F: l        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
        Dim point3 As NXOpen.Point
$ d1 b! l4 ^* s. {: j        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
. W) l$ L% F* F        Dim nXObject1 As NXOpen.NXObject
; C! G, }6 C8 B        nXObject1 = associativeArcBuilder1.Commit()
  v2 c' z5 f: `$ I  j! E) u        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
9 Z1 M# x$ V- l4 h. e& j        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
' x& f5 X3 ~. ~5 G$ Z        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
- ]# e% F3 q4 y: U        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
& |7 l' J* T2 A$ d5 P$ \        Dim object2(0) As NXOpen.DisplayableObject
4 A9 |. f7 n4 B: z# D        object2(0) = arc1
        displayModification1.Apply(objects1)
        displayModification1.Apply(object2)
        displayModification1.Dispose()


3 @- t& h' R, Z        ' TODO: Add your application code here

    End Sub

% d/ p8 ?3 V5 O9 \
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
( s- y( E9 k! z
2 v, X" d4 [; V! {% v: Y3 Y8 Z        'Unloads the image immediately after execution within NX
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
+ Y8 j# B8 M* g6 p$ B        'Unloads the image when the NX session terminates
# i" ?- {! C$ q) ?7 E8 ]        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination

        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
, L! F5 _% C% @' u6 a5 z        '-------------------------------

    End Function
0 ?: e- R0 m+ y; M" \1 ?3 j
- ?( a2 X4 s8 X& f" ~/ ~0 JEnd Module

( x( r9 C1 W! S6 \; ]/ w
* F& K% p% K& S% S: }" C