Macro: Kansen lezen

Macro
1

Hallo

Ik ben op zoek naar een macro waarin ik de k-factor van een plaatwerk onderdeel controleer.

hiervoor probeer ik in mijn variabele "Fk" de waarde van de dimensie "D2@Tôlerie" van het document "piece1.sldprt" op te halen in de configuratie "conf1"

Bedankt voor je hulp

2

Probeer het volgende:

Opmerking: Vervang swConfig.Name door "conf1" als u deze configuratie wilt in plaats van de huidige.

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

Het is perfect! Hartelijk dank... Ik zat in een impasse.

Nogmaals bedankt