パブリックサブメイン()
'アクティブなドキュメントでタイトルをチェックする
お問い合わせ
odrawdocをdrawdocumentとして
odrawdoc = このアプリケーション.activedocument
'deferupdate state を描画するかどうかを確認します。
odrawdoc.drawingsettings.deferupdates = "false" でなければ、
'showerror(" は、描画ファイルが deferupdate であるため、タイトルを変更できません")
出口のサブ
端 もし
'sostituisco i simboli nel disegno
お問い合わせ
削除シンボル
コピーシンボル
キャッチ
エンドトライ
dim title="カルティグリオ2019"
コール置換名(タイトル)
キャッチ
msgbox("errore durante sostituzione cartiglio")
エンドトライ
エンドサブ
サブ置換タイトル(文字列としてbyref title)
odrawdocをdrawdocumentとして
odrawdoc = このアプリケーション.activedocument
dimテンプレート = "c:\impostazioni_inventor\2018\templates\2019標準.idw"
dim otemplate として ドロードドキュメント
osourcetitleblockdef を titleblockdefinition とする
dim onewtitleblockdef タイトルブロック定義
dim osheet = odrawdoc.activesheet
お問い合わせ
'apro il テンプレート
otemplate = thisapplication.documents.open(template, false)
'aggancio la defineizione del nuovo kartilio
osourcetitleblockdef = otemplate.titleblockdefinitions.item(title)
'copio la defineizinoe del cartiglio nel nuovo disegno
onewtitleblockdef = osourcetitleblockdef.copyto(odrawdoc、true)
'chiudo il テンプレート
otemplate.close ディレクティブ
'msgbox("tentativo di inserimento cartiglio"&タイトル)
'inerimento カルティグリオ sul disegno
' dim i は整数者として
' intprompts を整数 = 0
' i = 1 から onewtitleblockdef.sketch.textboxes.count
' dim otext = onewtitleblockdef.sketch.textboxes(i)
' if (otext.text = "my_prompt")
' intprompts = intprompts + 1
' が終わる場合
次へ
'msgbox("trovati"&"intprompts&"messaggiプロンプト")
dim oprompts(2) 文字列
オプロンプト(0) = ""
oprompts(1) = ""
oprompts(2) = ""
osheet.titleblock.delete()
osheet.addtitleblock (onewtitleblockdef、oprompts)
'msgbox("title block" を "& vbcr & title" に変更)
例外として ex をキャッチ
msgbox("errore": "&ex.message")
エンドトライ
エンドサブ
サブdeletsymbols
dim odoc として ドロードドキュメント = thisdoc.document
dim osksymdefs として スケッチedsymboldefinitions = odoc.sketchedsymboldefinitions
dim osksymdef として スケッチedsymboldefinition
osksymdefs の各 osksymdefs
osksymdef.isreferenced = false の場合、
osksymdef.deleteの
端 もし
次へ
エンドサブ
サブコピー
dim strselectedstamp as string = "result2"
dim strstamplist は新しい配列リストとして
dim strstamp boolean として必須
strstamprequired = true の
strstamplist.add("cartilgio-2019")
'strstamplist.add("x ossitaglio")
'strstamplist.add("test")
strselectedstamp = inputlistbox("スタンプを選択します。", strstamplist, strselectedstamp, "スタンプ選択", "利用可能なスタンプ")
dim strdrawdoc として inventor.drawingdocument = thisapplication.activedocument
文字列 = "m:\_impostazioni_inventor\2018\templates\2019標準.idw"
dm strsourceidw をドロードドキュメントとして
strsourceidw = thisapplication.documents.open(sourcefile, false) ディレクティブ
dim icondef として スケッチsymboldefinition
dim copyfrom として スケッチsymboldefinition
お問い合わせ
strsourceidw.sketchedsymboldefinitions の各シンボル定義のため
copyfrom = (symboldef.copyto(strdrawdoc, true) ) から
次へ
例外として ex をキャッチ
messagebox.show(例:「タイトル」)
エンドトライ
strsourceidw.close() は、
エンドサブ
