今年も認定試験無償キャンペーンが始まりますので、
たくさんの方に挑戦していただきたく勉強会を計画しました。

誰かのモデリングを見ながら、参加者で最適な手法を考えたり
横網代さんから解説をおこなってもらい
CSWP問題のモデリングのコツを学びたいと思います。
当日モデリング挑戦してもいいよ、という人がいましたらご連絡ください。
ZOOMのリモート操作を使用しますのでsolidworks環境がなくても大丈夫です。

また認定試験に関する質問についてできるだけお答えしていきたいと思いますので
興味のあるかた、お気軽にご参加ください。

当日のZOOMミーティングIDは下記になります。
ミーティングID： 856 5655 1027
パスコード:20210807

近々、SOLIDWORKSを使用しているPCの入れ替えを計画してます。

現状、パーツファイルでは問題無く動くのですが、アセンブリファイルだとかなり重いです。

トップアセンブリでファイル数1000〜2000ぐらいです。

使用してるPCのスペックは

os:Win10 Enterprise

プロセッサ:Intel Xeon E3-1225 v5 3.30GHz

RAM:16GB

グラフィックボード:NVIDIA QUADRO P2000

そこで皆さんにお聞きしたのですが

どの様なスペックのPCをご使用されているのでしょうか？

当方、PCにはあまり詳しくないので現状のスペックが不足しているのかが

判断出来ずにおります。

どうぞご教授のほど宜しくお願い致します。

"Shift"*(1+exp(-10/"Length"*(x-"Length"/2)))^(-1)-"Shift"/2

のように書くとします。

””に囲まれたパラメーターはグローバル変数です。

これを軌跡として適当な円のスケッチとかを輪郭として押し出しスイープします。

そうしてできたモデルを構造解析して、

デザインスタディでパラメーターを振っても形状が変わりません。

でも、輪郭を関数式駆動カーブにして、

同じようにデザインスタディでパラメーター駆動したら、

ちゃんと形状が変わるのです。

不思議ですね。

サブアセンブリの子構成部品の個数がサブアセンブリ内の数量が表示されますが、

アセンブリ内での総数表示に出来ないでしょうか？

例えば、サブアセンブリB内で子構成部品Cを2個使用してて、

アセンブリAにサブアセンブリBを3個配置した場合、

アセンブリAの部品表（インデントタイプ）の個数欄がサブアセンブリBは3になっているが

子構成部品Cは2になります。

アセンブリA内に子構成部品Cが6個あるので6を表示させたいです。

 私の拙い知識ではどうにもならず皆様のお知恵をお貸し頂きたく宜しくお願い致します。

主催：株式会社　構造計画研究所

詳細はこちら：https://www.sbd.jp/event_seminar/Spot_210520_Hw_strngt_dsgn_cpblty.html

SOLIDWORKSアドインの構造最適化ソフトウェアであるHiramekiWorksの活用Webセミナーを開催します。

・設計者向けの構造最適化ソフトウェア

・SOLIDWORKS Simulation+構造最適化のフロントローディング

に興味のある方は、是非ご参加ください。

'部品表作成
    tableTemplate = template
    config = ""
    
    On Error Resume Next
    
    Set swBOMTableAnnotation =swView.InsertBomTable4(True, 0, 0, anchorType, bomType, config, tableTemplate, False, swNumberingType_Detailed, False)
    Set swTableAnnotation = swBOMTableAnnotation
    
    If Err.Number > 0 Then
        MsgBox "部品表を作成出来ませんでした" & vbCrLf & "最初からやり直して下さい", vbInformation
        On Error GoTo 0
    GoTo Err1
    End If
    On Error GoTo 0
    
'部品表枠変更
    swTableAnnotation.BorderLineWeight = 0.18
    swTableAnnotation.GridLineWeight = 0.18
    
'部品表並び替え

    Dim swSortData As BomTableSortData
    Dim sortSaved As Boolean
    
    Set swSortData = swBOMTableAnnotation.GetBomTableSortData
    
    swSortData.ColumnIndex(0) = 2   'ソート最優先キー3列目
    swSortData.Ascending(0) = True  '1列目ソート昇順
    swSortData.ColumnIndex(1) = 3 'ソート設定2キー4列目
    swSortData.Ascending(1) = True  '2列目ソート昇順
    swSortData.ColumnIndex(2) = -1 'ソート設定3キー無し
    'swSortData.Ascending(2) = True  '2列目ソート昇順
    
     ' 部品番号変更する
    swSortData.DoNotChangeItemNumber = False

    ' 並べ替え順序保存
    sortSaved = swSortData.SaveCurrentSortParameters
    
    '並べ替え実行
    boolstatus = swBOMTableAnnotation.Sort(swSortData)

APIでプログラムを書いています。以前はなかったのですが、いつのころからAdddimension2で寸法の表記をしようと思っているところにダイアログBOXが出てくるようになりました。boolは両方ともTRUEですし、ダイアログボックスの数値も間違ってません。こちらはこれを出さずに流したのですが、何か設定変更をしてしまったのでしょうか。なにとぞお知恵を拝借願います。

下の例では2本のLINEをSelectByID2で選び、そこでaddDimension２を選んでいます。

Set skSegment = part.SketchManager.CreateLine(x_temp, y_temp, 0#, x1_temp, y1_temp, 0#) 'LINE7
Set skSegment = part.SketchManager.CreateCenterLine(x_temp, y_temp, 0#, x_temp, D4_m / 2, 0#) 'line6

'
boolstatus = part.Extension.SelectByID2("Line8", "SKETCHSEGMENT", -1 * Haba_A_m + D7_haba / 2, D4_m / 2 + D7_takasa / 2, 0#, False, 0, Nothing, 0)
boolstatus = part.Extension.SelectByID2("Line9", "SKETCHSEGMENT", x_temp, y_temp, 0#, True, 0, Nothing, 0)

Set myDisplayDim = part.AddDimension2(-1 * Haba_A_m + D7_haba / 2 * 1.8, D4_m / 2 + D7_takasa / 2 * 1.5, 0#) '開先BWを書く
Set mydimension = part.Parameter("D8@ｽｹｯﾁ2") '????

SWファイル開く・保存などで、フォルダ選択できるエクスプローラーをマクロで作成可能でしょうか？

作成したPartsやAssemblyをユーザー定義プロパティ値の組み合わせで、自動でファイル名つけて保存する

マクロを作成しましたが、保存先フォルダ選択させる「BrowseForFolder」ですとルートフォルダ指定しないと

毎回保存先フォルダまで選択しなおすのが面倒です。ただ毎回同じフォルダに保存する訳ではない為、

ルートフォルダ指定が難しくtextボックスでルートフォルダ手入力も考えましたが、エクスプローラーのように

最後に開いたフォルダを参照してくれるみたいな都合のいいマクロがあればいいのですが。。。。

何かいい方法があれば、教えて頂けると助かります。

よろしくお願いします。

円形のモノにカム曲線を描きたいのですが、ラップ機能を使うと

面が滑らかにつながらない為、ローラーを追従して動くように合致させることができません。

わかる方教えてください。