Bonjour à tous, dans le cadre d'un projet un peux long je bloque sur une point simple : je dois déterminer (dans une macro) l'aire d'une esquisse (sous la forme Double) pour ensuite la copier dans un fichier Exel (ça c'est bon). L'équivalent sans macro est :
- sélectionner l'esquisse (nommée "Step5")
- propriété de la surface
- extraire l'aire (ou la superficie, ça revient au même dans ce cas) et l'associer à une variable de type Double
J'ai déjà tenté ce bout de code or la phase "extraire l'aire", comme vous vous en doutez ne fonctionne pas (le reste si).
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub copieSurface()
Dim surfaceSelection As Double
'*************************************
'Active le document ouvert dans SolidWorks
'*************************************
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
'*************************************
'Extrait l'aire de l'esquisse
'*************************************
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID2("step5", "FACE", 0, 0, 0, False, 0, Nothing, 0)
Dim swMesure As Measure
Set swMesure = Part.Extension.CreateMeasure
monAire = swMesure.Area
'*************************************
'Sélectionne le fichier Exel ouvert en cours
'*************************************
Set swApp = CreateObject("SldWorks.Application")
Set xlApp = GetObject(, "Excel.Application")
Set Part = swApp.ActiveDoc
Set Xlsh = xlApp.Application.ActiveSheet
'*************************************
'Implémentation de la valeur dans le tableau Excel
'*************************************
Xlsh.Cells(2, 2) = monAire
End Sub
Voila, si certain ont des idées, merci d'avance !