---

Habe noch eine Frage.

Hat hier jemand schon mal mit dem SendTo Befehl gearbeitet.

ich möchte lediglich eine bestehende Zeichnung über ein Makro in einem anderem Verzeichnis speichern. Um die alten verknüpfungen zu löschen und das ganze in einem neuen Ordner zu legen um diesen dann in EDM anzulegen benötige ich den SendTo Befehl.

Danke für eure Hilfe!

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

---

Hi,

Villeicht kann ich dir ein bisschen helfen.
Um den SendTo-Befehl zu automatisieren brauchst du eine 
"CATIA-PPR xPDM Gateway 1 Product" lizens.
Ich habe ein Code geschrieben der villeicht dir eine Ahnung gibt wie man den SendTo Befelh benutzt. Damit kannst deine Zeichnung in einem anderen Verzeichnis speichern.

Sub CATMain()

CATIA.DisplayFileAlerts = True
Path = CATIA.ActiveDocument.Path
Name = CATIA.ActiveDocument.Name
initial = Path & "\" & Name
Set Folder = CATIA.FileSystem.CreateFolder("oTemp")
oFolder = Path & "\oTemp"
Set Send = CATIA.CreateSendTo()
Send.SetInitialFile (initial)
Send.SetDirectoryFile (oFolder)
Send.Run

End Sub

------------------
mfg,

serrano

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

---

Zitat:

---

Original erstellt von serrano:
Hi,

Um den SendTo-Befehl zu automatisieren brauchst du eine 
"CATIA-PPR xPDM Gateway 1 Product" lizens.

---

Abkuerzung fuer diese Lizenz: PX1 (falls Du die brauchst, um beim Haendler Deines Vertrauens nachzufragen 

Gruess
Catrin

------------------
CATIS GmbH                  38444 Wolfsburg
catrin.eger@catis.de        www.catis.de

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

---

Danke sehr....

Funktioniert fast einwandfrei....

Habe leider noch das Problem, dass zwei Parts aus dem Product nicht mitgesendet werden. Wissen Sie was da die Ursache sein könnte?
Und schön wäre auch, wenn die Ordnerstruktur beibehalten werden könnten. Das funktioniert beim manuellen SendTo indem ich das Häkchen anklicke.... Nur im Makro noch nicht...

Für weitere Hilfe wäre ich sehr dankbar.

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

---

Hallo serrano.
Du hast ja über den Befehl "CATIA.FileSystem.CreateFolder" einen neuen Ordner erstellt. Gibt es auch einen Befehl zum Ordner löschen ?

Ich programmiere gerade ein Makro mit neuer Ordner erstellung, allerdings soll bei Benutzerabbruch der Ordner wieder gelöscht werden.

Schönen Dank und viele Grüße,
shorty

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

---

Hallo.

Um die Ordnerstruktur beizubehalten:

KeepDirectory(boolean iKeep)

Viel Erfolg.

Christian

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

---

Hi shorty,
ich habe deine Nachricht erst Heute gelesen.
um ein ordner zu löschen kannst du den Befehl

catia.FileSystem.DeleteFolder "C:\Probe\TEMP"

benutzen.

------------------
mfg,

serrano

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

---

Hi Leute,
ich versche auch gerade mir ein entsprechendes Makro zu schreiben mit
einer SendTo-Funktion. Ich habe auch die richtige Lizenz und kann
manuell SendTo ausführen. Ich erhalte jedoch immer bei den fetten
Zeilen Fehlermeldungen. Woran liegt das? Ist bei V5R19 und V5R24 so.

Sub CATMain()
CATIA.DisplayFileAlerts = True
Path = CATIA.ActiveDocument.Path
Name = CATIA.ActiveDocument.Name
initial = Path & "\" & Name
Set Folder = CATIA.FileSystem.CreateFolder("oTemp")
oFolder = Path & "\oTemp"
Set Send = CATIA.CreateSendTo()
Send.SetInitialFile (initial)
Send.SetDirectoryFile (oFolder)
Send.Run
End Sub

Ich hätte noch eine Frage und zwar wie kann ich in einem Assembly
alle ReusedPattern finden?! Mit CATPrtSearch.Pattern finde ich alle
Pattern in den einzelnen Parts aber nicht die Reused im Assembly.
Ich habe es auf viele Arten versucht und das hier ist eine davon:

Sub CATMain()
  Set oDocument = CATIA.ActiveDocument
  Set oSel = oDocument.Selection

      oSel.Search "CATAsmSearch.Pattern, all"

  MsgBox oSel.Count
End Sub

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

---

Servus
Zum SendTo:
Bei mir läuft der Code. Welche Fehlermeldung kommt? Gibt es das Verzeichnis? Ist das Dokument gespeichert?

Zum Assembly-Pattern: Lässt sich IMHO per Makro nicht ansprechen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Guten Morgen,

ja natürlich ist die Baugruppe gespeichert!
Der Code ist 1:1 so im Makro:

Sub CATMain()

CATIA.DisplayFileAlerts = True

Path = CATIA.ActiveDocument.Path
Name = CATIA.ActiveDocument.Name

initial = Path & "\" & Name

Set Folder = CATIA.FileSystem.CreateFolder("oTemp")
oFolder = Path & "\oTemp"

Set Send = CATIA.CreateSendTo()
Send.SetInitialFile (initial)
Send.SetDirectoryFile (oFolder)
Send.Run

End Sub

Fehlermeldung kommt diese:
Source: CATIASendToService
Description: The methode SetInitialFile failed

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

---

Also das Makro habe ich jetzt so geändert:

Sub CATMain()

CATIA.DisplayFileAlerts = True

Path = CATIA.ActiveDocument.Path
Name = CATIA.ActiveDocument.Name

initial = Path & "\" & Name

oFolder = Path & "\oTemp"
CATIA.FileSystem.CreateFolder(oFolder)

Set Send = CATIA.CreateSendTo()
Send.SetInitialFile (initial)
Send.SetDirectoryFile (oFolder)
Send.Run

End Sub

Alle Pfade werden per MsgBox richtig ausgegeben und der Ordner oTemp wird
auch im Projekt Ordner erstellt. Erst bei SendTo gibt es dann die obige Fehlermeldung?!

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

---

Servus
Bei mir läuft dein Code.
Hast du die entsprechende Lizenz?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Das gibts doch nicht oO
Ja ich habe die richtige Lizenz und ich kann das SendToDirectory
manuell ausführen?!

Beim makro kommt aber immer dieselbe Fehlermeldung...
Und das unter V5R19 und V5R24?!

Und mit dem MakroRecorder kann ich den vorgang nicht aufnehmen
und somit auch keine Rückschlüsse ziehen 

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

---

Ich brauch diesen blöden Befehl xD

So habe ich das bisher in meinem Makro verbaut und immer bei SendTo
steigts aus...

'Projektinformationen sammeln
  oFile = oDocument.Name
  oPath = oDocument.FullName
  oSplit = split(oPath, oFile)

      NewFolderPath = Left(oSplit(0), Len(oSplit(0)) -1)
      OldFolderPath = NewFolderPath & "_ALT"

'Product schließen / Daten verschieben / Product öffnen
  CATIA.FileSystem.CreateFolder(OldFolderPath)
      oDocument.save
      oDocument.close

  CATIA.FileSystem.CopyFolder NewFolderPath, OldFolderPath
      set oFS = CreateObject("Scripting.FileSystemObject")
      oFS.DeleteFolder(NewFolderPath)
      set ReOpen = CATIA.Documents.Open(OldFolderPath & "\" & oFile)

'Neuen Projektordner Anlegen / Product SendTo
  CATIA.FileSystem.CreateFolder(NewFolderPath)
  CATIA.DisplayFileAlerts = True

  Set Send = CATIA.CreateSendTo()
      Send.SetInitialFile (oPath)
      Send.SetDirectoryFile (NewFolderPath)
  Send.Run

'Alle Drawings und Excel-Tabellen in der selben Struktur nach NewFolderPath kopieren
...

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

---

Ok die PX1-Lizenz ist gerade besetzt.
Ich habe geschaut ob ich das manuell machen kann und bin davon
ausgegangen das ich dann die richtige lizenz habe, da ich den Befehl
ja ausführen kann.

Sehe ich das jetzt richtig, dass ich das sendto immer manuell
machen kann (geht bei mir mit jeder Lizenz), aber per Makro
das sendto nur mit der PX1-Lizenz nutzen kann?!

Wo ist denn da die Logik?

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

---

Servus
Ja, so ist es.
Frag mal Dassault warum das so ist.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Ok mit der Lizenz läufts super xD

Wie bekomm ich es hin das die Struktur beibehalten wird?
Dem iKeep muss ich doch irgendwas zuweisen oder?

Set Send = CATIA.CreateSendTo()
  Send.SetInitialFile (OldFolderPath & "\" & oFile)
  Send.SetDirectoryFile (NewFolderPath)
  Send.KeepDirectory(iKeep)
Send.Run

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

---

Servus
Gemäß Doku müsste es Send.KeepDirectory(1) sein.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Also wenn ich 0 einsetze kopiert er alles nur in einen Ordner.
Wenn ich 1 einetze kopiert er garnichts und im Protokoll steht
ebenfalls das keine Datei kopiert werden konnte...

Sub CATMain()

CATIA.DisplayFileAlerts = True

Path = CATIA.ActiveDocument.Path
Name = CATIA.ActiveDocument.Name

initial = Path & "\" & Name

Set Folder = CATIA.FileSystem.CreateFolder("oTemp")
oFolder = Path & "\oTemp"

Set Send = CATIA.CreateSendTo()
Send.SetInitialFile (initial)
Send.SetDirectoryFile (oFolder)
Send.KeepDirectory(1)
Send.Run

End Sub

Jetzt aber ein schönes Wochenende.
Bis nächste woche 

[Diese Nachricht wurde von InFlames am 23. Jan. 2015 editiert.]

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