Pobierz wartość gęstości za pomocą makra

Macro
1

Witam
Chcę użyć swMaterialPropertyDensity, ale makro nie zwraca wartości, ale systematycznie 7 niezależnie od materiału.
czy nie ma historii wartości Val()?
Dziękuję, że mnie oświeciłeś...
 

 

2

Witam

 

Udostępnienie makra sprawi, że więcej osób będzie na Ciebie reagować

Cdlt powiedział:

3

Okazało się, że to działa:

variable = swDrawModel.GetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swMaterialPropertyDensity)

Zwraca wartość gęstości mojego elementu zawartego w jego rysunku.

Jeśli może się to przydać...

1 polubienie
4

Witam

Spróbuj tego:

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 polubienia