庭園の歩道の輪郭を描く

歩道の輪郭は、gpuser サブルーチンで取得した歩道の位置と 1/2 幅を使用して描くことができます。

このサブルーチンでは、庭園の歩道の輪郭は gpuser サブルーチンで取得され、前に定義したグローバル変数に格納された値に基づいて作成されます。

1. コード ウィンドウで、gpuser サブルーチンの End Sub 文の後ろをクリックし、[Enter]を 2 回押します。
2. 次のコードを入力します。

   ' Draw the outline of the path
   Private Sub drawout()
     ' Create an array of four 2D points
     Dim points(0 To 7) As Double
   
     Dim varRet As Variant
     
     ' Define the start point
     varRet = ThisDrawing.Utility.PolarPoint(sp, angm90, hwidth)
     points(0) = varRet(0)
     points(1) = varRet(1)
   
     ' Define the second point
     varRet = ThisDrawing.Utility.PolarPoint(varRet, pangle, plength)
     points(2) = varRet(0)
     points(3) = varRet(1)
   
     ' Define the third point
     varRet = ThisDrawing.Utility.PolarPoint(varRet, angp90, totalwidth)
     points(4) = varRet(0)
     points(5) = varRet(1)
   
     ' Define the fourth point
     varRet = ThisDrawing.Utility.PolarPoint(varRet, pangle + dtr(180), plength)
     points(6) = varRet(0)
     points(7) = varRet(1)
   
     ' Draw the outline of the garden path in Model space with a lightweight polyline
     Dim pline As AcadLWPolyline
     Set pline = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
     
     ' Close the polyline
     pline.Closed = True
   End Sub

3. プロジェクトを保存します。