Makro: Quoten lesen

Macro
1

Hallo

Ich möchte ein Makro erstellen, in dem ich den k-Faktor eines Blechteils überprüfe.

Dazu versuche ich, in meiner Variablen "Fk" den Wert der Dimension "D2@Tôlerie" des Dokuments "piece1.sldprt" in seiner Konfiguration "conf1" abzurufen

Danke für Ihre Hilfe

2

Versuchen Sie Folgendes:

Hinweis: Ersetzen Sie swConfig.Name durch "conf1", wenn Sie diese Konfiguration anstelle der aktuellen konfigurieren möchten.

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 „Gefällt mir“
3

Es ist perfekt! Vielen Dank... Ich befand mich in einer Sackgasse.

Danke noch einmal