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

タイトル ： Re^4: 空白ダイアログに名前を入力する
投稿日： 2011/12/01(Thu) 13:27
投稿者： kiyo
お世話になります。
こんな感じです。
  '******* PDFファイル印刷
     If Check2.Value = 1 Then
        '印刷部数を繰り返す
        For k = 1 To Val(Text0.Text)
        'リスト内のDWGファイルの数
         i = DwgList.listcount
         'リストの数だけ繰り返し
          For j = 0 To i - 1
         'DWGファイル名
          importfile = DwgList.List(j)
         'リストボックスの図面をオープン
         Set acaddoc = acadapp.Documents.Open(importfile)
         acaddoc.SendCommand "(" & "load" & """itoki-pdf-plot.lsp"""& ")" & vbCr
         acaddoc.SendCommand "pdf-plot" & vbCr
---→ここでpdf-plotコマンドが走って、印刷ゲージが終了。この後「CutePDF」
      からの「名前を付けて保存」画面がでます。
      
       この間に問題の処理構文が入るかと思います。
            
                   Sleep (2000)
                   SendKeys "{Enter}", True
                   'ファイルを閉じる,図面を変更保存しないで終了
                   acaddoc.Close (False)
               Next j
        Next k
     End If
-----------
こんな感じです。宜しくお願いいたします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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