---

Hallo Gemeinde.

Heute habe ich mal eine Frage.

Ich habe ein Profil. Da gibt es füe die verschiedenen Längen je eine Konfiguration. (Sind sehr viele)
Ist es möglich, bei allen Konfigurationen gleichzeitig in den Konfigurationseigenschaften die Eigenschaft für neu eingefügte Elemente (Features unterdrücken) einzustellen?

Währe echt ne Hilfe!

Danke

------------------
Grüße aus dem Schwabenland

Dieter

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

---

Hi...

Ich sitz gerade vor ner ganz andere Problematik mit ner anderen Weichware, aber hab da nen Vorschlag...alle Konfigs selektieren (mit SHIFT-Taste auf erste und letzte Konfiguration) und dann über die RMT in den Eigenschaften das gewünschte einstellen....

...geht das ?!?

Gruß
Andreas

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

---

Hallo Beere.

Leider nicht. Hatte ich als erstes versucht. 

Da wird nur in der Konfig geändert, welche in dem Eigenschaftenfenster oben drin steht. 

------------------
Grüße aus dem Schwabenland

Dieter

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

---

Hallo Dieter

Wenn ich dich richtig verstehe, dann kannst du über die Tabelle auch die Dateieigenschaften bei jeder Konfig eintragen:

z.B.:  $PRP@Teilenummer  als Spalte in der Tabelle

Für eine neue Konfig einfach dann die gewünschte Zeile im EXCEL kopieren und den Konfig-Namen umbenennen.
Hat zudem den riesen Vorteil, dass man hierbei besser die Übersicht behält.

mfg
Peter

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

---

@Peter.

Ja richtig. Aber damit kann man nicht die Konfigurationseigenschaften ändern. Sprich daß neue Elemente in den anderen Konfigurationen unterdrückt werden.

Aber ich habe da inzwischen  (mit nem kleinen Denkanstoß von meinem Suport) ein kleines Makro gebastelt.
Dat Ding funktioniert sogar ! (Wow) 

Dim swApp As Object
Dim Part As Object
Dim numConfigs As Long
Dim Names As Variant
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object

Sub main()

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc

' How many configurations do we have?
numConfigs = Part.GetConfigurationCount()

' Store the names of the configurations
Names = Part.GetConfigurationNames()

For i = 0 To (numConfigs - 1)
Part.EditConfiguration Names(i), Names(i), "", "", 1, 0, 0, 1, 5
Next

' Clean up variables
Set Part = Nothing
Set swApp = Nothing

End Sub

Aber Achtung! Bei vielen Konfigs dauert das eine Weile!

------------------
Grüße aus dem Schwabenland

Dieter

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

---

configPropChange.zip

Hallo Dieter,
heute hab ich Dein Makro auch brauchen können 
Funzt wunderbar!
Aber da ich das Ding uŽnseren anderen Usern auch zur verfügung stellen möchte, hab ich das Ding um eine UserForm erweitert.
(viele Unserer User habe keine Ahnung von VBA) 
Ich hab das Makro mal angehängt, evtl. können auch noch andere davon profitieren.

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Hallo zusammen,

schnuckeliges kleines Ding 

@Dieter und gismo: beim nächsten Update setze ich es mit in die Makro-Tauschbörse, wenn ihr nichts dagegen habt.

Ciao,
Stefan

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

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

---

Hallo Gismo.

Echt klasse.
So wird aus einel auf die schnelle gebastelten Macro ein richtiges Proggi.

------------------
Grüße aus dem Schwabenland

Dieter 

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

---

Klar Stefan,
Das Makro kannst Du gerne auf Deine Seite setzen

@Dieter: keine Ursache. Ich bastel halt gerne an Makros rum 

------------------
Viele Grüße aus dem Schwarzwald
gismo

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

---

Gesucht und gefunden. Was man mit den richtigen Suchbegriffen (Konfiguration Eigenschaften Elemente) so alles findet, unglaublich.

Besten Dank für die Makros. U's sind unterwegs.

------------------
Grüsse
Fabian David Rubli

 
Lachen tut gut an Leib und Seele. (unbekannt)

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

---

Hi Gismo.

Ich habe einen kleinen Verbesserungsvorschlag für das Macro.

Kann man bei der "Speichern Option" einen Knopf einbauen, wo dann ein "File-Browser" (oder wie man so ein Ding Bezeichnet  ) aufgeht, damit man ein Verzeichniss wählen kann?

Währ auf jeden Fall wünschenswert. 

------------------
Grüße aus dem Schwabenland

Dieter 

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

---

Das Makro löscht die Beschreibung der Konfiguration. 

Was muss ich ändern, dass die Beschreibung beibehalten wird???

Viele Grüße aus Salzkotten

------------------
Andrej

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

---

Hallo Andrej,

willkommen im Forum 

Zitat:

---

Original erstellt von ahop:
Das Makro löscht die Beschreibung der Konfiguration.  
Was muss ich ändern, dass die Beschreibung beibehalten wird?

---

Z.B. so:
1. Die Beschreibung in eine Variable (z.B. MeinKommentar) auslesen.
2. Die Zeile von Dieter

Zitat:

---

Original erstellt von D.Loistl:
Part.EditConfiguration Names(i), Names(i), "", "", 1, 0, 0, 1, 5

---

in Part.EditConfiguration Names(i), Names(i), MeinKommentar, "", 1, 0, 0, 1, 5
ändern...

------------------

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

---

2017-10-1016_13_48.jpg 2017-10-1016_12_41.jpg

Hi, danke für die schnelle Antwort.
Ich habe schon etwas mit Makro experimentiert.

z. B. hier:
Part.EditConfiguration Names(i), Names(i), "tt1", "tt2", No1, No2, No3, 1, 5

tt1 - landet bei Kommentar (für mich uninteressant)
tt2 - bei angezeigte Benennung in der Stückliste (das muss eigentlich auch wie die Beschreibung ungeändert bleiben)
wenn ich die erste Names(i) ändere - wird Makro nicht vollständig ausgeführt (keine Fehlermeldung)
wenn ich die zweite Names(i) ändere - wird die erst stehende Konfiguration umbenannt

vor allem ich muss zuerst meine vorhandene Beschreibungen für jede Konfiguration auslesen, hab so versucht:
    ' Store the names of the configurations
    Names = Part.GetConfigurationNames() - dies ist schon im Makro vorhanden
    Comment = Part.GetConfiguration???() - weiss aber nicht wie das Kommando lautet

Comment hab ich wie folgt deklariert:  Dim Comment As Variant

nun stehe ich immer noch auf dem Schlauch...

------------------
Andrej

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

---

Hallo,
ich habe dieses Makro um einiges überarbeitet und dafür einen neuen Beitrag erstellt.
Wer möchte, darf gerne hier vorbeischauen.

http://ww3.cad.de/foren/ubb/Forum2/HTML/031151.shtml

Grüße, Andi

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

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