Abrufen des Dichtewerts nach Makro

Macro
1

Hallo
Ich möchte swMaterialPropertyDensity verwenden, aber das Makro gibt nicht den Wert zurück, sondern systematisch 7, unabhängig vom Material.
Gibt es nicht eine Geschichte über den Wert von Val()?
Danke, dass du mich aufgeklärt hast...
 

 

2

Hallo

 

Wenn du dein Makro teilst, kannst du dazu beitragen, dass mehr Menschen auf dich antworten

Cdlt

3

Ich habe festgestellt, dass das funktioniert:

variable = swDrawModel.GetUserPreferenceDoubleValue(swUserPreferenceDoubleValue_e.swMaterialPropertyDensity)

Es gibt den Wert der Dichte meines Stücks zurück, der in seiner Zeichnung enthalten ist.

Wenn es nützlich sein kann...

1 „Gefällt mir“
4

Hallo

Versuchen Sie Folgendes:

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