Code:
Public Function Export2DXF(ByVal strFN As String, ByVal strFP As String, ByVal oRevision 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 oDXFTransl 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 InStr(oAppAddIns(intIndex).ShortDisplayName, "Translator: DXF") Then
Set oDXFTransl = 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 = oDXFTransl.HasSaveCopyAsOptions(oDataMedium, oTranslCntxt, oNameValMap)
If oRevision = "" Then
oDataMedium.FileName = strFP & strFN & ".dxf"
Else
oDataMedium.FileName = strFP & strFN & "_" & oRevision & ".dxf"
End If
MsgBox (oDataMedium.FileName)
''''' Das klappt irgendwie nicht richtig '''''
' Check whether the translator has 'SaveCopyAs' options
If oDXFTransl.HasSaveCopyAsOptions(oDataMedium, oTranslCntxt, oNameValMap) Then
Dim strIniFile As String
strIniFile = "C:\temp\test.ini"
' Create the name-value that specifies the ini file to use.
oNameValMap.Value("Export_Acad_IniFile") = strIniFile
End If
Call oDXFTransl.SaveCopyAs(oDoc, oTranslCntxt, oNameValMap, oDataMedium)
' Variablen leeren
Set oAppAddIns = Nothing
Set oDataMedium = Nothing
Set oDXFTransl = Nothing
Set oTransObjs = Nothing
Set oTranslCntxt = Nothing
Set oNameValMap = Nothing
End Function
Foren auf CAD.de (alle Foren)
| 
