×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

V5 specification tree - How to print it?

V5 specification tree - How to print it?

V5 specification tree - How to print it?

(OP)
I'm sure that there must be an easy answer to this, but how do I print the specification tree. I can not find any way to do it

RE: V5 specification tree - How to print it?

Try clicking on the tree or the axis system in the lower right corner of your monitor. This should allow you to zoom the tree in and out. Right click and then click on "print whole" to print the tree.

forfun

RE: V5 specification tree - How to print it?

Hello there.

You can also try to save the Assembly as an .txt file.
This will give you the tree structure with expanded nodes.

-Bjod

RE: V5 specification tree - How to print it?

Another option would be download a program called snag it from the internet it is free to download and grabs the whole window.

RE: V5 specification tree - How to print it?

use "PRINT SCREEN" button.
Open a paint and hold "CTRL" and "V" to paste.
then save in BMP or JPG format.

johnny

RE: V5 specification tree - How to print it?

Hi there

I found in Dassault documentation a script which allows you to write the name of selected products in a text file .

' COPYRIGHT DASSAULT SYSTEMES 2001
Option Explicit

' ***********************************************************************
'   Purpose     : Write the name of selected products in a text file.
'   Assumptions : A CATProduct document should be active.
'   Author      :
'   Languages   : VBScript
'   Locales     : English
'   CATIA Level : V5R7SP3
' ***********************************************************************

' ***********************************************************************
'
' Purpose:  Build the complete name of a product.
'
' Inputs :  ioProduct Product     the product
'
' Outputs:  osName    String      the complete name
'
' ***********************************************************************
Sub BuildName ( ByRef ioProduct, ByRef osName )

  osName = ioProduct.Name
  Dim oRoot As Product
  Set oRoot = CATIA.ActiveDocument.Product
  Dim oCurrent As Product
  Set oCurrent = ioProduct
  While (oCurrent.Name <> oRoot.Name)
      Set oCurrent = oCurrent.Parent.Parent
      osName = oCurrent.Name+"\"+osName
  Wend

End Sub

' ***********************************************************************
'
' Purpose:  Main.
'
' ***********************************************************************
Sub CATMain()


    ' Initialize
    Dim sTitle As String
    sTitle = "Write name of selected products"
    Dim sExtension As String
    sExtension = "txt"

    ' Create the file environment
    Dim oFso As FileSystem
    Set oFso = CATIA.FileSystem
    Dim oFile As File
    Dim oTextStream As CATIATextStream

    ' Open the output file
    Dim iReturnCode As Integer
    iReturnCode = vbRetry
    While (iReturnCode = vbRetry)

        ' Retrieve the path from the user
        Dim sFilePath As String
        sFilePath = CATIA.FileSelectionBox(sTitle, sExtension,
CatFileSelectionModeSave)
        If (sFilePath = "") Then
            iReturnCode = vbCancel
        Else
           ' Verify the existence of the output file
            sFilePath = sFilePath+"."+sExtension
            Dim iOverwrite As Boolean
            iOverwrite = False
            If (oFso.FileExists(sFilePath)) Then
                ' Ask user if output file exists
                iReturnCode = Msgbox("The file "+sFilePath+" already exists
! Do you want to overwrite it ?", vbQuestion+vbAbortRetryIgnore, sTitle)
                If (iReturnCode = vbAbort) Then
                    iReturnCode = vbCancel
                ElseIf (iReturnCode = vbIgnore) Then
                    iReturnCode = vbOK
                    iOverwrite  = True
                End If
            else
                iReturnCode = vbOK
            End If

            ' Create the output file
            If (iReturnCode = vbOK) Then
                On Error Resume Next
                Set oFile = oFso.CreateFile(sFilePath, iOverwrite)
                If (Err.Number <> 0) Then
                    Err.Clear
                    iReturnCode = Msgbox("Cannot Create "+sFilePath+" !",
vbExclamation+vbRetryCancel, sTitle)
                Else

                    ' Open the output file
                    Set oTextStream = oFile.OpenAsTextStream("ForWriting")
                    If (Err.Number <> 0) Then
                        iReturnCode = Msgbox("Cannot open "+sFilePath+" as a
text file for writting !", vbExclamation+vbRetryCancel, sTitle)
                    End If
                End If
                On Error goto 0
            End If
        End If
    Wend

    ' Write the name of selected products
    If (iReturnCode = vbOK) Then
        Dim oSelection As Selection
        Set oSelection = CATIA.ActiveDocument.Selection

        ' Retrieve the selected products
        Dim oProduct As AnyObject
        Dim sCompleteName As String
        On Error Resume Next
        While (Err.Number = 0)
           Set oProduct = oSelection.FindObject("CATIAProduct")
           If (Err.Number = 0) Then

                ' Write the name
                BuildName oProduct, sCompleteName
                oTextStream.Write sCompleteName+vbCrLf
            End If
        Wend
        On Error Goto 0

       ' Clean
        Set oFile = Nothing
        Set oFso  = Nothing

        ' Report
        Msgbox sTitle+" completed !"
    End If

End Sub

Regards
Fernando

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources