Macro : lire une cote

Macro
1

Bonjour,

Je cherche a réaliser une macro dans laquelle je viens contrôler le facteur k d'une pièce de tôlerie.

pour cela je cherche a récuperer dans ma variable "Fk" la valeur de la cote "D2@Tôlerie" du document "pièce1.sldprt" dans sa configuration "conf1"

Merci de cotre aide

2

Essaye ca:

Note: Remplace swConfig.Name par "conf1" si tu veux cette config au lieu de la config courante.

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Dim swConfig As SldWorks.Configuration
    Dim swDispDim As SldWorks.DisplayDimension
    Dim swDim As SldWorks.Dimension
    Dim Fk As Double
    Dim status As Boolean
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swConfig = swModel.GetActiveConfiguration
    status = swModel.Extension.SelectByID2("D2@Tôlerie", "DIMENSION", 0, 0, 0, False, 0, Nothing, 0)
    Set swDispDim = swModel.SelectionManager.GetSelectedObject6(1, -1)
    Set swDim = swDispDim.GetDimension
    Fk = swDim.GetSystemValue2(swConfig.Name)
    Debug.Print "facteur k = " & Fk
End Sub

 

1 « J'aime »
3

C'est parfait ! merci beaucoup...j'étais dans une impasse.

Encore merci