Capture Docs for run_journal.exe

#New 14.01.2015 11:25 J.Fes


http://forum.cad.de/foren/ubb/Forum442/HTML/000394.shtml

@echo off
echo .
echo Startskript fuer NX-Automation ueber run_journal.exe
echo .
echo coded by KJC

rem del test_1.prt
rem del test_2.prt
rem del *.x_b

set UGII_BASE_DIR=C:\Programme\UGS\NX 4.0
set UGII_ROOT_DIR=%UGII_BASE_DIR%\UGII
start "UGIICMD"   "%UGII_ROOT_DIR%\ugiicmd.bat"
start /w "run_journal" "%UGII_ROOT_DIR%\run_journal.exe" C:\PROJECTS\LB_AUTOMATION\applied_testing\param_journal.vb -args C:\PROJECTS\LB_AUTOMATION\applied_testing\WAVELINK-ASM.prt
start /w "ug_inspect" "%UGII_ROOT_DIR%\ug_inspect.exe" -extract_all C:\PROJECTS\LB_AUTOMATION\applied_testing\ps.prt C:\PROJECTS\LB_AUTOMATION\applied_testing\lb.xmt_bin


http://ww3.cad.de/foren/ubb/Forum442/HTML/000399.shtml


Um mehr Informationen zum Thema rauszubringen, erstelle ich einen neuen Thread aufbauend auf diesen  >hier<.

Auf der Suche nach einer automatisierbaren Anweisung zum Export von Parasolids in eine *.x_t-Datei (eine von mehreren Parasolid-Endungen) ist mir folgendes untergekommen:


Code:
Option Strict Off
Imports System
Imports System.IO

Imports NXOpen
Imports NXOpen.UF
Imports NXOpen.UI
Imports NXOpen.Utilities

Module export_all_bodies_to_parasolid

    Dim S As Session = Session.GetSession()
    Dim UFS As UFSession = UFSession.GetUFSession()

    Sub Main()

        Dim inx As Integer = 0
        Dim dispPart As Part = S.Parts.Display
        Dim n As String = vbCrLf

        Dim bodies As BodyCollection = dispPart.Bodies
        Dim bodyCount As Integer = bodies.ToArray.Length
        Dim tagList(bodyCount - 1) As NXOpen.Tag

        Do
            tagList(inx) = dispPart.Bodies.ToArray(inx).Tag
            inx = inx + 1
        Loop Until inx = bodyCount

        Dim fileName1, fileName2 As String
        fileName1 = S.Parts.Display.FullPath
        fileName2 = Path.GetDirectoryName(fileName1) + "\" + Path.GetFileNameWithoutExtension(fileName1) + ".x_t"
        UFS.Ps.ExportData(tagList, fileName2)
        UFS.Ui.SetStatus("Exported solids to Parasolid file: " & fileName2)

    End Sub

    Public Function GetUnloadOption(ByVal dummy As String) As Integer

        GetUnloadOption = UFConstants.UF_UNLOAD_IMMEDIATELY

    End Function

End Module

http://www.eng-tips.com/viewthread.cfm?qid=270935


Web Site zum Thema
http://www.nxjournaling.com/
