设置线的颜色

45guop

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


1 o$ L- F, n/ M" I( OOption Strict Off
5 n+ ~& W4 |# w2 y1 C- jImports System
Imports NXOpen
# i6 j" N9 t; ^+ _& kImports NXOpen.UF
Imports NXOpen.UI

& \9 _8 w+ N* I% i; y4 yModule Module1

# Z9 `( `0 e" [% @$ ^- c5 Z    Dim s As Session = Session.GetSession()
    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

' N, C1 z1 F, j' `7 v    Dim displayPart As NXOpen.Part = theSession.Parts.Display
. C, ^0 h3 C( B5 E  U% }+ o; i7 z% |
5 h7 U# |9 b( `8 q; u) w- G7 s    '  Explicit Activation
9 z* ?* h: v' v, H% Y; I    '      This entry point is used to activate the application explicitly
    Sub Main()

       Dim sp As New Point3d(0, 0, 0)
2 {/ D7 K# s0 s' {& r, i! V        Dim ep As New Point3d(50, 50, 0)
$ y  k- V) |2 i$ a4 `" T" x        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
$ ]6 i. o4 \+ K+ a. t) {2 @" t( W        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
  b) s! ?4 [( ~1 v" ]: r+ @* }: R        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
# Y9 I" t2 g  F        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
        Dim point2 As NXOpen.Point
        point2 = workPart.Points.CreatePoint(ep)
( w" a, a' m# i; V2 I! Z5 P& T, Q        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
9 p- D* a) E8 h# B* P7 t        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
6 z' M; P; y; w5 X( R" N/ ~        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
7 [* ^5 [/ W, U; P9 j        associativeArcBuilder1.MidPoint.Value = point3
8 {- }+ K" q) E1 b        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)
0 A, r7 ]9 ]( N        associativeArc2.SetName("123")
4 n: k* V, R. X        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
, b& O6 u# S# \  o9 g1 v  I8 C        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
, B6 \; B! M, m) Z. Q        Dim displayModification1 As NXOpen.DisplayModification
        displayModification1 = s.DisplayManager.NewDisplayModification()
        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
# z6 _* W; y& O2 h+ M' N        displayModification1.NewLayer = 10    '设置图层
        Dim objects1(0) As NXOpen.DisplayableObject
        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
        object2(0) = arc1
        displayModification1.Apply(objects1)
2 N* i0 D, I) z* ?" J: a1 p        displayModification1.Apply(object2)
; F! q! T  H6 V9 E& Q) j' S; x, K        displayModification1.Dispose()
8 }% o6 T0 h& Q) P$ M7 _

1 F/ p" }  f& Y! v6 T6 e        ' TODO: Add your application code here
/ X3 r/ s& m/ j/ X
    End Sub
: z6 X, v$ c( C/ T) b( ~
; F0 l+ g7 N' Q2 X
4 e" ^- L$ J* x/ z$ b    Public Function GetUnloadOption(ByVal dummy As String) As Integer
5 |; s- s- e. Y7 u4 `' b) k
        'Unloads the image immediately after execution within NX
8 |0 `; }5 J) ?        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
        'Unloads the image when the NX session terminates
- ^/ i' j4 O! _9 d( m- F. t        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
8 @# d6 V: J9 H
        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
, S. d: [( p8 J' ^        '-------------------------------

% H1 ]. L  Z' E5 G    End Function

+ X! G1 {+ X9 V' KEnd Module


8 I  Z( b. g: I1 E* F& H9 Q8 m' F