SWJUG-RING

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

8/14（金）に SOLIDWORKS Apps for Kids を用いた子ども向けオンライン・ワークショップを開催します。

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

解決しました。 アセンブリパーツをパーツとして保存する場合は、部品種類ごとに作成してあるテンプレートを選択できるように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”の戻り値が０かどうかで判定する方法もアリかと思います。（元々の名前にもう含まれているとダメですが・・・） &...