DMUｽﾍﾟｰｽｱﾅﾘｼｽのｾｯｼｮﾝ3

こちらの続きです。
DMUｽﾍﾟｰｽｱﾅﾘｼｽのｾｯｼｮﾝ2 - C#ATIA
CATIAのマクロです。

気が付くのが遅かったのですが、grabcadこちらで問い合わせを
頂いてました。(コメント欄です)
Free CAD Designs, Files & 3D Models | The GrabCAD Community Library
一か月程放置してました。スイマセン。

頑張って日本語のブログを読んでくれたようです。
断面数を”1”として入力しても3個断面を作ってしまうとの事です。

断面数1の場合、ガイドのラインの中心部分だけに断面を作るわけ
ではなく、ラインの両端にも断面を作るようにマクロがなってました。
ん～よく覚えていないのですが。

その為、両端の断面を作らないようにするためには、
InitRange関数を以下の様に修正すると大丈夫です。

Private Function InitRange(ByVal Count As Long) As Collection
 Dim Lst As Collection
 Set Lst = New Collection

 Dim stp As Double
 stp = 1# / (Count + 1)

 Dim i As Long
 For i = 1 To Count
  Lst.Add i * stp
 Next
 Set InitRange = Lst
End Function

ドイツ人かな？