---

Hallo Ihr lieben Helferlein,

habe die Suche mal wieder bemüht, aber wahrscheinlich mit dem falschen Suchbegriff.

Gibt es eine Möglichkeit, zBsp. einen "Knopf" von Igor mit dem ich schnell eine DWG von einer IDW machen kann?

Für die wo sich fragen wozu ich das brauche:
1. bin ich faul und möchte nicht jedesmal kopie speichern unter..., wenn es sich umgehen läßt
2. bin ich vergesslich und denke im 1. Moment nicht gleich daran jede Zeichnung in dwg zu wandeln.

Vielen Herzlichen Dank

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

---

Code:

---

Public Sub CreateDWG()
    On Error Resume Next
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
        Exit Sub
    End If
   
    Dim oDoc As Inventor.DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument

    If oDoc.FullFileName = "" Then
        MsgBox "Bitte zuerst die Zeichnung speichern...  "
        Exit Sub
    End If
    oDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dwg"), True
   
    If Err.Number = 0 Then
        MsgBox "Die Datei:" & vbCrLf & vbCrLf & Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dwg") & vbCrLf & vbCrLf & "wurde erfolgreich gespeichert"
    Else
        MsgBox "Fehler: " & Err.Description
    End If
End Sub

---

Weißt du auch wie man den Knopf von Igor erstellt? 

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,
nicht schlecht, da auch ich immer öfters nebenbei die DWG-Files brauche. Wie wäre es denn, wenn noch die Abfrage kommt in welches Verzeichnis das DWG-File und unter welchen Dateinamen gespeichert werden soll?
 

------------------
----------
Gruß Matthias

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

---

Hallo Matthias,

dann würde der Automatisierungsfaktor verloren gehen, denn genau das was du haben willst bekommst du mit  "Datei->Kopie Speichern unter..." Oder?

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hallo Igor,
habe gerade deine Zeilen gelesen, natürlich hast du Recht, ich war mit dem Schreiben einfach mal wieder zu schnell ohne darüber nachgedacht zu haben. Aber dein Code hilft mir auch so schon weiter.
Danke für die schnelle und kompetente Antwort.

------------------
----------
Gruß Matthias

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

---

Zitat:

---

Weißt du auch wie man den Knopf von Igor erstellt?

---

10 U´s für Igor!!!
Nein weis nicht wie es geht , aber da ich vor ein paar Tagen einen Tip von Dir gelesen habe, wo Du einen Link zum Makros programieren angehängt hast. Habe ich es Dank dieser Anleitung aus dem Inventor Magazin gut hinbekommen .

Vielen Dank Igor, werd nach brauchbaren Makros jetzt immer die Augen offen halten, denn jetzt weis ich wie man sie programiert.

Dickes Danke an Dich, ich will nicht wissen, wie vielen Du von uns mit Deinen Makros die Arbeit erleichterst. DANKE!!!!

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

---

einmal PM für Igor

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

---

Hab das Ding gleich noch für dxf umgebaut 
---------------------------------------------------------
Public Sub CreateDXF()
    On Error Resume Next
    If ThisApplication.ActiveDocument.DocumentType <> kDrawingDocumentObject Then
        Exit Sub
    End If
   
    Dim oDoc As Inventor.DrawingDocument
    Set oDoc = ThisApplication.ActiveDocument
    If oDoc.FullFileName = "" Then
        MsgBox "Bitte zuerst die Zeichnung speichern...   "
        Exit Sub
    End If
    oDoc.SaveAs Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dxf"), True
   
    If Err.Number = 0 Then
        MsgBox "Die Datei:" & vbCrLf & vbCrLf & Replace(oDoc.FullFileName, Right(oDoc.FullFileName, 3), "dxf") & vbCrLf & vbCrLf & "wurde erfolgreich gespeichert"
    Else
        MsgBox "Fehler: " & Err.Description
    End If
End Sub
--------------------------------------------------------------

[Diese Nachricht wurde von Little_Devil am 24. Okt. 2008 editiert.]

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

---

Cool. Hättest du mit Suchen und Ersetzen "programmiert" würdest du jetzt keine Fehler ("dwxf") drin haben  Aber ja, so einfach kann Programmieren sein 

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Danke Igor, schon korrigiert

Sei Nachsichtig mit mir, bin ja schon froh das ich es überhaupt geschafft habe. Nur mit den ICON-Bild haut das nicht so ganz hin

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

---

Zitat:

---

Original erstellt von Little_Devil:
Nur mit den ICON-Bild haut das nicht so ganz hin   

---

Hier habe ich es mal ausführlicher erklärt...

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist!

Zitat:

---

Original erstellt von daywa1k3r:

Hier habe ich es mal ausführlicher erklärt...

---

Hi Jungs!

ich bin leider kein programmierer.... aber ich denke das ist für einen von euch n klacks... kann man dieses makro nicht auch noch erweitern mit dem befehl "pdf erstellen" ??? das wäre genau des was ich suche....

thx in advance

TC

------------------
Inventor ist cool...
Inventor ist .... anders...
PSP macht den Braten erst fett..  ;-)

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