Makro: Kursy odczytu

Macro
1

Witam

Chcę zrobić makro, w którym sprawdzam współczynnik k części z blachy.

w tym celu staram się pobrać w mojej zmiennej "Fk" wartość wymiaru "D2@Tôlerie" dokumentu "piece1.sldprt" w jego konfiguracji "conf1"

Dziękuję za pomoc

2

Spróbuj tego:

Uwaga: Zamień swConfig.Name na "conf1", jeśli chcesz użyć tej konfiguracji zamiast bieżącej.

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 polubienie
3

Jest idealny! Dziękuję bardzo... Byłem w impasie.

Jeszcze raz dziękuję