---

Hi!!

Ich sollte dringend einen ganzen haufen idwŽs nach DXF oder DWG exportieren.
Ich hab mir das  KWiKBatchRun runtergeladen und auch diese Beispiel-Macros, aber leider funktioniern die bei mir nicht.
Ich hab IV8 SP1. Kann das daran liegen??

Wer hat ein für IV8 funktionierendes Macro für den DXF/DWG export???

danke für eure hilfe!!!!

TC => The voice

------------------
Inventor ist cool...
Inventor ist .... anders...

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

---

Hi Thomas,

eigentlich müßte dieses Macro Dir helfen können ( ist nicht von mir, sondern aus der Hilfe ):

Private Sub DWGTEST()
'Aufruf der Funktion "Export2DWG" - Zeichnungsname ohne .DWG

Call Export2DWG("TestDWG", "C:\")

End Sub

Public Function Export2DWG(ByVal strFN As String, ByVal strFP As String)

Dim oApp As Application
Set oApp = ThisApplication

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

Dim bSaveAsCopyOptions As Boolean
Dim oAppAddIns As ApplicationAddIns
Dim oDataMedium As DataMedium
Dim oDWGTransl As TranslatorAddIn
Dim oTransObjs As TransientObjects
Dim oTranslCntxt As TranslationContext
Dim oNameValMap As NameValueMap
Dim intIndex As Integer

Set oAppAddIns = oApp.ApplicationAddIns

For intIndex = 1 To oAppAddIns.Count
  If oAppAddIns(intIndex).ShortDisplayName = "Autodesk DWG-Translator" Then
    Set oDWGTransl = oAppAddIns.Item(intIndex)
    Exit For
  End If
Next intIndex

'Translation Objekte setzen

Set oTransObjs = oApp.TransientObjects
Set oNameValMap = oTransObjs.CreateNameValueMap
Set oTranslCntxt = oTransObjs.CreateTranslationContext
Set oDataMedium = oTransObjs.CreateDataMedium

oTranslCntxt.Type = kFileBrowseIOMechanism

bSaveAsCopyOptions = oDWGTransl.HasSaveCopyAsOptions(oDataMedium, oTranslCntxt, oNameValMap)

oDataMedium.FileName = strFP & strFN & ".DWG"

'Hier Pfad und Dateiname angeben wo die .ini Datei sich befindet!!!
oNameValMap.Value("Export_Acad_IniFile") = "c:\test.ini"

oDWGTransl.SaveCopyAs oDoc, oTranslCntxt, oNameValMap, oDataMedium

Set oAppAddIns = Nothing
Set oDataMedium = Nothing
Set oDWGTransl = Nothing
Set oTransObjs = Nothing
Set oTranslCntxt = Nothing
Set oNameValMap = Nothing

End Function

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

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