---

Hallo Jörgen,
ich habe mir dein kleines tool Gewicht.bas.txt runtergeladen. Leider bekomme ich es nicht zum laufen! Kannst du mir sagen was ich Falsch mache? Dein Tool Mstab.bas funktioniert dagegen einwandfrei. Ich habe das gewicht tool auf gleiche weise eingebaut leider ohne erfolg.

Attribute VB_Name = "Modul2"
Sub GewichtHolen()
'Schreibt die Masse des Bauteils in die benutzerdefinierten Eigenschaften als Eigenschaft "Masse"

'Nur im Part:
If ThisApplication.ActiveDocumentType = kPartDocumentObject Then
 
  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument
 
  'Wie ist die Masse?
  Dim sMasse As String
  sMasse = oDoc.UnitsOfMeasure.GetStringFromValue(oDoc.ComponentDefinition.MassProperties.Mass, oDoc.UnitsOfMeasure.MassUnits)
 
  'Benutzerdefinierten Eintrag erzeugen
  'Masse vorhanden?
  Dim bMasseDa As Boolean
  Dim oProp As Property
  bMasseDa = False
  For Each oProp In oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'Benutzerdefiniert
    If oProp.Name = "Masse" Then
      bMasseDa = True
      Exit For
    End If
  Next
  'Masse eintragen oder ändern
  If bMasseDa Then
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Item("Masse").Value = sMasse
  Else
    oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}").Add sMasse, "Masse"
  End If

End If

End Sub

Es wäre toll wenn wenn du mir helfen könntest

Gruß Rolf

PS. vieleicht weis auch jemand anders welchen fehler ich mache???

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

---

Hallo,

die Zeile Attribute VB_Name = "Modul2" gehört nicht zum Quellcode. Eine Funktion ist immer von Sub bis End Sub.

Sonst läuft das Makro, wie auch alle anderen von Jörgen 

------------------
Grüße daywa1k3r

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

---

Hallo daywa1k3r
Auch wenn ich die Zeile Attribute VB_Name = "Modul2" weglasse bekomme ich die routine nicht angeschoben!

Gruß Rolf

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

---

Ja, kommt ne Fehlermeldung, und welche ? Und was deiner Meinung soll das Makro machen ? Das Makro setzt nur eine Benutzerdefinierte Eigenschaft "Masse". 

------------------
Grüße daywa1k3r

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

---

Nein es kommt keine Fehlermeldung, aber die Benutzereigenschaft wird auch nicht gesetzt! Die hätte ich ja gerne damit ich endlich die Gewichte in den Zeichnungskopf einlesen kann!

Gruß Rolf

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

---

Also bei mir funzt es. Ja trotzdem noch ein mal von vorne:
IPT aufmachen; Makro Editor aufmachen; auf ein Modul doppelklicken; Funktion reinkopieren; den Cursor in die Sub setzen; und Makro starten. IPT rechte Taste -> Eigenschaften -> Benutzerdefiniert: steht bei mir Masse! Ich habe IV 6, und kann es nicht auf 5.3 testen, aber es müsste auch auf 5.3 laufen.

Nachtrag: bist Du vielleicht in ne Baugruppe? Da funzt es nicht.

------------------
Grüße daywa1k3r

[Diese Nachricht wurde von daywa1k3r am 13. Februar 2003 editiert.]

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

---

Nein ich bin nicht in einer Baugruppe, aber in einer .idw
Nach deiner Starthilfe mit der .ipt habe ich auch erfolg mit dem tool gehabt!!! Ich benötige die Masse aber in einer .idw !!!
Kannst du mir hier auch einen Tipp geben???

Danke im Voraus Gruß Rolf

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

---

Hm, die Tigerente hat sich einen lustigen Trick ausgedacht, und hat alle PartDocument durch AssemblyDocument ersetzt, und das Makro lief auch in eine Baugruppe  Ich muss immer wieder lachen. Bei einer IDW ist das ein wenig komplizierter. Da funktioniert ein Befehl nicht:

sMasse = oDoc.UnitsOfMeasure.GetStringFromValue(oDoc.ComponentDefinition.MassProperties.Mass, oDoc.UnitsOfMeasure.MassUnits)

Es wäre möglich eine Ansicht zu markieren und dann das Makro starten. Makro soll im Hintergrund die markierte IPT aufmachen, die Masse setzen, IPT aktualisieren, schliessen, und danach die IDW aktualisieren. Das wäre auf die schnelle ein Lösungsweg. Melde dich falls Du probleme hast es umzusetzen, dann würde ich es machen. Aber heute abend habe ich genug zu tun, also dann morgen. Und vielleicht meldet sich der Jörgen auch, schliesslich ist das sein Makro. Und wie schon gesagt war das nur eine schnelle Diagnose, daher weiss ich nicht ob es funktionieren wird.

Bis bald...

------------------
Grüße daywa1k3r

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

---

Hallo VBA-Spezialisten,

in dem oben abgebildeten VBA-Programm gibt es den Eintrag "{D5CDD505-2E9C-101B-9397-08002B2CF9AE}"! Ich habe mal in der RegEdit nach so einem Eintrag gesucht, bin aber nicht fündig geworden!

1.) Was bedeutet speziell dieser Eintrag?
2.) Gibt es eine Übersicht über solche Ausdrücke?

Ich bedanke mich schon einmal für Eure Hilfe!

Martin

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

---

Hi,

ja die gibt es, und zwar in Inventor / ? / Programmierungshilfe.

Einfach den ganzen Schlüssel als Suchbegriff eingeben, und nachlesen.

------------------
Grüße daywa1k3r

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

---

Hallo,

habe gerade das Modul bei mir eingebaut ... funktioniert auch alles soweit, bis auf das ein 25gr schweres Teil 25Kg wiegt ...
Die Einheiten über Dokumenteinstellungen zu verändern ist leider nicht zielführend ...

Vielleicht kann mir jemand helfen ???

Grüße Stefan

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