| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY WIRD VON NVIDIA ZUM HÄNDLER DES JAHRES GEWÄHLT |
Autor
|
Thema: Iproperties - Physikalische Eigenschaften (6052 mal gelesen)
|
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 20. Mai. 2005 10:48 <-- editieren / zitieren --> Unities abgeben:
Hallo liebs Forum, Hab da ein kleines Problem. wie kann ich denn die Zahl beim Volumen oder bei der Fläche umstellen das ein etwas einfacherer Wert ohne so viele Nullen dastehet? Falls das geht? Hoffe auf rasche und positive Antworten! ;-)
------------------ gdS (greetz da Senf) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Mario Wipf Mitglied Dipl. Ing. FH, MAS FHO BAE
Beiträge: 535 Registriert: 07.10.2003 AIS 9 SP3, AIS 10 WINDOWS XP Pro Fujitsu Siemens CELSIUS M430 Nvidia Quadro FX 1400 128 MB
|
erstellt am: 20. Mai. 2005 10:56 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Hallo Die hier angegebenen Einheiten stimmen mit denen überein, die Du unter "extras" → "Dokumenteinstellungen" definiert hast. Du kannst da die Masse z.B. ändern auf kg. und die längen auf m (Meter). Das hat dann aber zur Folge, dass die Einheiten mit denen Du konstruierst (speziell in Hinblick auf die Längenmasse) danach auch in Meter erfolgen. Daher würde ich mir überlegen, ob es nicht einfacher wäre, die Einheiten der i-Properties schnell umzurechnen. Vieleicht hat aber auch noch jemand ein Tool... Gruss Mario Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 20. Mai. 2005 10:59 <-- editieren / zitieren --> Unities abgeben:
|
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 20. Mai. 2005 11:14 <-- editieren / zitieren --> Unities abgeben:
|
Frank_Schalla Ehrenmitglied CAD_SYSTEMBETREUER
Beiträge: 1732 Registriert: 06.04.2002 DELL M6800 Cad Admin Methodikentwickler 3D
|
erstellt am: 21. Mai. 2005 08:36 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Ok hier vielleicht etwas was dir hilft. Kopiere die Zeilen in deine Bauteilvorlage Was passiert. Beim Speichern eines Bauteils (nur wenn Doc.Dirty) werden die folgenden 4 Benutzerprops (Da machen solche Angaben mehr Sinn, da sie auch ohne Inventor (Explorer >> IPROPERTIES) sichtbar sind) geschrieben. GEWICHT FLAECHE VOLUMEN WERKSTOFF Die Anzahl der Dezimalstellen wird exemplarisch in einer dieser Zeilen gesetzt. 'Gewicht merken und Runden realmass = (Round(oMassProps.Mass, 2) & " Kg") realmassvalue = (Round(oMassProps.Mass, 2)) Die 2 steht für die Anzahl der Stellen und kann nach deinen Wpünschen angepasst werden So hier die Codezeilen. ******************************************************* Public Sub AutoSave_on_part() Dim oPartDoc As PartDocument Set oPartDoc = ThisApplication.ActiveDocument If oPartDoc.Dirty = True Then 'MsgBox "ja" part_write_rohmass_3 Else 'MsgBox "nein" End If End Sub
Private Sub part_write_rohmass_3() '++++++++++++++++++++++++++++++++++++++++++++ ' Set a reference to the part document. ' This assumes a part document is active. Dim oPartDoc As PartDocument Set oPartDoc = ThisApplication.ActiveDocument ' Set a reference to the mass properties object. Dim oMassProps As MassProperties Set oMassProps = oPartDoc.ComponentDefinition.MassProperties ' Set the accuracy to medium. oMassProps.Accuracy = k_High On Error Resume Next 'Gewicht merken und Runden realmass = (Round(oMassProps.Mass, 2) & " Kg") realmassvalue = (Round(oMassProps.Mass, 2)) 'Flaeche merken und Runden realarea = (Round(oMassProps.Area, 2) & " mm^2") realareavalue = (Round(oMassProps.Area, 2)) 'Volumen merken und Runden realvol = (Round(oMassProps.Volume, 2) & " mm^3") realvolvalue = (Round(oMassProps.Volume, 2)) 'material lesen Dim oPropsets As PropertySets Set oPropsets = oPartDoc.PropertySets Dim oPropmaterial As Property Set oPropmaterial = oPropsets.Item("{32853F0F-3444-11d1-9E93-0060B03C1CA6}") _ .ItemByPropId(kMaterialDesignTrackingProperties) Dim oPropmaterial_name As String oPropmaterial_name = oPropmaterial.Value
'PROPERTIES SCHREIBEN (USER) Dim oPropSet As PropertySet Set oPropSet = oPropsets.Item("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}") 'Wenn vorhanden dann löschen oPropSet.Item("GEWICHT").Delete oPropSet.Item("FLAECHE").Delete oPropSet.Item("VOLUMEN").Delete oPropSet.Item("WERKSTOFF").Delete 'Nun neu schreiben Call oPropSet.Add(realmass, "GEWICHT", 105) Call oPropSet.Add(realarea, "FLAECHE", 106) Call oPropSet.Add(realvol, "VOLUMEN", 107) Call oPropSet.Add(oPropmaterial_name, "WERKSTOFF", 108) On Error GoTo 0
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ End Sub ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 23. Mai. 2005 07:21 <-- editieren / zitieren --> Unities abgeben:
|
wolkan Mitglied Entwicklung und Konstruktion
Beiträge: 632 Registriert: 23.01.2003
|
erstellt am: 24. Mai. 2005 11:18 <-- editieren / zitieren --> Unities abgeben: Nur für roox
|
Frank_Schalla Ehrenmitglied CAD_SYSTEMBETREUER
Beiträge: 1732 Registriert: 06.04.2002 DELL M6800 Cad Admin Methodikentwickler 3D
|
erstellt am: 25. Mai. 2005 08:20 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Eigentlich ganz einfach 1) Öffne die Datei Norm.ipt (kein anderes Dokument sollte offen sein) 2) Drücke ALT*F11 3) Wähle nun im VBA Editor Dokumentenprojekt >> This Document 4) Kopiere den von mir erstellten Code in das VBA Fenster 5) Speicher das Document TARA nun gehts ------------------ Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 25. Mai. 2005 08:34 <-- editieren / zitieren --> Unities abgeben:
|
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 25. Mai. 2005 08:36 <-- editieren / zitieren --> Unities abgeben:
|
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 25. Mai. 2005 08:42 <-- editieren / zitieren --> Unities abgeben:
|
Frank_Schalla Ehrenmitglied CAD_SYSTEMBETREUER
Beiträge: 1732 Registriert: 06.04.2002 DELL M6800 Cad Admin Methodikentwickler 3D
|
erstellt am: 25. Mai. 2005 08:44 <-- editieren / zitieren --> Unities abgeben: Nur für roox
|
roox Mitglied Inventor
Beiträge: 102 Registriert: 03.11.2003 P4 2.8GHz 1 GB RAM WIN XP Prof. SP2 NVIDIA Quadro4 980XGL Inventor 11 SP4
|
erstellt am: 25. Mai. 2005 09:11 <-- editieren / zitieren --> Unities abgeben:
|
Bonkers Mitglied Techn. Angestellter
Beiträge: 553 Registriert: 26.01.2005 Intel(R) Xeon (R) W3530 2.79GHz 12 GB RAM WIN 7 Prof. 64 Bit - SP1 NVIDIA Quadro 600 Inventor 2015
|
erstellt am: 25. Mai. 2005 09:27 <-- editieren / zitieren --> Unities abgeben: Nur für roox
|
DANS Mitglied Konstrukteur CAD
Beiträge: 75 Registriert: 18.08.2005 E8400 3.0GHz / 8 GB RAM / Quadro FX 1700 / Spacenavigator / APDS 2012
|
erstellt am: 13. Sep. 2006 17:41 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Zitat: Original erstellt von Frank_Schalla:
Die Anzahl der Dezimalstellen wird exemplarisch in einer dieser Zeilen gesetzt. 'Gewicht merken und Runden realmass = (Round(oMassProps.Mass, 2) & " Kg") realmassvalue = (Round(oMassProps.Mass, 2)) Die 2 steht für die Anzahl der Stellen und kann nach deinen Wünschen angepasst werden
Hallo Frank, bei Masse steht es jetzt drin, aber bei der Fläche und Volumen funktioniert es komischerweise nicht ... ------------------ Gruß Daniel Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas B. Mitglied Konstrukteur
Beiträge: 9 Registriert: 24.08.2006 MDT 2007 + Inventor 11 SP1 + XP Professional SP2 Pentium 2,8 Ghz, 2GB Speicher, Quadro FX1400 128MB, Novell 4.82 SP2
|
erstellt am: 17. Jan. 2007 08:54 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Hallo Frank, für die von mir benötigte Flächenberechnung habe ich dein Makro bei mir mal eingefügt. Es funktioniert sehr gut. Ich hätte da nur eine Frage dazu. Ist es möglich die Fläche in dm² auszugeben , da ich diese auf der idw benötige. Gruß Thomas
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3823 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 17. Jan. 2007 10:02 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Zitat: Original erstellt von Thomas B.: Hallo Frank,für die von mir benötigte Flächenberechnung habe ich dein Makro bei mir mal eingefügt. Es funktioniert sehr gut. Ich hätte da nur eine Frage dazu. Ist es möglich die Fläche in dm² auszugeben , da ich diese auf der idw benötige. Gruß Thomas
Hallo Thomas, Natürlich ist das möglich! Du mußt einfach mal von der Denke runter, daß Dir das alles mundgerecht präsentiert wird. Dann geht es so: Du editiert das Makro Du speicherst es Du führtst es aus voila. ------------------ 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 |
Thomas B. Mitglied Konstrukteur
Beiträge: 9 Registriert: 24.08.2006 MDT 2007 + Inventor 11 SP1 + XP Professional SP2 Pentium 2,8 Ghz, 2GB Speicher, Quadro FX1400 128MB, Novell 4.82 SP2
|
erstellt am: 25. Jan. 2007 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Zitat: Original erstellt von lbcad: Hallo Thomas,Natürlich ist das möglich! Du mußt einfach mal von der Denke runter, daß Dir das alles mundgerecht präsentiert wird. Dann geht es so: Du editiert das Makro Du speicherst es Du führtst es aus voila.
T'schuldigung für die Frage Lothar. Ich bin halt kein Programmierer. Ich weiß leider nicht was ich editieren soll. Frank halt die Einstellung der Kommastellen beschrieben. Bin für Hinweise dankbar. Danke Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3823 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 25. Jan. 2007 14:48 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Zitat: Original erstellt von Thomas B.: ... Ist es möglich die Fläche in dm² auszugeben , da ich diese auf der idw benötige.Gruß Thomas
Lieber Thomas, das Benutzen eines Makros ist eben nicht nur auf das Einfügen und auf den Knopf dengeln beschränkt. Insbesondere dann, wenn man mit dem Ergebnis nicht so ganz zufrieden ist, sollte man auch mal anfangen zu lesen. Da steht:
Code:
'Flaeche merken und Runden realarea = (Round(oMassProps.Area, 2) & " mm^2") realareavalue = (Round(oMassProps.Area, 2))
Was könnte denn damit gemeint sein? ok - gut - keine Ahnung ?!? Wir schauen genauer hin: Code:
Round(oMassProps.Area, 2)
Da sollte jetzt ein wenig aus dem Matheunterricht an die Oberfläche kommen. Da wird also auf 2 Stellen gerundet! Und das Ergebnis soll angeblich dann da in "mm^2" stehen. So und jetzt bleiben nur noch 2 Fragen: - Wie rechne ich mm^2 in dm^2 um - Wie wird die Zeile wohl verändert, damit die Berechnung wie gewünscht durchgeführt wird. Und jetzt bist Du wieder allein . ------------------ 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 |
Bonkers Mitglied Techn. Angestellter
Beiträge: 553 Registriert: 26.01.2005 Intel(R) Xeon (R) W3530 2.79GHz 12 GB RAM WIN 7 Prof. 64 Bit - SP1 NVIDIA Quadro 600 Inventor 2015
|
erstellt am: 26. Jan. 2007 07:29 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Hallo Lothar, ich weiß nicht, aber wie es aussieht bin ich dazu auch zu blöd. Also ich kann die Werte der Rundung verändern wie ich will, aber das Ergebnis bleibt das selbe wie vorher. Tut mir Leid Thomas, würde dir gerne helfen!
Bring es aber auch nicht hin. ------------------ Fg Mario Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
W. Holzwarth Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau
Beiträge: 9326 Registriert: 13.10.2000 Inventor bis 2024, Rhino 7, Mainboard ASUS ROG STRIX X570F-Gaming, CPU Ryzen 9 5900X, 64 GB RAM, 4 TB SSD, Radeon RX 6900 XT, Dual Monitor 24", Spacemouse Enterprise, Win 10 22H2
|
erstellt am: 26. Jan. 2007 09:26 <-- editieren / zitieren --> Unities abgeben: Nur für roox
|
Thomas B. Mitglied Konstrukteur
Beiträge: 9 Registriert: 24.08.2006 MDT 2007 + Inventor 11 SP1 + XP Professional SP2 Pentium 2,8 Ghz, 2GB Speicher, Quadro FX1400 128MB, Novell 4.82 SP2
|
erstellt am: 26. Jan. 2007 10:03 <-- editieren / zitieren --> Unities abgeben: Nur für roox
Hallo Lothar, das mathematische war mir schon klar, mir ging es um die "Schreibweise". Ich habe es jetzt hinbekommen. Ich nehme mal an das es so aussehen soll: 'Flaeche merken und Runden realarea = ((Round(oMassProps.Area, 2) * 0.01) & " dm^2") realareavalue = (Round(oMassProps.Area, 2)) Ich habe aber nur einen Faktor von 0,01 eingesetzt da der berechnete Wert ja schon in cm² ausgegeben wurde. Ich danke Dir für den kleinen Lehrgang in VisalBasic. Thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Technischer Zeichner / 3D-Produktdesigner (m/w/d) | Innovative Maschinen und Anlagen für die Recycling- und Zementindustrie sind unsere Leidenschaft. Mit eigenen Entwicklungen und hoher Fertigungstiefe gehören wir zu den international führenden Unternehmen. Als global agierendes mittelständisches Unternehmen basiert unser Erfolg auf direkten Entscheidungswegen, gelebter Menschlichkeit und effektivem Teamplay. Wir suchen Persönlichkeiten, die etwas bewegen und mit ihren mutigen Ideen die Welt der Recyclingtechnik verbessern wollen.... | Anzeige ansehen | Technischer Zeichner, Bauzeichner |
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3823 Registriert: 15.02.2001 DELL Precision 7520 Win10Pro-64 Inventor mit Vault Professional 2024 --------------------- Während man es aufschiebt, verrinnt das Leben. Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.)
|
erstellt am: 26. Jan. 2007 11:54 <-- editieren / zitieren --> Unities abgeben: Nur für roox
|