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...