・ 閉じた 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