SWJUG-RING

SOLIDWORKS Japan User Group 公式コミュニティサイト

> 解決しました。 勉強になりました。情報提供ありがとうございます！

解決しました。 アセンブリパーツをパーツとして保存する場合は、部品種類ごとに作成してあるテンプレートを選択できるようにSW標準のテンプレート選択ウィンドウ表示し選択適用できるようにしました。 参考コード抜粋：Dim Ptemp As String'SW標準のテンプレート選択ウィンドウ表示Ptemp = swApp.GetDocumentTemplate(swDocPART, "", 0, 0#, 0#)'部品デフォルトテンプレートを選択テンプレートに設定boolstatus =...

先日の投稿ですが、困っている内容が少し違ったので、再度投稿します。 AssemblyファイルをPartsとして保存するときに「オプション」設定のデフォルトテンプレート（部品）が適用されますが、これを指定して適用したい方法が不明です。 SW標準保存であれば、テンプレート選択ウィンドウが表示され選択可能なので、マクロ記録し試しましたが、NewDocumentで指定した部品ファイルは開くが、モデルが保存されないです。 【SW標準保存記録コードAssemblyファイルをPartsとして保存】 D...

また困りました。 AssemblyファイルをPartsとして保存するときに作成済みの部品用プロパティテンプレートを適用したいのですが、方法がわかりません。今は勝手に違う部品用テンプレートが適用されてしまいます。 保存時に指定プロパティテンプレートを適用する方法を教えて下さい。よろしくお願いします。

追記します。swComp.Name2で取得した構成部品名には、必ず末尾に子NO,がついてしまいますが、不要につきInStrRevで末尾から”ー”位置取得しMidにて取得した文字位置から文字列取得、Replaceで末尾”ー”以降を置換え（削除）するようにしました。  '現在の構成部品名を読み込み  Dim OldName As String  OldName = swComp.Name2   ...

重箱の隅つつかれるとダダ漏れしますよ（笑）連休明けフル回転で煙もでてますが。。 Instrやっと理解できました。今回のように詳しく教えて頂かないと、すぐパンクするので手取り足取りで説明お願いします（笑）たしかにこの方法であれば、Nextで回してるので、つけたいプレフィックス名で判断がつくことになります。 If InStr(取得名, プレフィックス名) = 0...

InStrでの判定、これもうまく伝わっていないようですね。というかマクロを実行したときの挙動を把握出来ていないのかも知れません。（.AddPrefix専用コード？＜－その話ではないです、これは私も初耳（目？）） STEP BY...

ぼくも重箱の隅を・・ > PathName = Right(PathName, 1) 11個以上同じファイルがあるとだぶりそうです。ちなみにぼくはファイル名を配列に入れて逐一チェックしようかとイメージしてたのでそれよりはマシですね（笑） > 【設備ハンディボックス用カールコード】設計に必要アルかナシかで言えば、ナシ 見てわかりやすいのはいろいろ気づくきっかけになるので大事だと思いますよ！色もつけましょう！笑

理解しましたよ。 <>番号1のインスタンスを削除・・確かにレアケースではありますが、無くはないですね。さて、どうしましょう？少し考えます。明日からの3連休で記憶から消す可能性もありますが・・（笑）アップサンプル画像の【元データ構成】から、同名参照部品が何個あるか見分ける何かいい方法あれば、教えて頂けると助かります。 プレフィックスに関しては、表現が悪かったですね。.AddPrefix専用コード？で接頭につけていないです。単純に取得した名前の先頭に4桁の設備NO,＆"_"をつけただ...

うまく伝えられなかったですかね。 一度構成部品を複数挿入・配置したけど、「やっぱりこれ要らんわ。」となって”－１”番目を削除していたら？という場合です。まあ、レアケースかもしれませんが無くはないということで。 InStrでの判定も、マクロ中のプレフィックス文字を付けるタイミングでの、「既に付いているか？」を見るので、その後の改定とはあまり関係ないかと思うのですが・・・。 また元々の名前に含まれている可能性についても、更に手間をかけると、プレフィックスなら文字の位置を...

>可能性の話となりますが、複数ある構成部品の”－１”付きのインスタンスを削除したASSYの場合、 追番が繰り上がっては振られないようのでその構成部品は保存されなくなりますね。→ご指摘の答えになっているか？？ですが、アップサンプル画像の【元データ構成】FutureManagerにあるように  <>内の追番が、swRootComp.GetChildrenで取得した構成部品名には-1,-2‥と付きます。 ...

一段落でホッとしているところ、気を挫くつもりはないのですが、、、 可能性の話となりますが、複数ある構成部品の”－１”付きのインスタンスを削除したASSYの場合、追番が繰り上がっては振られないようのでその構成部品は保存されなくなりますね。 別の識別方法として、名前に追加するプレフィックス（サフィックス）が既に含まれているかを”InStr”の戻り値が０かどうかで判定する方法もアリかと思います。（元々の名前にもう含まれているとダメですが・・・） &...

こんな感じですかね？とりあえず問題なさそうです。   '現在の取得構成部品より追番取得  Dim PathName As String  PathName = swComp.Name2  PathName = Right(PathName, 1)   '追番が1の参照部品のみ保存対象  If PathName = 1 Then  '現在の構成部品名を読み込み  Dim OldName As...

すいません。画像やっと投稿できました。。。 やはり、ファイル名からなんとかスキップさせる方法しかないですよね？イミディエイト確認したところ参照部品取得した時点で、必ず部品名末尾にー追番がつくので、追番取得しー１以外は保存しないようにする方向で考えてみます。 なにか方法あれば、教えて下さい。

【マクロ実行構成】構成部品7（同名2）、保存ファイル7（参照ファイル5） 【マクロ実行希望構成】構成部品7（同名2）、保存ファイル5（参照ファイル5）

> 同名の保存部品が１ファイルでいいところ子ナンバー分、保存されてしまいます。 そうなんですよね。ファイル名チェックして，同名のファイルはスキップするとかでうまくいかないですかね。

【元データ構成】構成部品7（同名2）、保存ファイル5（参照ファイル5）

投稿遅くなりました。。 提供頂いたサンプルマクロ「SaveViaVBA31」ですが、新規、既存ともに問題なく名前変更し保存が出来ることを確認しました。私が求めていたことが出来てます。ただ、初投稿前にも確認済みではありましたが、swRootComp.GetChildrenで参照部品を取得すると同じ名前の参照部品がある場合、子ナンバー別に全て取り込んでしまう為、同名の保存部品が１ファイルでいいところ子ナンバー分、保存されてしまいます。 【元データ構成】構成部品7（同名2）、保存ファイル5（参照フ...

あれ？ぼくがおいたサンプルマクロで，④もできるはずだけどなーと思ったら，「もとのアセンブリファイルの場所に新規フォルダ作る」手順になってたのでだめだったんですね。 フォルダ決め打ちだとできました。 内容的に外部参照は関係なさそうなので(中間ファイルには外部参照ないので)辻さん助言によりつくりなおしたSaveAsメソッド版をおいてます→サンプル 複数含まれてる部品のファイル名の変更がまだバグってますがサンプルにはなるかなと思います   ほんとは　保存ダイアログボックス...

>ボリュームがあって，コードは読めてないんですが，困られてるのはどこになりますか？④になります。③は提供頂いたマクロを使わせて頂き問題なく使用可能です。 >これを見ると，Assyを上書きはできても新規保存はできない，のかなと思うのですが，そのとおりです。中間ファイル開き何も保存されていない状態から、アセンブリファイルと参照部品を名前変更し新規保存するときにどうするべきか悩んでます。 よろしくお願いします。