概要 - オブジェクトを削除する(VBA/ActiveX)

Delete メソッドを使用して、個々のオブジェクトを削除できます。

注: ActiveX オートメーションのコレクション オブジェクトには、タイプ ライブラリに定義されている方法に応じた Delete メソッドがあります。しかし、ModelSpace コレクション、Layers コレクション、Dictionaries コレクションなどのコレクション オブジェクトは、決して削除してはいけません。コレクションを削除しようとすると、エラーとなります。

ポリラインを作成し、削除する

次の例は、最適化ポリラインを作成し、次にそれを削除します。

Sub Ch4_DeletePolyline()
  ' Create the polyline
  Dim lwpolyObj As AcadLWPolyline
  Dim vertices(0 To 5) As Double
  vertices(0) = 2: vertices(1) = 4
  vertices(2) = 4: vertices(3) = 2
  vertices(4) = 6: vertices(5) = 4
  Set lwpolyObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(vertices)
  ZoomAll

  ' Erase the polyline
  lwpolyObj.Delete
  ThisDrawing.Regen acActiveViewport
End Sub