ボツマクロ：ネジセット

数年前に、ＣＡＥ２Ｄで、
ネジを自動で作図（というより、パターンを呼び出し）するマクロを作成しました。
最近、ブログネタもないので、この使ってないマクロを紹介します。

Excel ＶＢＡでのＣＡＥ２Ｄのカスタマイズでは、通常のコマンドのように
始点、終点などの指示が出来ないのがつらいのですが、
このネジセットマクロは、その点を特殊な線を利用して、なんとかしてます。


１．板厚１９mmの側面図にボルト、ナットの組合せの図を作図します。
　　中心線を作図しておきます。

２．中心線と重ねて、板厚分の直線を作図します。

３．２で作図した線を、「線種変更」で、「幅付」の線に変更します。
　　これが、マウスで、始点、終点を指示した代わりとなります。

４．ネジセットマクロを起動！
　　「ボルト」
　　「ワッシャ、スプリングワッシャ、ナット」
　　「サイズＭ１２」を選択。
　　そして、「作図」をクリック

 


５．２で作図した線の始点、終点を板厚と見立てて、
　　その場所に、ボルトナットが作図されます。

６．確認のために、寸法を入れてみました。

今使ってみると、意外といいじゃん。と思ってしまった。
なぜ、お蔵入りにしてしまったのか・・・。
パターンを呼び出して、貼り付けるやり方が気に入らなかったからなのか・・・。

う～ん、自分でもなぞ。