---

Hi,
weiß jemand ob es bei dem iProp Wizard den Gewichtseintrag in der idw so beeinflussen kann, daß er auch z.B. 0,025 Kg anzeigt und nicht dabei 0Kg einträgt?

------------------
Grüsse Paul
Motto: Niemals aufgeben!
Alles wird gut!!
Wer die Vergangenheit nicht kennt, weiss nichts von der Gegenwart und wird die Zukunft nie verstehen.

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

---

Schau mal in der ini Datei von iProp Wizard nach.
Vielleicht kann man dort die Kommastellen einstellen.

------------------
Gruß
Hans-Peter
Der Wahnsinn in Sachen Musik.

  Das Saxregister
 

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

---

Nö, da geht es nicht. Hat noch jemand eine Idee?

------------------
Grüsse Paul
Motto: Niemals aufgeben!
Alles wird gut!!
Wer die Vergangenheit nicht kennt, weiss nichts von der Gegenwart und wird die Zukunft nie verstehen.

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

---

oder Ihr nehmt einfach dies hier:

Sub GewichtHolenAssembly()
'Schreibt die Masse des Bauteils in die benutzerdefinierten Eigenschaften als Eigenschaft "Masse"

'Nur im Part:
If ThisApplication.ActiveDocumentType = kAssemblyDocumentObject Then
 
  Dim oDoc As AssemblyDocument
  Set oDoc = ThisApplication.ActiveDocument
 
  'Wie ist die Masse?
  Dim sMasse As String
  sMasse = oDoc.UnitsOfMeasure.GetStringFromValue(oDoc.ComponentDefinition.MassProperties.Mass, oDoc.UnitsOfMeasure.MassUnits)
  'Komma durch Punkt ersetzen
  'sMasse = Replace(sMasse, ",", ".", vbTextCompare)
 
  '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

und tragt das iProperty "Masse" mit 3 Nachkommastellen ins schriftfeld ein.

HTH

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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

---

und dann gibt es das noch für ein Part_Dokument

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)
  'Komma durch Punkt ersetzen
  'sMasse = Replace(sMasse, ",", ".", vbTextCompare)
 
  '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

------------------
Gruß Lothar

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

Während man es aufschiebt, verrinnt das Leben.
—Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)

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