Sub Example_Explode()
    ' Этот пример создает легкую ломаную линию в пространстве модели.
    ' Затем взрывает ломаную линию.
    
    Dim plineObj As AcadLWPolyline
    Dim points(0 To 11) As Double
    
    ' Определите 2-ые точки ломаной линии
    points(0) = 1: points(1) = 1
    points(2) = 1: points(3) = 2
    points(4) = 2: points(5) = 2
    points(6) = 3: points(7) = 2
    points(8) = 4: points(9) = 4
    points(10) = 4: points(11) = 1
        
    ' Создайте легкий объект Polyline в пространстве модели
    Set plineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
    ' Установите выпуклость на одной доле ломаной линии
    plineObj.SetBulge 3, -0.5
    ZoomAll
    
    ' Взорвите ломаную линию
    MsgBox "Взорвите ломаную линию.", , "Explode Пример"
    Dim explodedObjects As Variant
    explodedObjects = plineObj.Explode
    
    ' Цикл через вырезанные объекты
    Dim I As Integer
    For I = 0 To UBound(explodedObjects)
        explodedObjects(I).Update
        MsgBox "Взорваный Объект " & I & ": " & explodedObjects(I).ObjectName, , "Explode Пример"
        explodedObjects(I).Color = acByLayer
        explodedObjects(I).Update
    Next
    
End Sub