Gian704
Guest
発明家2021、2014年初 私はあなたがここに投稿したマクロビジュアル基本とpdfとdwgでファイルを作成することができました, 今、2021でそれはもはや視覚的基本を使用することはできません, 私は誰かがilogicと同じを行うことができるかどうかを知りたいです, 私は古いマクロをfucked, それは私が課した修正でファイルを作成しません, 私が組み合わせたものを取る, 誰かが私にエラーがある場所を教えてくれます
お問い合わせ
シンタネディケーターコードスニペット
strfolder = "c:\users\acer\desktop\dwg-dxf-pdf\" & thisdoc.filename(false) 拡張子なし
このdoc.document.saveas(strfolder&(.pdf)、true
'ooptions.value('all_color_as_black') = 0
'ooptions.value("remove_line_weights") = 0 の 0
'ooptions.value("vector_resolution") = 600
'ooptions.value("sheet_range") = kprintallsheets
'ooptions.value('custom_begin_sheet') = 1
'ooptions.value('custom_end_sheet') = 5
' リビジョン番号
dim srev として 文字列
rev = inputbox("revision:?"、"inputリビジョン番号"、"00")
ocustompropset = ("{d5cd505-2e9c-101b-9397-08002b2cf9ae")
エラーで次の再開
dim は文字列としてscod
"code" を、関心のあるハイパーパーティに使用する名前に置き換えます
scod = ocustompropset.item("code")。 バリュー
filename = filename と " rev. " & rev & ""
'pdf 翻訳者のアドインが必要です。
dim pdfaddin を翻訳者として
pdfaddin = thisapplicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
dim strinifile 文字列
' 一般的な init
' コンテキストで作成
ocontextをtranslationcontextとしてdim
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = kfilebrowseiomechanism
'namevaluemap オブジェクトで作成
dim ooptions は namevaluemap として
ooptions = thisapplication.transientobjects.createnamevaluemap
datamediumオブジェクトで作成
dim odatamedium として datamedium
odatamedium = このアプリケーション。transientobjects.createdatamedium
'path と suffix を削除することでファイル名を返す関数
'toglie il .ipt
trunc = true の場合
filename = strings.left(ファイル名、len(ファイル名) - 4)
端 もし
dim pos は整数として
' は、パスを削除する: "\" を見つけ、すべての値を正しく保持します。
スタッフ
pos = instr(ファイル名、\")
filename = strings.right(ファイル名、len(ファイル名) - pos)
pos = 0までのループ
島名 = ファイル名
お問い合わせ
シンタネディケーターコードスニペット
strfolder = "c:\users\acer\desktop\dwg-dxf-pdf\" & thisdoc.filename(false) 拡張子なし
このdoc.document.saveas(strfolder&(.pdf)、true
'ooptions.value('all_color_as_black') = 0
'ooptions.value("remove_line_weights") = 0 の 0
'ooptions.value("vector_resolution") = 600
'ooptions.value("sheet_range") = kprintallsheets
'ooptions.value('custom_begin_sheet') = 1
'ooptions.value('custom_end_sheet') = 5
' リビジョン番号
dim srev として 文字列
rev = inputbox("revision:?"、"inputリビジョン番号"、"00")
ocustompropset = ("{d5cd505-2e9c-101b-9397-08002b2cf9ae")
エラーで次の再開
dim は文字列としてscod
"code" を、関心のあるハイパーパーティに使用する名前に置き換えます
scod = ocustompropset.item("code")。 バリュー
filename = filename と " rev. " & rev & ""
'pdf 翻訳者のアドインが必要です。
dim pdfaddin を翻訳者として
pdfaddin = thisapplicationaddins.itembyid("{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
dim strinifile 文字列
' 一般的な init
' コンテキストで作成
ocontextをtranslationcontextとしてdim
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = kfilebrowseiomechanism
'namevaluemap オブジェクトで作成
dim ooptions は namevaluemap として
ooptions = thisapplication.transientobjects.createnamevaluemap
datamediumオブジェクトで作成
dim odatamedium として datamedium
odatamedium = このアプリケーション。transientobjects.createdatamedium
'path と suffix を削除することでファイル名を返す関数
'toglie il .ipt
trunc = true の場合
filename = strings.left(ファイル名、len(ファイル名) - 4)
端 もし
dim pos は整数として
' は、パスを削除する: "\" を見つけ、すべての値を正しく保持します。
スタッフ
pos = instr(ファイル名、\")
filename = strings.right(ファイル名、len(ファイル名) - pos)
pos = 0までのループ
島名 = ファイル名
Last edited: