Modifier tolérances de cotes de MEP en VBA.

Plan 2D Mise en plan
1

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

2

Bonjour,

Regarde si il y a ce qui t'intéresse dans la macro jointe, elle permet de lister les cotes et un certains nombre d'informations sur celles-ci, d'ajouter un texte bas sur chaque cotes puis d'afficher le résultat dans Excel.

Cordialement,


anotation_plan_solidworks.swp
3

Bonjour d.roger,

merci de ton retour, mais n'ayant pas assez d'expérience dans le VBA, je ne voudrais pas bidouiller un code sans le comprendre. Je vais donc procéder d'une autre façon, je pense simplement insérer le tableau de la famille de pièce avec les différentes dimensions et tolérances a renseigner.

Désolé de t'avoir fais perdre du temps, mais je préfère apprendre à utiliser le VBA correctement avant de faire des erreurs.

Merci encore, bonne journée.