---

Hallo Leute,

habe folgendes Problem:

Habe das interne Clipboard beschrieben mit folgender Anweisungen:

Code:

---

Call ThisApplication.CommandManager.PostPrivateEvent(kFileNameEvent, sNewFullFileName)

---

und rufe dann ein FileSaveAs auf:

Code:

---

Call ThisApplication.CommandManager.StartCommand(kFileSaveCopyAsCommand)

---

wenn ich jetzt das Ganze 2 mal hintereinander mit 2 unterschiedlichen Dateien mache, dann wird das interne Clipboard nicht richtig neu beschrieben - heißt der vorige Dateiname bleibt drin und die Datei wird dann überschrieben.

Hat jemand einen Tipp?

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Lother,

warum nicht einfach so:

Public Sub doSaveAs()

  Dim oApp As Inventor.Application
  Set oApp = ThisApplication
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument
 
  Call oDoc.SaveAs("C:\Temp\A.ipt", True)
  Call oDoc.SaveAs("C:\Temp\B.ipt", True)
 
End Sub

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Hallo Paul,

Du weißt doch, wenn man wie ich nicht so viel weiß, dann lebt man vom Abschreiben ... und das habe ich nun mal gefunden .

Ich probier es mal aus. Geht das "SaveAs" auch für den DGW-Export?

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Jo - funzt  Danke.

Jetzt brauch ich nur noch eins um glücklich zu sein:

Es möge sich für IV9 eine Möglichkeit auftun, ein Schriftfeld von einer IDW in eine andere zu kopieren.
Die vorhandenen wegradieren und - wenn die Definition mal da ist - einzufügen ist ja kein Problem.

Hast Du da auch was parat ?

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Lothar,

Du willst alte Schriftköpfe loswerden ? Da hab' ich ein Tool für:
http://www.morecam.ch/cad.htm  ---> iTitle

Grüsse,

Paul
www.morecam.ch
www.thinkcad.de

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

---

Zitat:

---

Original erstellt von PaulSchuepbach:
...
Du willst alte Schriftköpfe loswerden ? ...

---

Ja, Paul, ich muß. Aber eben nur für ein paar Zeichnungen so ca. 50. Und da dachte ich, man kann die auf Knopfdruck austauschen.

Dein Tool mag das alles auch können. Aber ich denke für so ein paar lohnt sich das Kaufen nicht.

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

aber für nen VBA-Tipp wäre ich schon dankbar ( es gibt max U's ! ). 

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Lothar,

schon mal in die Hilfe geschaut ?

Public Sub TitleBlockCopy()

    Dim oSourceDocument As DrawingDocument
    Set oSourceDocument = ThisApplication.ActiveDocument

    ' Open the new drawing to copy the title block into.
    Dim oNewDocument As DrawingDocument
    Set oNewDocument = ThisApplication.Documents.Open("C:\temp\TitleBlockChange.idw")

    ' Get the new source title block definition.
    Dim oSourceTitleBlockDef As TitleBlockDefinition
    Set oSourceTitleBlockDef = oSourceDocument.ActiveSheet.TitleBlock.Definition

    ' Get the new title block definition.
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)

    ' Iterate through the sheets.
    Dim oSheet As Sheet
    For Each oSheet In oNewDocument.Sheets
        oSheet.Activate

        oSheet.TitleBlock.Delete
        Call oSheet.AddTitleBlock(oNewTitleBlockDef)
    Next
End Sub

Grüsse, Paul

www.morecam.ch
www.thinkcad.de

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

---

Zitat:

---

Original erstellt von PaulSchuepbach:
...

    ' Get the new title block definition.
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(oNewDocument)
...

---

kann es sein, daß es das "CopyTo" erst ab IV10 gibt?

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

Hallo Lothar,

definitiv Ja.

Grüsse,

Paul

www.morecam.ch
www.thinkcad.de

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

---

Gut - dann habe ich hier mit IV9 keine Chance 

also Danke.

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
�Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

[Diese Nachricht wurde von lbcad am 30. Jan. 2006 editiert.]

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