タイトル : Re^3: 空白ダイアログに名前を入力する 投稿日 : 2011/12/01(Thu) 09:22 投稿者 : YK
こんにちは。 Acadのバージョン: 2002 OS : XP SP3 VB6 : SP6 > 印刷等の設定は、AutoLISPを読み込ませていますので不要です。 > -----AutoLISPの読み込み > Set acaddoc = acadapp.Documents.Open(importfile) > acaddoc.SendCommand "(" & "load" & """itoki-pdf-plot.lsp""" & ")" & vbCr > acaddoc.SendCommand "pdf-plot" & vbCr > ここまでは、印刷ゲージが出て印刷していますがこの後に「CutePDF」から「名前を付けて保存」画面が出てきます。 ここでページ設定画面で印刷ボタンを押しているから名前を付けて保存画面がでます。 一旦この画面を OK ボタンで終了させてから 印刷画面の OK ボタンを押した時にどうなるか試してみてください。 よかったらAutoLispを書き換える。 駄目だったらどの時点でVBに処理を渡すのか教えてください。 それと > Sleep (2000) > SendKeys "{Enter}", True はどこで処理を行っているのでしょうか? |