タイトル : Re^2: 空白ダイアログに名前を入力する 投稿日 : 2011/11/30(Wed) 14:11 投稿者 : kiyo
YK様 有難うございます。 > APIだらけになると思いますが出来ると思いますよ。 > 図面番号は GetWindowText で取れます。 > 後、 > ページ設定画面でプロッタの名前を「CutePDF」に変更をして、 > 印刷画面でOKで > CutePDFの保存画面が出るので > WM_SETTEXTで図面番号を送ってあげれば出来そうです。 すごく、難しそうですね。私にはさっぱりです。 印刷等の設定は、AutoLISPを読み込ませていますので不要です。 -----AutoLISPの読み込み Set acaddoc = acadapp.Documents.Open(importfile) acaddoc.SendCommand "(" & "load" & """itoki-pdf-plot.lsp""" & ")" & vbCr acaddoc.SendCommand "pdf-plot" & vbCr ここまでは、印刷ゲージが出て印刷していますがこの後に「CutePDF」から「名前を付けて保存」画面が出てきます。 正常であればここでファイル名が自動入力され「Enter」を押して終わりですが、 会社PCだとなぜか「空白」なのです。原因はわかりません。 自宅のPCで試した所、ちゃんと自動入力されて「Enter」で終了です。 Sleep (2000) SendKeys "{Enter}", True すこし間を置き、sendkeys で「Enter」で出来ました。 会社PCが正常に動けばこんな苦労はしなくて済んだのです。 YK様 何とぞ、VBで処理できる様にお願いいたします。 |