Usuń funkcję za pomocą vba

3D Design Other applications
1

Witam :) 

Szukam funkcji, która pozwoli mi usunąć tylko "moją funkcję", a nie funkcje potomne.

Podejście nr 1)

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("Enlèv. mat.-Extru.2", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
End Sub

 Więc użyłem go z warunkiem 

If (Sheets("BD_Valeur").Range("D154")) = True Then

boolstatus = Part.Extension.SelectByID2((Sheets("BD_Valeur").Range("B154")), "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

Part.EditDelete

End If

 

Wszystko to działa bardzo dobrze, ale: 

Usunął funkcję z zaznaczonym polem.

 

Czy masz odpowiednią funkcję?

A może wiesz, czy muszę zmodyfikować zmienną?

 

2

boolstatus = Part.Extension.DeleteSelection2(0)

 

Rozwiązane po wielu poszukiwaniach :)

1 polubienie