---

Hallo Leute!!

Ich muss mehrere DWG Files in Arbeitsblattformate konvertieren.
Ich habe bereits den Code, der einen Rahmen (BorderDefinition) anlegt.

Um den Rahmen zu bearbeiten erhalte ich von der Edit-Funktion eine DrawingSketch.   so weit so gut

Das Sketch-Objekt enthält aber leider keine Funktionen um autocad-Geometrie einzufügen 
In der IV-Gui ist das aber sehrwohl möglich.

Könnte mir vielleicht irgendjemand einen tipp geben, wie man Dwg-Files automatisiert über Vba in Sketches reinbringt. Es sind über 200 Dwg's; händisch also nicht möglich!

Danke im voraus

Code:

---

Dim BrdDefinition As BorderDefinition
Set BrdDefinition = CurrDrawing.BorderDefinitions.Add(FormatName)
Dim BrdSketch As DrawingSketch
BrdDefinition.Edit BrdSketch

'DWG-File einfügen
'Hier müsste ich die DWG in den Rahmen einfügen

BrdDefinition.ExitEdit

---

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

---

Zitat:

---

Original erstellt von CadVbaAdmin:

Das Sketch-Objekt enthält aber leider keine Funktionen um autocad-Geometrie einzufügen   
In der IV-Gui ist das aber sehrwohl möglich.

---

Hallo CadVbaAdmin,

... und was hat das mit dem Preis von Tee in China zu tun ????

Garnichts ! Und genausowenig heisst es, dass man was codieren kann, wenn es über das GUI geht.

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:
 
Und genausowenig heisst es, dass man was codieren kann, wenn es über das GUI geht.

---

Nu Ja, da hat er wohl recht, der Paul.
obgleich die Antwort nicht besonders konstruktiv ist

ich bin inzwischen auf ein beispiel in der IV-VBA-hilfe gestoßen, wo eine datei in das dwf-Format konvertiert wird. das ganze ohne export-dialog. 
hierfür wird das interne dwf-translator-addin verwendet. auch ein addin für dwg-files wäre bei inventor dabei, ich habe aber noch keinen Beispiel-code dafür gefunden.

Das Beispiel-Makro für DWF-Files findet man im Inventor unter Hilfe>Programmierungshilfe>Index>Translator Addin Object

falls irgendjemand weitere informationen oder beispielcode zum thema Translator Addin Objects oder DWG-Import hat, würde ich mich über eine Antwort sehr freuen

danke im voraus

p.s.
bitte keine weiteren details über teepreise in china

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

---

Gute Nachrichten!     

Ich habe das Problem mit dem DWG-Import gelöst. Ich werde in kürze den Code zum Importieren einer DWG-File hier veröffentlichen.

Bis bald ...

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

---

Der Code würde mich auch interessieren! Kannst Du ihn mal bei Gelegenheit reinsetzen?

------------------
Helmut Backs
Polysius AG

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

---

Zitat:

---

Ich habe das Problem mit dem DWG-Import gelöst. Ich werde in kürze den Code zum Importieren einer DWG-File hier veröffentlichen.

---

Nur aus Interesse --- kommt da noch was?

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Hallo CadVbaAdmin,

Zitat:

---

Ich werde in kürze den Code zum Importieren einer DWG-File hier veröffentlichen.

---

leere Versprechungen sind hier im Forum glaub ich nicht gern gesehen oder was heißt "... in kürze"!

------------------
Gruß
SEHER
www.inventor-tools.de

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

---

Sorry  das hab ich a bissl verschwitzt !!

ich bin seit einem Monat nicht mehr als inventor entwickler tätig, deshalb ist das irgendwie in vergessenheit geraten. Wie gesagt, keine böse absicht 

Ich stelle den Code bis 18:00 Online, Großes Indianer Ehrenwort

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

---

so, gut ding braucht weile! 

Falls irgendwer eine optimierte Version aus dieser erstellt, dann bitte einfach hier posten, danke für die geduld und viel spass,

Achtung:
Kein Option Explicit

Code:

---

Sub ImportDwg()

'App-Objekt
Dim app As Application
Set app = ThisApplication

'Nach Richtigem Addin Suchen:
'Muss in der englischen Version nicht unbedingt funktionieren,
'Da nach der passenden Description gesucht wird (Quick and Dirty)

Dim addins As ApplicationAddIns
Dim DWGAddIn As TranslatorAddIn
Set addins = app.ApplicationAddIns

For i = 1 To addins.Count
    If addins(i).AddInType = kTranslationApplicationAddIn Then
        If addins(i).Description = "Autodesk Interner DWG-Translator" Then
            Set DWGAddIn = addins.Item(i)
        End If
    End If
Next i

'Activate AddIns
DWGAddIn.Activate

Dim transientObj As TransientObjects
Set transientObj = app.TransientObjects

'Zu importierende Datei
Set file = transientObj.CreateDataMedium
file.FileName = "c:\test.DWG"

Dim idw As DrawingDocument
Set idw = ThisApplication.ActiveDocument

Dim Context As TranslationContext
Set Context = transientObj.CreateTranslationContext

Context.OpenIntoExisting = idw '.ActiveSheet '.Sketches(1)
Context.Type = kFileBrowseIOMechanism

Dim Options As NameValueMap
Set Options = transientObj.CreateNameValueMap

b = DWGAddIn.HasOpenOptions(file, Context, Options)
DWGAddIn.Open file, Context, Options, idw

End Sub

---

[Diese Nachricht wurde von CadVbaAdmin am 05. Sep. 2006 editiert.]

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