---

Hallo,

erstmals möchte ich Stefan und allen anderen die bei dem Schriftfeldscript geholfen haben danken!
Tolles Script wo mir viel Zeit spart.

Was ich jetzt noch  Suche, bzw frage mich obs überhaupt geht, ist ein VBA Script um die Abmessungen eines Teils im Model ein zu tragen.

D.h. bei meiner Benutzerdefiniertem Feld: "Abmessungen" soll dann z.B. stehn: "RD3@Beschriftung@208517-ZTRR-0001.moPart_c"x"RD1@Beschriftung@208517-ZTRR-0001.moPart_c"x"RD2@Beschriftung@208517-ZTRR-0001.moPart_c"

Bis jetzt geh ich so vor das ich Datei-> Eigenschaften -> dann in das Abmessungsfeld klicke und dann die 3 Bemaßungen anklicke mit zwischen drin "x" Taste drücke.

Am liebsten währe es mir wenn ich ein Button anklicken könnten und dann 3 Maße und fertig...

Und dann hab ich noch eine 2te Frage:
Wie kann ich   $PRP:"SW-Dateiname(File Name)".$PRP:"Version"  als einen Text in einem Eigenschaftsfeld einfügen? (allso ich will auf einen Button im Macrofeld drücken und diesen Wert als Standart eintragen.... mit normalen Texten funktioniert das einwandfrei.
Allso VBA meckert das hier drin wo irgend ein Befehl steck etc...

Sprich das hier geht nicht:
Private Sub cmdZeich_Click()
    txtSfZeichnungsnummer.Text = "$PRP:"SW-Dateiname(File Name)".$PRP:"Version""
   
End Sub

wie würde es gehn??

Und mein letzte Frage: Woran kann es liegen das das Fenster machmal nicht im Vordergrund ist wenn ich auf das VBA-Script-Button drücke?

Vielen Dank schonmal für jede Hilfe!    

PS: SW 2008 SP4

Edit:
Eine Nachfrage noch: Kann man per VBA sich z.B. das Aktuelle Gewicht anzeigen lassen? Allso z.B. von
"SW-Mass@test.SLDPRT" den Ausgabewert?

Und noch eine Frage: Ich  ändere auch per Script das Material. Aber irgend wie übernimmt er es nicht. (Wert: "Material")

[Diese Nachricht wurde von Julius am 02. Sep. 2008 editiert.]

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

---

Hi Julius

nur mal so ne Frage
hast du schon mal die Suche Funktion benutzt
hier gibt es soviele Betraege drin

mfg Nobbi

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

---

Hallo Julius,

du musst das Rad nicht neu erfinden. Schau mal hier
http://ww3.cad.de/foren/ubb/Forum2/HTML/015062.shtml#000022

Das Makro musst du im Einzelteil ausführen.

Gruß Steffen

------------------
Wer Rechtschreibfehler findet darf sie gerne behalten! :-)

www.egoproducts.com

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

---

Hallo Julius,

Zitat:

---

Original erstellt von Julius:
Was ich jetzt noch  Suche, bzw frage mich obs überhaupt geht

---

Als Hausnummer: alles, was du interaktiv machen kannst, kannst du im Prinzip auch irgendwie automatisieren. Da gibt es nur ganz wenige Ausnahme und selten mal Fehler in der API, die das verhindern. Allerdings ist es programmtechnisch nicht immer so einfach wie es interaktiv erscheint, du musst selbst als Makroprogrammierer schon oft in die Trickkiste greifen oder mal 30-50 Zeilen Code schreiben, wo du in SolidWorks nur einen Knopf drückst.

Zitat:

---

Original erstellt von Julius:
... ist ein VBA Script um die Abmessungen eines Teils im Model ein zu tragen ... Am liebsten währe es mir wenn ich ein Button anklicken könnten und dann 3 Maße und fertig

---

Das ist schon so ein Fall. Dazu musst du entweder die Selektion abfangen und dich dazu in die Events von SolidWorks einhängen, die Maße vorselektieren oder eine PropertyManagerpage bauen, da gibt es selektionsfelder, die das automatisch machen. Dann musst du die Selektion auswerten (Stichwort:  SelectionMgr::GetSelectedObjectCount2,  SelectionMgr::GetSelectedObjectType3 und SelectionMgr::GetSelectedObject6) und dich dann von der selektierten DisplayDimension zum dahinterliegenden Parameter hangeln ( DisplayDimension::GetDimension2 ) um vom dem den Namen zu holen ( Dimension::Name ). Daraus dann den String zusammensetzen und wie bekannt in die Dateieigenschaft einschreiben.

Zitat:

---

Original erstellt von Julius:
Wie kann ich  $PRP:"SW-Dateiname(File Name)".$PRP:"Version"  als einen Text in einem Eigenschaftsfeld einfügen?
[...]
Sprich das hier geht nicht:
Private Sub cmdZeich_Click()
    txtSfZeichnungsnummer.Text = "$PRP:"SW-Dateiname(File Name)".$PRP:"Version""
End Sub

---

Du musst die Gänsefüßchen im String richtig maskieren, am einfachsten ist es den String mit CHR$(34) (der ASCII Code der Gänsefüßchen) zusammenzubauen.

Zitat:

---

Original erstellt von Julius:
Und mein letzte Frage: Woran kann es liegen das das Fenster machmal nicht im Vordergrund ist wenn ich auf das VBA-Script-Button drücke?

---

Hm, schwer zu sagen, da hab ich im Moment auf keine Idee.

Zitat:

---

Original erstellt von Julius:
Eine Nachfrage noch: Kann man per VBA sich z.B. das Aktuelle Gewicht anzeigen lassen? Allso z.B. von "SW-Mass@test.SLDPRT" den Ausgabewert?

---

Siehe oben. Du holst dir die Masse etwas anders: vom aktuellen/selektierten Dokument holst du dir das ModelDoc oder die Bodys, deren Gewicht du haben willst, davon die Masseeigenschaften mit ModelDocExtension::GetMassProperties und da hast du als Parameter 5 im Safearray die Masse in Kilogramm.

Wie gesagt, alles nicht so einfach wie es auf den ersten Blick aussieht, aber machbar 

Ciao,
Stefan

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

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

---

Vielen Dank für die Hilfe.
Was ich noch nicht kapiert hab ist das mit den "

alt:
txtSfZeichnungsnummer.Text = "$PRP:"SW-Dateiname(File Name)".$PRP:"Version""

neu:
txtSfZeichnungsnummer.Text = "$PRP:CHR$(34)SW-Dateiname(File Name)CHR$(34).$PRP:CHR$(34)VersionCHR$(34)"

???
Stimmt das? Falls ja es geht damit immer noch nicht.

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

---

Zitat:

---

Original erstellt von Julius:
Was ich noch nicht kapiert hab ist das mit den "
neu:
txtSfZeichnungsnummer.Text = "$PRP:CHR$(34)SW-Dateiname(File Name)CHR$(34).$PRP:CHR$(34)VersionCHR$(34)"

---

Nicht ganz, du musst den mit der Funktion Chr(34) zusammensetzen, also:

txtSfZeichnungsnummer.Text = "$PRP:" & CHR$(34) & "SW-Dateiname(File Name)" & CHR$(34) & ".$PRP:" & CHR$(34) & "Version" & CHR$(34)

Ciao,
Stefan

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

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