| 投稿者 |
メッセージ |
t.mac
登録日: 2007年5月 22日
記事: 5
|
 日時: 2008.07.15 (火) 10:49 記事の件名: 名前を付けて保存 |
 |
|
いつも拝見させていただいています。
下記のようなマクロを考えていますが、マクロ初心者で進みません…
�．▲ぅ灰鵐�リック
�▲罅璽供璽侫�ームがオープン
内容は
・Product作成（新規作成）
・Part作成（新規作成）
・Part作成（スタンダードファイルオープン）
・Drawing作成（スタンダードファイルオープン）
の4つのオプションボタンと
OK、キャンセルのコマンドボタン
��OKすると選択したものが作成or開かれ、
直後に指定パスが設定してある「名前を付けて保存」フォームを表示
�ぅ罅璽供爾�ファイル名付けてOK
「指定パスが設定してある「名前を付けて保存」フォームを表示」がなかなか出来ません。
ご存知の方おられましたら、よろしくお願いいたします。 |
|
|
| トップに戻る |
|
 |
y4yama
登録日: 2005年1月 07日
記事: 559
|
| 日時: 2008.07.15 (火) 11:53 記事の件名: Re: 名前を付けて保存 |
|
|
yoshiakiさん、こんちは 
「保存管理」に任せるのでなくて、「名前を付けて保存」フォームを表示 ですか
「名前を付けて保存」フォームとは、あなたのオリジナルのフォームですか？（不明点です）
４つのファイルを個々に、「名前を付けて保存」ですか？
Document.SaveAs で、いかようにも保存できると思いますが・・・
＞指定パスが設定してある・・
指定パスは、何から取得しますか。 何らかの、ファイルダイアログのようなものを利用するのですか？
（それがまとめてできるのが、「保存管理」ですが・・・）
不明点が多いです  |
|
|
| トップに戻る |
|
|
Mtky
登録日: 2007年5月 07日
記事: 44
所在地: Tokyo
|
| 日時: 2008.07.15 (火) 12:18 記事の件名: Re: 名前を付けて保存 |
|
|
CATIAのVBAではなく
VB2005や2008を用いれば、保存ダイアログなど
簡単に意図したことが使えると思います。
VB2005でyoshiakiさんの処理を実行ファイルにし
CATIAのVBAから呼び出せば、できるのではないでしょうか。 |
|
|
| トップに戻る |
|
|
t.mac
登録日: 2007年5月 22日
記事: 5
|
| 日時: 2008.07.15 (火) 12:40 記事の件名: Re: 名前を付けて保存 |
|
|
y4yamaさん。
早々にご回答ありがとうございます。
説明不足ですみません。
＞＞「名前を付けて保存」フォームとは、あなたのオリジナルのフォームですか？
ツールバーの「ｽﾀｰﾄ」→「名前を付けて保存」で出てくるダイアログボックスのことです。（フォームではなかったですね。）
＞＞４つのファイルを個々に、「名前を付けて保存」ですか？
4つのオプションボタンから1つ選んで作成or開かれたものに対して、名前を付けて保存をしたいと考えています。
例えば、Part作成を選ぶと新規で「Part1.CATPart」が開かれますけど、それを「001.CATPart」にする。
＞＞指定パスは、何から取得しますか。 何らかの、ファイルダイアログのようなものを利用するのですか？
とりあえずCドライブ直下にしておこうかなと思っています。
お手数おかけします。
よろしくお願いいたします。 |
|
|
| トップに戻る |
|
|
y4yama
登録日: 2005年1月 07日
記事: 559
|
| 日時: 2008.07.15 (火) 14:02 記事の件名: Re: 名前を付けて保存 |
|
|
> 」→「名前を付けて保存」で出てくるダイアログボックスのことです。
それですか。 StartCommandで、ダイアログボックスを出すまでが精一杯ではないかと・・・
ファイル名とかは、なかなか操作できないかと・・
Mtkyさんのアドバイスが当たってます。
しかし、VBAでも似たようなことが出来ました。
CommonDialog1は、Netで検索したら使い方が先ほどわかり（思い出し）ました
興味があれば、独力で探してみてくださいネ
With CommonDialog1
.CancelError = True
.DialogTitle = "保存Test"
.FileName = "c:\temp\tttxxx2.CATPart" ' <----(A)
On Error GoTo errhandler
.ShowSave
MsgBox .FileName & "です"
End With
(A)で先に.FileName =を設定してたら、そこが開きます。今回は、「001.CATPart」にする。とのことだから
ばっちりつかえそうですヨ。
ただ、これは練習問題としては意味があるでしょうが、現実は、PartのNAMEとか決まった上で
ファイル名も決めたり、Prodの関係もありで、保存管理のお世話になるのが妥当かと思いました  |
|
|
| トップに戻る |
|
|
t.mac
登録日: 2007年5月 22日
記事: 5
|
| 日時: 2008.07.15 (火) 15:32 記事の件名: Re: 名前を付けて保存 |
|
|
Mtkyさん
ご回答ありがとうございます。
y4yamaさん
詳しいご説明ありがとうございます。
Mtkyさん、y4yamaさんのご説明をもとに、CommonDialog1をツール→その他のコントロールから設定して試そうとしたのですが、
「正式にライセンスされていないため、コントロールを作成することはできません」
というメッセージが出て出来ませんでした。
そこで保存管理を使っての方法を考えようと思いますが、保存管理では事前にフォルダなどを指定することは出来るのでしょうか？ |
|
|
| トップに戻る |
|
|
Mtky
登録日: 2007年5月 07日
記事: 44
所在地: Tokyo
|
| 日時: 2008.07.15 (火) 16:00 記事の件名: Re: 名前を付けて保存 |
|
|
保存管理は、マクロで使うものではないと思います。
yoshiakiさんのやりたいことが
そもそもマクロでなくてはいけないものなのでしょうか？ |
|
|
| トップに戻る |
|
|
y4yama
登録日: 2005年1月 07日
記事: 559
|
| 日時: 2008.07.15 (火) 16:31 記事の件名: Re: 名前を付けて保存 |
|
|
| yoshiaki wrote: | Mtkyさん、y4yamaさんのご説明をもとに、CommonDialog1をツール→その他のコントロールから設定して試そうとしたのですが、
「正式にライセンスされていないため、コントロールを作成することはできません」
というメッセージが出て出来ませんでした。 |
まともにCATIAをつかってるなら、VBAでそんなエラーになります？？（インストールの問題？）
それはさておき、だったら、VB2005ExpressEditionとかで練習すればいい話かと。
とにかく、本件は、現実に使えるとは思えないですので |
|
|
| トップに戻る |
|
|
t.mac
登録日: 2007年5月 22日
記事: 5
|
| 日時: 2008.07.15 (火) 17:27 記事の件名: Re: 名前を付けて保存 |
|
|
y4yamaさん、Mtkyさんありがとうございます。
確かによくよく考えるとマクロの必要はないかもしれないですね。
マクロっていうことにとらわれすぎていました。
またお世話になるかもしれません。
ありがとうございました。 |
|
|
| トップに戻る |
|
|
kuni9215
登録日: 2007年9月 12日
記事: 46
|
| 日時: 2008.07.18 (金) 13:40 記事の件名: Re: 名前を付けて保存 |
|
|
CATpartに関しては
1. あらかじめ新規パーツを保存しておく
2. オリジナルのフォームからファイル名を入力し、1．のCATPartをこの名前でコピーする。
とするとできそうです。
プロダクトに関してはリンクがあるので難しいですが、「送る」がバッチ的に動けば似たようなことができるかもしれません。
新規パーツ(など)を保存するのが本来の目的とは思えないので、本当にやりたいことがいまいちわからないので、はずしていたらごめんなさい。 |
|
|
| トップに戻る |
|
|
|
