|
Inventor VBA : dxf export mit Optionen
hugeng am 16.04.2009 um 09:25 Uhr (0)
Hallo zusammenFolgendes Makro (Funktion) funktioniert einwandfrei: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 ...
| | In das Form Inventor VBA wechseln |
|
Inventor VBA : dxf export mit Optionen
hugeng am 16.04.2009 um 16:46 Uhr (0)
Danke für die Hilfe rkauskh.Ich hab das mal so ähnlich angepasst (ohne if-Abfrage). Irgendwie scheint das aber immer noch nicht zu klappen. Es gibt auch keine Fehlermeldung wenn ich z.B. eine nicht existierende Datei bei oNameValMap.Value("Export_Acad_IniFile") angebe.Im Anhang habe ich das gesamte Makro + meine Ini-Datei mit den Exportoptionen.Vielleicht findet jemand den Hund ------------------Viele Grüssehugeng
| | In das Form Inventor VBA wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |