tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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で処理できる様にお願いいたします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。