设置线的颜色

45guop

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


Option Strict Off
8 p- Q( K% d6 {! y  N: \# {/ _Imports System
+ r- p% Z0 q9 k# T4 d% M4 xImports NXOpen
( k! B+ X3 G& g. K8 v; p: hImports NXOpen.UF
Imports NXOpen.UI

+ h( p  a9 n' lModule Module1
" T7 ?0 A; r) E( h+ }3 r
1 j, C$ O. j5 H6 F" p: n    Dim s As Session = Session.GetSession()
1 n6 s7 n* e, n) P0 s1 W4 r% t9 {* Z( E    Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
    Dim workPart As NXOpen.Part = theSession.Parts.Work

. Q. D! {! [0 r; y    Dim displayPart As NXOpen.Part = theSession.Parts.Display
. S0 a& O6 D1 [& v% L) R6 p# ]+ ^
    '  Explicit Activation
+ d; z8 H8 j0 g2 x7 t7 i    '      This entry point is used to activate the application explicitly
" `( m1 p  d1 o* ?. w: W2 x1 ^* b    Sub Main()
# M( u8 R; x3 Z5 y) i5 x
" _" k$ O* m5 A: u" N$ Q$ }8 Q" S% E       Dim sp As New Point3d(0, 0, 0)
0 V8 y' n3 c4 P/ k        Dim ep As New Point3d(50, 50, 0)
  c/ L3 d& P( U5 {! g        Dim nullNXOpen_Features_AssociativeArc As NXOpen.Features.AssociativeArc = Nothing
        Dim theLine As Line = s.Parts.Work.Curves.CreateLine(sp, ep)
* ^9 q) e$ r8 v; f& F$ H7 x; ~        Dim associativeArcBuilder1 As NXOpen.Features.AssociativeArcBuilder
        associativeArcBuilder1 = workPart.BaseFeatures.CreateAssociativeArcBuilder(nullNXOpen_Features_AssociativeArc)
        Dim point1 As NXOpen.Point
        point1 = workPart.Points.CreatePoint(sp)
9 S, u% N  V/ m: i$ }5 d. @        Dim point2 As NXOpen.Point
1 N" B. U( n. l' b; H9 N- ~        point2 = workPart.Points.CreatePoint(ep)
        associativeArcBuilder1.StartPoint.Value = point1
        associativeArcBuilder1.StartPointOptions = NXOpen.Features.AssociativeArcBuilder.StartOption.Point
$ `( q# G. X+ [" R/ V- P& r        associativeArcBuilder1.EndPoint.Value = point2
        associativeArcBuilder1.EndPointOptions = NXOpen.Features.AssociativeArcBuilder.EndOption.Point
; A% I* @" k; h& E7 m3 `        Dim point3 As NXOpen.Point
        point3 = workPart.Points.CreatePoint(New Point3d(0, 50, 0))
        associativeArcBuilder1.MidPoint.Value = point3
# M. v8 e/ a4 k$ q/ A        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
        Dim nXObject1 As NXOpen.NXObject
2 D/ x5 M1 ]+ L. H7 [        nXObject1 = associativeArcBuilder1.Commit()
. p) H: D- y/ Q        Dim associativeArc2 As NXOpen.Features.AssociativeArc = CType(nXObject1, NXOpen.Features.AssociativeArc)
/ Y! z5 M4 w, C        associativeArc2.SetName("123")
        Dim arc1 As NXOpen.Arc = CType(associativeArc2.FindObject("123"), NXOpen.Arc)
        associativeArcBuilder1.MidPointOptions = NXOpen.Features.AssociativeArcBuilder.MidOption.Point
& U6 {' o) {! D! J/ X: w' e        Dim displayModification1 As NXOpen.DisplayModification
9 c( _6 V! a8 f+ O6 v9 N+ i        displayModification1 = s.DisplayManager.NewDisplayModification()
- ~; t' v9 M0 u9 l& d        displayModification1 = s.DisplayManager.NewDisplayModification() '
        displayModification1.NewColor = 7     '设置颜色
        displayModification1.NewLayer = 10    '设置图层
8 e6 _  Y% K$ X# X; X( W, o/ G# G        Dim objects1(0) As NXOpen.DisplayableObject
6 t( |+ z$ {" D        objects1(0) = theLine
        Dim object2(0) As NXOpen.DisplayableObject
) e0 R9 n# W6 J4 L7 p, e  q: v        object2(0) = arc1
        displayModification1.Apply(objects1)
8 _/ Y" u4 X7 z" j' s5 z% a        displayModification1.Apply(object2)
        displayModification1.Dispose()

6 e4 B! N& Q6 L  ~% _
2 A! [# T  t! `        ' TODO: Add your application code here

    End Sub


    Public Function GetUnloadOption(ByVal dummy As String) As Integer
# }% X0 T3 A; w5 u. V3 J- t2 {, _7 j
        'Unloads the image immediately after execution within NX
+ j( l$ v( y3 |( H8 l/ H1 T: k        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately

        '----Other unload options-------
2 G+ Z+ N* C% L7 }/ G3 `4 L        'Unloads the image when the NX session terminates
7 L2 {7 R' c$ }+ [        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
" S8 \! l1 ~. G
' K1 S$ d1 O7 x# W: d        'Unloads the image explicitly, via an unload dialog
        'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
8 b8 I% T* \0 b' y        '-------------------------------

6 q9 x$ g. E0 O! D2 B9 {    End Function

End Module
5 H, s: G# W. d- \


& w4 K7 [- C$ E0 @( R