---

Hallo,

versuche grade ein "Speichern unter" Makro in Solidworks zu bearbeiten.
Folgendes ist im Einsatz

Dim swApp As Object
Sub main()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Dim swBezeichnung    As String

If Part Is Nothing Then End        ' Abbrechen, wenn gar kein SolidWorks-Dokument geöffnet

AktuellesDokTyp = Part.GetType()
DateiMitPfad = Part.GetPathName()
If DateiMitPfad = "" Then
    MsgBox ("Datei muß zuerst gespeichert werden!")
    End
End If

saveFileName = Left(swApp.ActiveDoc.GetPathName, Len(swApp.ActiveDoc.GetPathName) - 7) + ".step"
Part.SaveAs2 saveFileName, 0, True, False

End Sub

Das Makro Speichert einfach das aktuelle Bauteil als .Step ab.
Jetzt gibt es ja in Solidworks benutzerdefinierte Eigenschaften. Ist es möglich die Beschreibung/Description einfach an den Dateinamen anzuhängen?

Lg Robby

[Diese Nachricht wurde von Mr.Robi am 24. Feb. 2023 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

hier ein Beispiel aus der API Hilfe, das dir den Zugriff auf die Eigenschaften demonstriert:

Zitat:

---

'----------------------------------------------------
' Preconditions:
' 1. Open a part that contains a referenced part
'    with a custom property and a value.
' 2. Open the referenced part.
' 3. Switch back to the part opened in step 1.
' 4. In the macro, replace Property_Name with the name of
'    the referenced part's custom property.
' 5. Open the Immediate window.
'
' Postconditions: Prints the custom property data
' to the Immediate window.
'---------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim swModelDocExt As ModelDocExtension
Dim swCustProp As CustomPropertyManager
Dim val As String
Dim valout As String
Dim bool As Boolean

Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
' Get the custom property data
Set swCustProp = swModelDocExt.CustomPropertyManager("")
bool = swCustProp.Get4("Property_Name", False, val, valout)
Debug.Print "Value:                    " & val
Debug.Print "Evaluated value:          " & valout
Debug.Print "Up-to-date data:          " & bool
End Sub

---

------------------
Einen schönen Gruß von Heiko
• www.dps-software.de • www.dps-akademie.de • www.iknow-solidworks.de • www.youtube.de/dpssoftwaregmbh •

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Heiko

erstmal Danke für die schnelle Antwort.
bin quasi Anfänger im Makro programmieren 
Und muss sagen das ich mir das etwas einfacher vorgestellt habe.
Kannst du mir kurz auf die Sprünge helfen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP