<![CDATA[SWJUG-RING: 選択されている平面が平行かどうか調べるマクロ]]> http://swjug.org/file/view/113666/%E9%81%B8%E6%8A%9E%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E5%B9%B3%E9%9D%A2%E3%81%8C%E5%B9%B3%E8%A1%8C%E3%81%8B%E3%81%A9%E3%81%86%E3%81%8B%E8%AA%BF%E3%81%B9%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD http://swjug.org/file/view/113666/%E9%81%B8%E6%8A%9E%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E5%B9%B3%E9%9D%A2%E3%81%8C%E5%B9%B3%E8%A1%8C%E3%81%8B%E3%81%A9%E3%81%86%E3%81%8B%E8%AA%BF%E3%81%B9%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD Mon, 19 Jun 2017 23:44:25 +0900 http://swjug.org/file/view/113666/%E9%81%B8%E6%8A%9E%E3%81%95%E3%82%8C%E3%81%A6%E3%81%84%E3%82%8B%E5%B9%B3%E9%9D%A2%E3%81%8C%E5%B9%B3%E8%A1%8C%E3%81%8B%E3%81%A9%E3%81%86%E3%81%8B%E8%AA%BF%E3%81%B9%E3%82%8B%E3%83%9E%E3%82%AF%E3%83%AD <![CDATA[選択されている平面が平行かどうか調べるマクロ]]> Function nxCheckParallelFromSelMgr(ByRef swSelMgr As SelectionMgr)

セレクションマネージャを渡すと，その中に含まれる平面が平行かどうか調べて，
平行ならTrue, 非平行ならFalseを返します。

使用例を　中に含まれる　TestProcedureモジュールに入れてあります
（ParallelCheckFromSelectionManager_test）
↑面を2つ以上選択した状態でこのプロシージャを実行すると，平行をチェックしてメッセージを出します

なお平面以外が選択に含まれていると，勝手に選択解除します。

これが何に使えるのかというと，普通はつかえません
ぼくは後に作りたい機能に必要だったので作りました

image

2017/12/24
・表裏違いを非平行としてしまうバグを修正
・アセンブリ内子部品の回転を考慮できてなかったので，部品自体の回転を計算に反映

]]> 西田将也 ";