Journal- Select all faces of a body 1

[kukelyk]

I would like to set the color of a body black, and all the faces white.
I selected the body previously, so i have the body name (workpiece).
The current layout has a static wireframe 'TOP' view, and a shadew 'TFR-ISO'. When I export it to jpg, the ISO view is OK, but the Wireframe is very pale when printing it.
Any help would be appreciated.

----
kukelyk

 

[cowski]

Something like this?

[COLOR=green]'eng-tips thread561-335030[/color]
[COLOR=green]'change solid body color to black[/color]
[COLOR=green]'change faces of solid body color to white[/color]

[COLOR=blue]Option Strict Off[/color]  
[COLOR=blue]Imports[/color] System  
[COLOR=blue]Imports[/color] NXOpen  
[COLOR=blue]Imports[/color] NXOpen.UF  

[COLOR=blue]Module[/color] Module1  

    [COLOR=blue]Sub[/color] Main()  

        [COLOR=blue]Dim[/color] theSession [COLOR=blue]As[/color] Session [COLOR=blue]=[/color] Session.GetSession()  
        [COLOR=blue]Dim[/color] workPart [COLOR=blue]As[/color] Part [COLOR=blue]=[/color] theSession.Parts.Work  

        [COLOR=blue]Dim[/color] mySolid [COLOR=blue]As[/color] Body  
        [COLOR=blue]If[/color] SelectSolid("Select a solid body", mySolid) [COLOR=blue]=[/color] Selection.Response.Cancel [COLOR=blue]Then[/color]  
            [COLOR=blue]Exit Sub[/color]  
        End [COLOR=blue]If[/color]  

        [COLOR=blue]Dim[/color] markId3 [COLOR=blue]As[/color] Session.UndoMarkId  
        markId3 [COLOR=blue]=[/color] theSession.SetUndoMark(Session.MarkVisibility.Visible, "Edit Object Display")  

        [COLOR=blue]Dim[/color] displayModification1 [COLOR=blue]As[/color] DisplayModification  
        displayModification1 [COLOR=blue]=[/color] theSession.DisplayManager.NewDisplayModification()  
        displayModification1.ApplyToAllFaces [COLOR=blue]= False[/color]  
        displayModification1.ApplyToOwningParts [COLOR=blue]= False[/color]  

        displayModification1.NewColor [COLOR=blue]=[/color] 216  

        [COLOR=blue]Dim[/color] objects1(0) [COLOR=blue]As[/color] DisplayableObject  
        objects1(0) [COLOR=blue]=[/color] mySolid  
        displayModification1.Apply(objects1)  


        [COLOR=blue]Dim[/color] objects2() [COLOR=blue]As[/color] DisplayableObject [COLOR=blue]=[/color] mySolid.GetFaces  
        displayModification1.NewColor [COLOR=blue]=[/color] 1  
        displayModification1.Apply(objects2)  

        displayModification1.Dispose()  

    End [COLOR=blue]Sub[/color]  

    [COLOR=blue]Function[/color] SelectSolid(ByVal prompt [COLOR=blue]As[/color] String, [COLOR=blue]ByRef[/color] selObj [COLOR=blue]As[/color] NXObject) [COLOR=blue]As[/color] Selection.Response  

        [COLOR=blue]Dim[/color] theUI [COLOR=blue]As[/color] UI [COLOR=blue]=[/color] UI.GetUI  
        [COLOR=blue]Dim[/color] title [COLOR=blue]As String =[/color] "Select a solid"  
        [COLOR=blue]Dim[/color] includeFeatures [COLOR=blue]As Boolean = False[/color]  
        [COLOR=blue]Dim[/color] keepHighlighted [COLOR=blue]As Boolean = False[/color]  
        [COLOR=blue]Dim[/color] selAction [COLOR=blue]As[/color] Selection.SelectionAction [COLOR=blue]=[/color] Selection.SelectionAction.ClearAndEnableSpecific  
        [COLOR=blue]Dim[/color] cursor [COLOR=blue]As[/color] Point3d  
        [COLOR=blue]Dim[/color] scope [COLOR=blue]As[/color] Selection.SelectionScope [COLOR=blue]=[/color] Selection.SelectionScope.WorkPart  
        [COLOR=blue]Dim[/color] selectionMask_array(0) [COLOR=blue]As[/color] Selection.MaskTriple  

        [COLOR=blue]With[/color] selectionMask_array(0)  
            .Type [COLOR=blue]=[/color] UFConstants.UF_solid_type  
            .SolidBodySubtype [COLOR=blue]=[/color] UFConstants.UF_UI_SEL_FEATURE_SOLID_BODY  
        End [COLOR=blue]With[/color]  

        [COLOR=blue]Dim[/color] resp [COLOR=blue]As[/color] Selection.Response [COLOR=blue]=[/color] theUI.SelectionManager.SelectObject(prompt, _  
         title, scope, selAction, _  
         includeFeatures, keepHighlighted, selectionMask_array, _  
         selobj, cursor)  
        [COLOR=blue]If[/color] resp [COLOR=blue]=[/color] Selection.Response.ObjectSelected [COLOR=blue]OrElse[/color] resp [COLOR=blue]=[/color] Selection.Response.ObjectSelectedByName [COLOR=blue]Then[/color]  
            [COLOR=blue]Return[/color] Selection.Response.Ok  
        [COLOR=blue]Else[/color]  
            [COLOR=blue]Return[/color] Selection.Response.Cancel  
        End [COLOR=blue]If[/color]  

    End [COLOR=blue]Function[/color]  

    [COLOR=blue]Public Function[/color] GetUnloadOption(ByVal dummy [COLOR=blue]As String[/color]) [COLOR=blue]As Integer[/color]  

 [COLOR=green]'Unloads the image when the NX session terminates[/color]
        GetUnloadOption [COLOR=blue]=[/color] NXOpen.Session.LibraryUnloadOption.AtTermination  

    End [COLOR=blue]Function[/color]  

End [COLOR=blue]Module[/color]

www.nxjournaling.com

 

[kukelyk]

Many thanks, it is just what i want.

----
kukelyk