neue Makro-Ordner erstellen

[samurai76]

Hallo an alle, tut mir leid, aber um Verwirrung zu vermeiden, öffnete ich eine weitere Diskussion, indem ich mich an folgende:
http://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/Ich nutze die Makros, um idw-Dateien in pdf und dxf zu exportieren und es funktioniert perfekt (ringrazio Cataphras) aber jetzt brauche ich eine Faulheit. Ich möchte in dem Verzeichnis, in dem die idw ist, einen Unterordner (z.B. ...\dxf-pdf... obwohl nicht vorhanden) erstellen, in dem die Ausgabe des Makros gespeichert werden soll.
was kann den Code unten (ich erinnere mich nicht, wo und bearbeitet zu doc) eingefügt in der Regel in ilogic, aber ich kann nicht in das Makro oben.

syntaxeditor code snippetopath = thisdoc. Pfad
ofilename = thisdoc.filename(false) 'ohne Erweiterung
"orevnum = iproperties.value("project", "Revision number")
"orevnum = iproperties.value("project", "check by")
opdfaddin = thisapplication.applicationaddins.itembyid _
({0ac6fd96-2f4d-42ce-8be0-8aea580399e4})
odocument = thisapplication.activedocument
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
odatamedium = thisapplication.transientobjects.createdatamedium
aktuelledate = string.format("{0: mm.ddd.yyyy}",datetime.now)

wenn opdfaddin.hassavecopyasoptionen(Okontext, Ooptionen) dann
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 1
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = Erfinder.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 2'ooptions.value("custom_end_sheet") = 4
Ende

'get pdf Zielordnerpfad
vonolder = thisdoc.path & "\pdfs" anstelle von "k:\dwg\pdf\"

'Check für den pdf-Ordner und erstellen Sie es, wenn es nicht existiert
wenn nicht system.io.directory.exists(ofolder) dann
system.io.directory.createdirectory(ofolder)
Ende

'Eingabe des pdf-Zieldateinamens
odatamedium.filename = vonolder & "\" & ofilename >
"_rev" & aktuelles & ".pdf"

'veröffentlichtes Dokument
opdfaddin.savecopyas(odocument, ocontext, ooptions, odatamedium)

Danke für die Verfügbarkeit
Samuele