---

Guten Morgen,
ich möchte gerne eine Dateieigenschaft per VBA löschen (die benutzerdefinierte UND die konfigurationsspezifische). Es soll nicht die Dateieigenschaft geleert werden, sondern das ganze Attribut soll entfernt werden.
Weiß jemand Rat?

Danke!

Gruß
dasTho

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

---

BDEloeschen.jpg

Einfach den Wert der gelöscht werden soll markieren und auf "Löschen" klicken. -> siehe Bild

Edit:
OK, per VBA! Hab ich überlesen...    

------------------
Viele Grüße, THSEFA         

[Diese Nachricht wurde von THSEFA am 20. Apr. 2011 editiert.]

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

---

Hallo,

hier mal eine Zeile aus Stefans Schriftfeldmakro zum löschen einer benutzerdefinierten Dateieigenschaft:

Dim dummy
dummy = Model.DeleteCustomInfo("description")

Das wäre ja schon mal die halbe Aufgabe  

Liebe Grüße,
Daniel

[Diese Nachricht wurde von DanielH am 20. Apr. 2011 editiert.]

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

---

Hallo und einen schönen Tag dasTho.

Deine Frage ist etwas unpräzise.
In einer geöffneten Datei?
Mehrere Dateien im Zusammenbau?
In der Ordnerstruktur?

Schaue mal auf Stefans Seite. Vielleicht findest du da etwas.

Gruß
ThoMay

------------------
Hast du Fragen?
Brauchst du 
Schaut mal nach im Bereich
Alle Foren => Wissenstransfer.
oder
Konstrukteure Online hier bei CAD.de
Richtig fragen - Nettiquette - alte Suchfuntion - Systeminfo - Unities - CAD Freeware - Forenübersicht - 3D Konverter - 3D Modelle - SolidWorks Videos

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

---

Hallo,

dummy = Model.DeleteCustomInfo2("Konfiguration", "Eigenschaft")

das wäre dann die andere Hälfte der Aufgabe 

Wobei man eigentlich nur diesen Befehl benötigt, wenn man für Konfiguration "" angibt und damit die benutzerspezifische Dateieigenschaft löscht.

Liebe Grüße,
Daniel

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

---

Hallo,
ich habe probiert:

Dummy = SwModelDoc.DeleteCustomInfo2(strKonfigName, "LH_NAME")

das funktioniert leider nicht.

Gruß
dasTho

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

---

Hallo,

bei mir funktioniert folgendes einwandfrei:

Sub main()

Dim swApp As Object
Dim Model As Object
Dim dummy
Dim glbConfName As String

Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Model = swApp.ActiveDoc
   
If Model Is Nothing Then
  Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
  Exit Sub
End If

glbConfName = ""

dummy = Model.DeleteCustomInfo2(glbConfName, "Bezeichnung2")

End Sub

Wenn es bei Dir nicht geht, musst Du schon mehr Infos rausrücken, wie Du den Befehl anwenden willst.

Liebe Grüße,
Daniel

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

---

Hallo Daniel,
danke dass du dir soviel Mühe gibst. Leider funktioniert es nicht.
Was für Infos würdest du denn von mir brauchen?

Gruß
dasTho

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

---

Hallo dasTho,

ich bin von folgenden Voraussetzungen ausgegangen:

1. In Solidworks ist die Datei offen und im Vordergrund, bei der die Eigenschaft gelöscht werden soll.
2. Das Makro wird dann ganz normal über Extras/Makro/Ausführen gestartet.

Hast Du denn meinen Code bei Dir mal durchlaufen lassen, also nur mal den Namen der Eigenschaft angepasst?

Kannst Du mehr von Deinem Code veröffentlichen oder mir per PM schicken?

Sonst ist es echt nicht möglich zu sehen, wo es bei Dir hängt.

Liebe Grüße,
Daniel

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

---

Main_Rib_01.zip

Hallo Daniel,
das wäre dein Code (angepasst auf meine konfigurationsspezifische Eigenschaft LH_ITEM)

Sub main()

Dim swApp As Object
Dim Model As Object
Dim dummy
Dim glbConfName As String

Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Model = swApp.ActiveDoc
 
If Model Is Nothing Then
  Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
  Exit Sub
End If

glbConfName = ""

dummy = Model.DeleteCustomInfo2(glbConfName, "LH_NAME")

End Sub

Ich habe auch schon probiert benutzerdefinierte Eigenschaften auf diese Weise zu löschen. Funktioniert irgendwie auch nicht.

Gruß
Thorsten

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

---

Hallo Thorsten,

also wenn ich das Makro so anpasse:

Sub main()

Dim swApp As Object
Dim Model As Object
Dim dummy
Dim glbConfName As String

Set swApp = CreateObject("SldWorks.Application")
swApp.Visible = True
Set Model = swApp.ActiveDoc

If Model Is Nothing Then
  Call MsgBox("Keine Datei geöffnet", vbOKOnly, "Information")
  Exit Sub
End If

glbConfName = ""
dummy = Model.DeleteCustomInfo2(glbConfName, "LH_NAME")

glbConfName = "Standard"
dummy = Model.DeleteCustomInfo2(glbConfName, "LH_NAME")

End Sub

,dann wird die Eigenschaft sowohl in den benutzerdefinierten Eigenschaften, als auch in der "Standard"-Konfiguration gelöscht.
Ich hoffe, damit kommst Du jetzt weiter.

Liebe Grüße,
Daniel

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

---

Hallo Daniel,
jetzt hat es geklappt. Ganz herzlichen Dank!

Ich wünsche ein schönes Osterwochenende!

Gruß
Thorsten

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