---

Schriftkopf01.jpg Farbe01.jpg

Hallo,
versuche gerade das Schriftkopf-Makro anzupassen.
Wenn ich meine Werte für die Zeichnung in das Makro eingetragen habe und dann OK drücke werden die Daten nicht in die Zeichnung eingetragen. Erst nach Strg+Q (Neuaufbau) sind die Werte im Zeichnungskopf gesetzt.
Was für einen Befehl muß ich einfügen, damit die Werte direkt nach dem Beenden des Makros in die Zeichnung eingetragen werden?

Zweite Frage:
Bei der Farbgebung, z.B. ForeColor werden die Farben der Farbpalette nicht angezeigt. Sie sind jedoch vorhanden und lassen sich "blind" anklicken.

Gruß Pille

------------------
pi-design

ACD Gruppe

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

---

Hilft es für Deine erste Frage, wenn Du einen Neuaufbau (Part.EditRebuild) in den Makrocode einfügst?

------------------
Lutz Federbusch
Mein Gästebuch
Der Mensch, Herr oder Sklave der Technik?

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

---

Hallo Lutz,
hat leider nicht weitergeholfen.

Gruß Pille

------------------
pi-design

ACD Gruppe

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

---

Für den Neuaufbau gibt es zwei Möglichkeiten:

retval = ModelDoc2.EditRebuild3 ( )

Output:
(VARIANT_BOOL) retval
TRUE if the rebuild is successful, FALSE if not

Dies entspricht dem Ampeldurchlauf, nur geänderte Features werden aktualisiert. Oder

retval = ModelDoc2.ForceRebuild3 ( topOnly )

Input:
(VARIANT_BOOL) topOnly
TRUE rebuilds the top-level assembly only; FALSE rebuilds the top-level assembly and all subassemblies

Output:
(VARIANT_BOOL) retval
TRUE if the rebuild is successful, FALSE if not

Das entspricht Ctrl-Q, dabei werden alle Features aktualisiert.

Das mit den Farben ist leider so, das hat mich auch schon öfter genervt. Man kann natürlich auf gut Glück darin herumklicken, ich hab mir stattdessen neulich so beholfen:

1. Die gewünschte Farbe in SolidWorks auf ein Teil gesetzt und die RGB-Werte notiert
2. Mit Hilfe von Excel den RGB-Wert berechnet (RGB = R + 256xG + 256x256xB) und in eine hexadezimale Zahl umgewandelt. Der Befehl dazu lautet dezinhex.
3. Den Hex-Wert in das Eigenschaftfeld der Form eingetragen, dabei das "H" davor und das "&" dahinter nicht vergessen.

Das ist natürlich sehr umständlich, aber ich hab meine Wunschfarben damit gekriegt.

Piet

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

---

Hallo Piet,
danke für Deine Antwort.
Werde es mal ausprobieren und melde mich dann.
Mit den Farben werde ich den Umweg über Excel machen:
-Farbcode kopieren und in SWX wieder einfügen.

Gruß Pille

------------------
pi-design

ACD Gruppe

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

---

Hallo Piet,

dank Deiner Hilfe hat mein Software-Kollege folgende Befehlszeile eingefügt:

Dim retval As Boolean

retval = Model.EditRebuild3()

Damit funzelt es jetzt.

------------------
pi-design

ACD Gruppe

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