・ 閉じた POLYLINE LWPOLYLINE SPLINE を作る

POLYLINE LWPOLYLINE SPLINE には、Closed プロパティーが有り、これを True にすることで、閉じた POLYLINE LWPOLYLINE SPLINE を作ることができます。
始点と終点を同じ座標にすることで、見た目には閉じた図形が作画されますが、これは、本当の意味では閉じた図形ではないので、注意が必要です。

'***********************************************************************************************
'POLYLINEを閉じる/(0,0,0)-(10,20,0)の四角形を作る
'***********************************************************************************************
Sub Jo_pl_close()

  Dim obj_pline As AcadPolyline
  Dim points(0 To 11) As Double

  points(0) = 0#: points(1) = 0#: points(2) = 0#
  points(3) = 10#: points(4) = 0#: points(5) = 0#
  points(6) = 10#: points(7) = 20#: points(8) = 0#
  points(9) = 0#: points(10) = 20#: points(11) = 0#

  Set obj_pline = ThisDrawing.ModelSpace.AddPolyline(points)
  obj_pline.Closed = True 'POLYLINEを閉じる

End Sub