新しいマクロフォルダーを作成する

[samurai76]

皆にこんにちは、申し訳ありませんが、混乱を避けるために、私は私にリンクすることによって別の議論を開いた:
https://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/私は、pdfとdxfでidwファイルをエクスポートするために、マクロを使用しており、それは完全に動作します(ringrazio カタパルゼ) しかし、私は怠惰を必要としています。 idw が、サブフォルダ (例:...\dxf-pdf...) であるディレクトリで、マクロの出力を保存します。
ilogic のルールとして入力したコード(doc に編集した場所を記憶しない)は、下のコードを実行できますが、上のマクロを入力することはできません。

snippetopath = thisdoc のコードを構文編集します。 パス
ofilename = thisdoc.filename(false) 拡張子なし
'orevnum = iproperties.value("プロジェクト", "revision number")
'orevnum = iproperties.value("project", "checked")
opdfaddin = thisapplication.applicationaddins.itembyid _ opdfaddin = このアプリケーションは、
({0ac6fd96-2f4d-42ce-8be0-8aea580399e4}))
odocument = このアプリケーション.activedocument
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
odatamedium = このアプリケーション。transientobjects.createdatamedium
currentdate = string.format("{0: mm.dd.yyyy}",datetime.now")

opdfaddin.hasavecopyasoptions (document、ocontext、ooptions) がそれから
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 1
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = inventor.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 2'ooptions.value("custom_end_sheet") = 4
端 もし

'get pdf ターゲットフォルダパス
"k:\dwg\pdf\" の代わりに "k:\dwg\pdf\"

'pdfフォルダをチェックし、存在しない場合に作成する
system.io.directory.exists(ofolder)でなければ、
system.io.directory.createdirectory(フォルダ)
端 もし

'pdf ターゲットファイル名を設定する
odatamedium.filename = ofolder & "\" および ofilename と _
「_rev」と「.pdf」

ドキュメント公開
opdfaddin.savecopyas (odocument、ocontext、ooptions、odatamedium)

空き状況をありがとう
サミュレ