投稿日 | : 2005/05/12(Thu) 08:45 |
投稿者 | : ぶぶ |
Eメール | : |
URL | : |
タイトル | : Re^6: 制御方法について |
気になった点をひとつ
> 上記を真似て書き換えてみました。
>
> '印刷部数を繰り返す
> For k = 1 To Val(Text1.Text)
>
> 'リスト内のDWGファイルの数
> i = DwgList.listcount
> 'リストの数だけ繰り返し
> For j = i - 1 To 0 Step -1 ←これは逆にソートします。
> 'DWGファイル名
> importfile = DwgList.List(j)
> 'リストボックスの図面をオープン
> Set acadDoc = acadApp.Documents.Open(importfile)
> '印刷実行
> '(プロッタA1の場合)
> If CheckBox2.Value = vbChecked And Val(Text1.Text) = 1 Then
> 印刷処理
> End If
> If CheckBox2.Value = vbChecked And Val(Text1.Text) > 1 Then
> For i = 1 To Val(Text1.Text)
> 印刷処理
> End If
↑ここは部数分繰り返すループが上位にあるので、単に vbChecked だったら印刷処理
でいけると思います。
> Next j
> Next k
後は花ちゃんさんが言われるようにデバッグしてみてくださいね。
AutoCadないので、同じような環境でテストしていませんが、
がんばってください。(^-^)/