---

hallo zusammen

nachfolgendes bsp. ist von siemens, um das vorschuabild "qaf" als cgm-file aus einer zeichnung zu holen.
native funktioniert das einwandfrei, ich brauche aber die version in teamcenter.
ich kriege die richtige "file-name" - formatierung nicht hin, kann da jemand hefen?

-------------------------------

Option Strict Off

Imports System
Imports NXOpen
Imports NXOpen.UF
Module NXJournal

Dim s As Session = Session.GetSession()
Dim ufs As UFSession = UFSession.GetUFSession()
Dim lw As ListingWindow = s.ListingWindow

Sub Main()

lw.Open()

' aus Vorschaubild "qaf" wird ein cgm geschrieben / export nach TMP_DIR (%TEMP%), Filenmae=Dateiname-sheet_name.cgm

'Native=OK!
'Dim file_name As String = "C:\Temp\model1_dwg1.prt"

' Teamcneter
Dim file_name As String = "@DB@869604@02@specification@869604/02_dwg2"
'Dim file_name As String = "@DB/869604/02/specification/869604/02_dwg2"
'Dim file_name As String = "@DB/869604_02_dwg2"
'Dim file_name As String = "@DB/869604/02_dwg2"
'Dim file_name As String = "@DB/869604_02_dwg2.prt"
' wie ist die richtige formatierung???

'Theorie
' open-NT: "C:\Temp\model1_dwg1.prt"
' open-TC: "@DB@869604@02@specification@869604/02_dwg2"

Dim out_file_names As String()
Dim num_sheets As integer

ufs.DRAW.RetrieveDrawingcgm(file_name, out_file_names, num_sheets)

lw.WriteLine("num_sheets = " + num_sheets.tostring)

End Sub

End Module

[Diese Nachricht wurde von Sirus am 17. Okt. 2014 editiert.]

[Diese Nachricht wurde von Sirus am 17. Okt. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Sirus, vielleicht hilft dir dieser Auzug:

Code:

---

        Dim managerActive As Boolean

        ufs.UF.IsUgmanagerActive(managerActive)

Dim workPart As Part = s.Parts.Work
Dim partName As String = workPart.Leaf.ToString

        ufs.Part.AskPartName(s.Parts.Display.Tag, partName)

        Dim partNumber As String = ""
        Dim partRevision As String = ""
        Dim partFileType As String = ""
        Dim partFileName As String = ""

        ufs.Ugmgr.DecodePartFileName(partName, partNumber, _
                                     partRevision, partFileType, _
                                     partFileName)

        Dim ug2d_proc As String
        Dim ug2d_in_file As String
        Dim ug2d_out_file As String
        Dim ug2d_log_file As String
        Dim ug2d_option As String
        Dim ug2d_args As String

        ug2d_proc = "d:\plm\nx75\ugto2d\ugto2d"
        ug2d_in_file = " i=@DB@" & partNumber & "@" & partRevision & "@" & partFileType & "@" & partFileName
        ug2d_out_file = " o=" & tmp_dir & "\" & partFileName & ".prt"
        ug2d_log_file = " l=" & tmp_dir & "\" & partFileName & ".log"
        ug2d_option = " draw=_all_"
        ug2d_args = ug2d_in_file & ug2d_out_file & ug2d_log_file & ug2d_option

---

[Diese Nachricht wurde von Thomas-Z am 17. Okt. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo thomas

dank, was macht das prog genau?

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...andere Ideen für "file_name"?

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das Programm schreibt mit ugto2d eine Zeichnungsdatei heraus und macht tif bzw. dxf Daten Native auf die Platte.

Für dich wird der Aufruf vermutlich eine ähnliche Syntax haben:

Code:

---

ug2d_in_file = " i=@DB@" & partNumber & "@" & partRevision & "@" & partFileType & "@" & partFileName

---

Vielleicht hilft auch der Beitrag von matthias-p: http://ww3.cad.de/foren/ubb/Forum442/HTML/001071.shtml#000003

[Diese Nachricht wurde von Thomas-Z am 21. Okt. 2014 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...danke, geht leider auch nicht...

kann man überhaupt feststellen, ob das für teamcenter gehen soll,
gibt es irgendwo infos?

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...noch jemand einen andere Idee?

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Sirius,

ohne es zu testen. Es gibt die Klasse um Files vom Teamcenter zu exportieren...

NX8 NXOpen .Net API Reference
ExportFiles Method (itemIds, itemRevisionIds, datasetNames, datasetTypeNames, datasetRelationTypeNames, baseDirectoryNames, toolNames, exportDirectoryNames)

Namespaces ► NXOpen.PDM ► FileManagement ► ExportFiles(array<String>[]()[][], array<String>[]()[][], array<String>[]()[][], array<String>[]()[][], array<String>[]()[][], array<String>[]()[][], array<String>[]()[][], array<String>[]()[][]%)C#Visual BasicVisual C++Exports all exportable files for the specified dataset(s) to a directory.
Declaration Syntax
C# Visual Basic Visual C++

public int[] ExportFiles(
string[] itemIds,
string[] itemRevisionIds,
string[] datasetNames,
string[] datasetTypeNames,
string[] datasetRelationTypeNames,
string[] baseDirectoryNames,
string[] toolNames,
out string[] exportDirectoryNames
)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo matthias

gute idee, nur funktioniert das nicht wie gewünscht,
der befehlt holt nur nicht- *.prt daten aus dem tc raus, leder.....

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du willst doch aber die *.qafŽs oder?
Die hängen als Relation UG-QuickAccess-Binary als Named-Reference unter dem UGPART mit drunter.
Oder versteh ich was falsch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ja schon, aber auch die kommen nicht mit raus....
(wenn das *.prt gehen würde, könnt ich das *.qaf ja "native" ziehen,
das würde gehen....aber eben....)

------------------
gruss urs 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP