Bonjour,
Je suis très loin d'être un expert en VBA, et pourtant je recherche un moyen de modifier des tolérances selon une formule conditionnelle en VBA. Pour le moment j'arrive juste a sélectionner une cote et modifier sa tolérance, mais je bloque car je n'arrive pas a récupérer la valeur de cette cote pilotée pour la formule conditionnelle de laquelle en résulte le choix de la tolérance.
J'ai déjà ceci :
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
boolstatus = Part.ActivateView("Drawing View12")
boolstatus = Part.Extension.SelectByID2("RD1@Drawing View12", "DIMENSION", 0.133426296089701, 0.207466790382401, 0, False, 0, Nothing, 0)
boolstatus = Part.EditDimensionProperties2(4, 0.0001, 0, "", "", True, 9, 1, True, 12, 12, "", "", True, "", "", True)
Part.ClearSelection2 True
End Sub
Quelqu'un aurait il une proposition?
Merci d'avance