---

hallo zusammen, hätte da mal ein Problem:
Kann ich konfigurationsspezifische Eigenschaften mit Macro löschen?
bei den benutzerdefinierten gibtŽs da keine Probleme. Allerdings der String den ich bei den konfigurationsspezifischen aufzeichne gibt nicht wirklich was her. Nicht mal ne Fehlermeldung 

das Ding sieht so aus:

        Dim Part As Object

        Set swApp = CreateObject("SldWorks.Application")
        Set Part = swApp.ActiveDoc
        swApp.Visible = True
        Part.SelectByID "Standard", "CONFIGURATIONS", 0, 0, 0
        Part.EditConfiguration "Standard", "Standard", "", "", 1, 0, 0, 1, 0
        If Model Is Nothing Then
        Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
        Exit Sub
    End If
       
        Model.CustomInfo("MARA_NR") = ""
        Model.CustomInfo("MARA_TEXT_DE") = ""

------------------
Grüße von der Saar
Uwe Blum

www.hydac.com/

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

---

Hallo Uwe,

schau mal in die Tauschbörse ( http://solidworks.cad.de/mm_boerse.htm ), da ist die Nr. 3 ein Makro von gismo dass die benutzerdefinierten Dateieigenschaften von ProfiDB löscht.

Oder schau mal in den Source von meine Schriftfeld-Ausfüll-Makrobeispiel ( http://solidworks.cad.de/mm_09.htm ), da werden auch die konfigurationsspezifischen Eigenschaften vorher gelöscht.

Der eigentlich Befehl dafür ist dummy = Model.DeleteCustomInfo2(KONFNAME, PROPERTYNAME), falls dir das schon reicht.

Cioa,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

DokEigenschaftenlöschenalle.zip

Hi,

im Anhang findest, Du was Du suchst!

------------------
Gruß Ingo

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

---

Hi Ingo,

Ö beim Anhang 

------------------
Grüße von der Saar
Uwe Blum

www.hydac.com/

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

---

Hallo Uwe.

Such mal meinen Beitrag "Bereinigen der CustomInfo's und Filesize". Dort hat es ein Macro, das unerwünschte CustomInfo's löscht. Du musst das Modul "Definition" anpassen, was eigentlich kein Problem sein sollte. Neben bei kann das Macro auch die Dateigrösse optimieren.

@Stefan: das Macro dort darf natürlich auch in die Tauschbörse 

------------------
Gruss
Andreas
A+E Müller AG

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

---

Hallo zusammen,

der Link oben von Ingo übersetzt ist http://ww3.cad.de/foren/ubb/uploads/INKN/DokEigenschaftenl%F6schenalle.zip

@Andreas: danke, werde ich gerne mit reintun.

@Ingo: darf deins auch in die Tauschbörse?

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

@all

Ist zwar ein bischen Offtopic, aber suche schon lange ein Makro, dass mir alle Konf. spezifischen Eigenschaften in die Benutzerdefinierten kopiert und die Konf. spezifischen danach löscht. Hat jemand so etwas?
Wäre ideal wenn man ein ganzes Verzeichnis in einem Rutsch machen könnte 

Gruss Tom

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

---

Hallo Tom,

wenn es immer eine bestimmte Ausgangskonfiguration ist, von denen aus einfach alle Eigenschaften ins Benutzerdefiniert übertragen werden müssen ist das verhältnismäßig einfach. Wenn du dann noch PAC4SWX hast kannst du das auf eine ganze Liste (auch Verzeichnisse) von Dateien loslassen.

Schick mir mal 'ne Mail wegen dem Makro, wenn du PAC4SWX lizensiert hast 

Falls du so an so ein Makro drankommst kannst du natürlich auch einfach die Testversion von PAC4SWX nehmen, die ist nicht einegschränkt und für einen Monat auch so lauffähig 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite
http://solidworks.cad.de

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

---

Hallo zusammen.
Kann mir jemand einen Makro kriieren, das alle Eigenschaften löscht???Danke.
Mfg.

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

---

Zitat:

---

Original erstellt von jolek:
Hallo zusammen.
Kann mir jemand einen Makro kriieren, das alle Eigenschaften löscht???Danke.
Mfg.

---

Klar, ich nehm für so etwas 75 EUR die Stunde netto 

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de

Member of CAD.de BOINC Team  -  | Seti@Home | CPDN | Einstein@Home

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

---

Zitat:

---

Original erstellt von StefanBerlitz:
Klar, ich nehm für so etwas 75 EUR die Stunde netto 

Ciao,
Stefan

---

<grinz> Ich nur 10€ brauche aber auch 75x länger  ....

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Servus.

Habe mich falsch ausgedrückt. Bei MakroMania gibts ja schon ähnliche Makros und da wollte ich wissen, ob jemand schon das hat, das alle Konfig. löscht.
Na ja wenn nicht ist auch egal.

Mfg.

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

---

<grinz>

auch wenn es die schon gibt ....
dann hab ich hier noch eins... Löscht nur Konfig Props ....

Sub main()
Dim mDoc As ModelDoc2
Dim i As Integer
Dim ic As Integer
Dim cProps As Variant
Set swApp = Application.SldWorks
    Set mDoc = swApp.ActiveDoc
        Dim vConfigs As Variant
        Dim prps As Variant
        Dim errTXT As String
        Dim vbAW As VbMsgBoxResult
        If Not mDoc Is Nothing Then
            If mDoc.GetConfigurationCount > 0 Then
                vConfigs = mDoc.GetConfigurationNames
                For i = LBound(vConfigs) To UBound(vConfigs)
                    If mDoc.GetCustomInfoCount2(vConfigs(i)) > 0 Then
                      vbAW = MsgBox("Sollen alle Eigenschaften der Konfiguration" & " " & vConfigs(i) & " " & "gelöscht werden ?", vbQuestion + vbYesNo, "Propkick")
                      If vbAW = vbYes Then
                            cProps = mDoc.GetCustomInfoNames2(vConfigs(i))
                            For ic = LBound(cProps) To UBound(cProps)
                                If mDoc.DeleteCustomInfo2(vConfigs(i), cProps(ic)) = False Then
                                    errTXT = errTXT & vConfigs(i) & "\" & cProps(ic) & " " & "konnte nicht gelöscht werden."
                                End If
                            Next ic 'Props
                      End If 'vbYes
                    End If
                Next i 'Configs
                If Len(errTXT) > 0 Then
                    MsgBox errTXT, vbInformation, "Propkick"
                End If
            End If 'Config Count
        End If 'mDoc nothing
End Sub

------------------
http://classicvb.org/petition/

 

Zitat:

---

Interpunktion und Orthographie des Postings sind frei erfunden.
Eine Übereinstimmung mit aktuellen oder ehemaligen Regeln wäre rein zufällig und ist nicht beabsichtigt.

---

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

---

Hast vielen Dank.
Mfg.

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