Tube&Pipe 003: “batch delete work features”

[salariua]

While in route you can’t delete multiple work features in Included Geometry, and you need to select and delete each one individually. This is very time consuming, and we need to be able to use delete on selected items.

@dan_szymanski

[Ruffy85]

Sub DeleteWorkfeatures()
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
    Dim oItem As Object
    For Each oItem In oDoc.SelectSet
        oItem.Delete
    Next
    oDoc.Update
End Sub

Hi Adrian,

Short VBA Code to delete all Items which are selected, be careful no check if thats a workfeature and so on. Only a quick and dirty solution.