Unofficial CATIA User Forum


名前を付けて保存

 
新しいトピックを投稿   トピックに返信    Unofficial CATIA User Forum フォーラム一覧 -> CAAテクニカル
投稿者 メッセージ
t.mac



登録日: 2007年5月 22日
記事: 5

記事日時: 2008.07.15 (火) 10:49    記事の件名: 名前を付けて保存 引用付きで返信

いつも拝見させていただいています。
下記のようなマクロを考えていますが、マクロ初心者で進みません…

.▲ぅ灰鵐リック

▲罅璽供璽侫ームがオープン
 内容は
 ・Product作成(新規作成)
 ・Part作成(新規作成)
 ・Part作成(スタンダードファイルオープン)
 ・Drawing作成(スタンダードファイルオープン)
 の4つのオプションボタンと
 OK、キャンセルのコマンドボタン

OKすると選択したものが作成or開かれ、
 直後に指定パスが設定してある「名前を付けて保存」フォームを表示

ぅ罅璽供爾ファイル名付けてOK

「指定パスが設定してある「名前を付けて保存」フォームを表示」がなかなか出来ません。

ご存知の方おられましたら、よろしくお願いいたします。
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
y4yama



登録日: 2005年1月 07日
記事: 603

記事日時: 2008.07.15 (火) 11:53    記事の件名: Re: 名前を付けて保存 引用付きで返信

yoshiakiさん、こんちは Razz

「保存管理」に任せるのでなくて、「名前を付けて保存」フォームを表示 ですか
「名前を付けて保存」フォームとは、あなたのオリジナルのフォームですか?(不明点です)
4つのファイルを個々に、「名前を付けて保存」ですか?
Document.SaveAs で、いかようにも保存できると思いますが・・・

>指定パスが設定してある・・
指定パスは、何から取得しますか。 何らかの、ファイルダイアログのようなものを利用するのですか?
(それがまとめてできるのが、「保存管理」ですが・・・)

不明点が多いです Crying or Very sad
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
mtky



登録日: 2007年5月 07日
記事: 60
所在地: 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さん。

早々にご回答ありがとうございます。

説明不足ですみません。 Crying or Very sad

>>「名前を付けて保存」フォームとは、あなたのオリジナルのフォームですか?
ツールバーの「スタート」→「名前を付けて保存」で出てくるダイアログボックスのことです。(フォームではなかったですね。)

>>4つのファイルを個々に、「名前を付けて保存」ですか?
4つのオプションボタンから1つ選んで作成or開かれたものに対して、名前を付けて保存をしたいと考えています。
例えば、Part作成を選ぶと新規で「Part1.CATPart」が開かれますけど、それを「001.CATPart」にする。

>>指定パスは、何から取得しますか。 何らかの、ファイルダイアログのようなものを利用するのですか?
とりあえずCドライブ直下にしておこうかなと思っています。

お手数おかけします。
よろしくお願いいたします。
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
y4yama



登録日: 2005年1月 07日
記事: 603

記事日時: 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の関係もありで、保存管理のお世話になるのが妥当かと思いました Confused
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
t.mac



登録日: 2007年5月 22日
記事: 5

記事日時: 2008.07.15 (火) 15:32    記事の件名: Re: 名前を付けて保存 引用付きで返信

Mtkyさん
ご回答ありがとうございます。

y4yamaさん
詳しいご説明ありがとうございます。

Mtkyさん、y4yamaさんのご説明をもとに、CommonDialog1をツール→その他のコントロールから設定して試そうとしたのですが、
「正式にライセンスされていないため、コントロールを作成することはできません」
というメッセージが出て出来ませんでした。 Crying or Very sad

そこで保存管理を使っての方法を考えようと思いますが、保存管理では事前にフォルダなどを指定することは出来るのでしょうか?
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
mtky



登録日: 2007年5月 07日
記事: 60
所在地: Tokyo

記事日時: 2008.07.15 (火) 16:00    記事の件名: Re: 名前を付けて保存 引用付きで返信

保存管理は、マクロで使うものではないと思います。

yoshiakiさんのやりたいことが
そもそもマクロでなくてはいけないものなのでしょうか?
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
y4yama



登録日: 2005年1月 07日
記事: 603

記事日時: 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日
記事: 152

記事日時: 2008.07.18 (金) 13:40    記事の件名: Re: 名前を付けて保存 引用付きで返信

CATpartに関しては

1. あらかじめ新規パーツを保存しておく
2. オリジナルのフォームからファイル名を入力し、1.のCATPartをこの名前でコピーする。

とするとできそうです。
プロダクトに関してはリンクがあるので難しいですが、「送る」がバッチ的に動けば似たようなことができるかもしれません。

新規パーツ(など)を保存するのが本来の目的とは思えないので、本当にやりたいことがいまいちわからないので、はずしていたらごめんなさい。
トップに戻る
ユーザー情報を表示 プライベートメッセージを送信
特定期間内の記事を表示:   
新しいトピックを投稿   トピックに返信    Unofficial CATIA User Forum フォーラム一覧 -> CAAテクニカル All times are GMT +9:00
Page 1 of 1

 
移動先:  
新規投稿: 不可
返信投稿: 不可
記事編集: 不可
記事削除: 不可
投票参加: 不可
このフォーラムで添付ファイルを投稿 できません
このフォーラムでファイルをダウンロード できません

© Tadas Talaikis, oashy, 2005
Powered by phpBB © 2001, 2005 phpBB Group
WP Theme by Sebastian Schmieg. phpBB Conversion by Branwen.net