Bonjour à tous,
Je travaille à l'automatisation d'un process de CFAO et j'aimerai pouvoir extraire à partir d'une pièce ou d'un assemblage Solidworks les cotes et leurs dimensions (pour chaque fonction de la/les pièces) vers un fichier externe.
J'ai trouver grâce à M. Boutherand sur un ancien article de ''myCadblog'' une macro qui permet d'extraire ces données via un fichier excel. Seulement cette macro semble être obsolète (voir code ci dessous).
Sauriez vous m'aider à l'actualiser? (Pour info: je suis sous Solidworks 2014)
Merci beaucoup par avance pour vos retour!
Romain
- Sub AddAllDimensions()
- Dim swDisplayDimension As SldWorks.DisplayDimension
- Dim swDimension As SldWorks.Dimension
- Dim swFeature As SldWorks.Feature
- On Error GoTo SiErr
- 'récupére l'application SolidWorks
- Set swApp = CreateObject("SldWorks.Application")
- 'on récupére le document actif
- Set swDoc = swApp.ActiveDoc
- 'récupére la première fonction
- Set swFeature = swDoc.FirstFeature
- If swFeature Is Nothing Then
- MsgBox "le document est vide", vbExclamation
- Exit Sub
- End If
- Do
- 'Sur chaque fonction on récupére les cotes
- Set swDisplayDimension = swFeature.GetFirstDisplayDimension
- If Not swDisplayDimension Is Nothing Then
- Do
- Set swDimension = swDisplayDimension.GetDimension
- 'on ajoute à la liste
- Call AddDimToSheet(swDisplayDimension)
- Set swDisplayDimension = swFeature.GetNextDisplayDimension(swDisplayDimension)
- Loop Until swDisplayDimension Is Nothing
- End If
- Set swFeature = swFeature.GetNextFeature
- Loop Until swFeature Is Nothing
- Exit Sub
- SiErr:
- Set swDisplayDimension = Nothing
- Resume Next
- End Sub