Hallo
Derzeit verwende ich eine ilogic-Regel (unten), um beim Speichern des IDW automatisch dxf-Dateien zu erstellen.
Als Vault-Benutzer möchte ich (wenn möglich) die DXF-Datei während der Archivierung oder Validierung automatisch an die IDW-Datei anhängen.
Das Endziel besteht darin, die dxf- und pdf-Dateien aus dem Top-Set aus dem Tresor in einem Schritt zu extrahieren.
Danke für Ihre Hilfe.
' Holen Sie sich das DXF-Übersetzer-Add-In. Dim DXFAddInAsTranslatorAddIn DXFAddInThisApplication.Anwendungs-AddIns. ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}") 'Setzt einen Verweis auf das aktive Dokument (das Dokument, das veröffentlicht werden soll). DimoDocumentAsDocument oDocumentThisApplication.ActiveDocument DimoContextAsTranslationContext oContext ThisApplication.TransientObjects. CreateTranslationContext oKontext. Geben SieIOMechanismEnum ein. kFileBrowseIOMechanismus ' Erstellen eines NameValueMap-Objekts Dimmen oOptionenalsNameValueMap oOptionenfür ThisApplication.TransientObjects. CreateNameValueMap ' Erstellen eines DataMedia-Objekts DimoDataMediumAsDataMedium oDataMediumThisApplication.TransientObjects. CreateDataMedium ' Prüfen Sie, ob der Übersetzer über die Option 'SaveCopyAs' verfügtWennDXFAddIn. HasSaveCopyAsOptions(oDocumentoContextoOptionsThen DimstrIniFileAsString strIniFile"C:\temp\dxfout.ini"" ' Erstellen Sie den Name-Wert, der die zu verwendende INI-Datei angibt. oOptionen. Value("Export_Acad_IniFile"strIniFile EndIf 'Legen Sie den Namen der ZieldateioDataMedium fest.DateinameThisDoc. PathAndFileName(False".dxf" 'Dokument veröffentlichen. DXFAddIn. SaveCopyAs(oDocumentoContext oOptionsoDataMedium)'Starten Sie die dxf-Datei in der Anwendung, die Windows so eingestellt hat, dass dieser Dokumenttyp mit iMessageBox geöffnet wird. Show("Vorschau der DXF-Datei?""Title",MessageBoxButtons.JaNein,MessageBoxIcon. Frage) WennichvbJadannThisDoc. Launch(oDataMedium.Dateiname)