Dichtheidswaarde ophalen per macro

Macro
1

Hallo
Ik wil swMaterialPropertyDensity gebruiken, maar de macro retourneert niet de waarde, maar systematisch 7, ongeacht het materiaal.
is er niet een verhaal van Val() waarde??
Bedankt voor het verlichten van mij...
 

 

2

Hallo

 

Het delen van uw macro zal helpen, zodat meer mensen op u reageren

Cdlt

3

Ik vond dit om te werken:

variable = swDrawModel.GetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swMaterialPropertyDensity)

Het geeft de waarde terug van de dichtheid van mijn stuk in de tekening.

Als het nuttig kan zijn...

1 like
4

Hallo

Probeer het volgende:

Option Explicit
Sub main()
    Dim swApp As SldWorks.SldWorks
    Dim swModel As SldWorks.ModelDoc2
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Dim swMprop As SldWorks.MassProperty
    Set swMprop = swModel.Extension.CreateMassProperty
    Debug.Print "get density - 1st method: " & swMprop.Density
    Debug.Print "get density - 2nd method: " & swModel.GetUserPreferenceDoubleValue(swMaterialPropertyDensity)
End Sub

 

2 likes