| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Physikalische Eigenschaften in Parameterliste benutzen (3158 mal gelesen)
|
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13348 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 04. Okt. 2006 00:38 <-- editieren / zitieren --> Unities abgeben:
Moin! Bei den ProE-lern hat der geniale Kollege Stahl kürzlich gepostet, wie man aus dem Volumen, der Oberfläche und der Stärke eines Blechteils ruckzuck per mathematischer Formel die Umfangslänge bestimmen kann: http://ww3.cad.de/foren/ubb/Forum12/HTML/006022.shtml#000008 Dabei habe ich dann auch gesehen, dass die Jungs dort diese Werte direkt zum Rechnen zur Verfügung haben. Bei uns in Inventor sind diese Werte leider unter Physikalische Eigenschaften zunächst mal nicht zugänglich, aber es gibt ja Tools, die damit hantieren. Wie kann man diese Werte in der Parameterliste nutzbar machen? ------------------ ~ Roland www.Das-Entwicklungsbuero.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach Moderator Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 04. Okt. 2006 07:43 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3829 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: 04. Okt. 2006 08:06 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hallo Roland, Du meinst doch nicht inetwa so etwas --> ? ------------------ 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 |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 04. Okt. 2006 09:55 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
So in etwa? Code:
Public Sub Kontur() Dim oPart As PartDocument Dim oFace As Face Dim oThicknessParam As Parameter Dim oSheetMetalCompDef As SheetMetalComponentDefinition Dim dArea As Double Dim dVolume As Double Dim dThickness As Double Dim dContour As Double ' Aktives Dokument holen Set oPart = ThisApplication.ActiveDocument dArea = 0 For Each oFace In oPart.ComponentDefinition.SurfaceBodies(1).Faces ' Gesamtfläche berechnen dArea = dArea + oFace.Evaluator.Area Next 'Volumen berechnen dVolume = oPart.ComponentDefinition.SurfaceBodies(1).Volume(0.01) Set oSheetMetalCompDef = oPart.ComponentDefinition Set oThicknessParam = oSheetMetalCompDef.ActiveSheetMetalStyle.Thickness ' Blechstärke berechnen dThickness = oThicknessParam.ModelValue ' Kontur berechnen dContour = (dArea - (2 * (dVolume / dThickness))) / dThickness MsgBox ("Fläche: " & dArea & vbCrLf & _ "Volumen: " & dVolume & vbCrLf & _ "Blechstärke: " & dThickness & vbCrLf & vbCrLf & _ "Kontur: " & dContour) End Sub
Jetzt ohne Einheiten, aber nur der Prinzip. Wäre eine schöne Spalte in OFD ------------------ Grüße daywa1k3r FX64 Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13348 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 04. Okt. 2006 12:11 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen! Ja Paul, die Schnittlänge wird halt gelegentlich gefragt für Kalkulation und so. Dass es fertige Lösungen gibt , ist mir klar. Es geht mir aber ganz allgemein darum, wie ich diese Werte für Berechnungen in der Parameterliste nutzen kann. Lothar, Dein Code scheint mir genau das zu sein, was ich meine. Danke! Muss ich mal weiter studieren und probieren. Igor, Du machst schon wieder gleich die ganze Arbeit Ich muss jetzt nur noch verstehen, wann das gerechnet wird. Ich hätte diese Werte gerne als immer aktuelle Variablen in der Parameterliste. ------------------ ~ Roland www.Das-Entwicklungsbuero.de 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: 3829 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: 08. Okt. 2006 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Zitat: Original erstellt von Doc Snyder: ... Ich hätte diese Werte gerne als immer aktuelle Variablen in der Parameterliste.
Hi Roland, und weil das nicht ist, habe ich in der Iconleiste einen Knopf der heiißt: "Daten aktualisieren" und der durchläuft alle Makros, die mir für diese Art von aktuellen Dokumenten wichtig erscheinen. - Bei IDW'S aktualisiert es die Maßstäbe und auch den Zeichnungsrahmen mitsamt Faltmarken - Bei Blechteilen schreibt es die Abwicklung raus - Bei allgemeinen Teilen schreibt es die Halbzeugangaben in das iProp "Standard" -... und da wird immer mal wieder draufgedengelt und die Welt ist in Ordnung . ------------------ 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 |
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13348 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 08. Okt. 2006 16:14 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Alienware m17x, Win7, Inventor2012
|
erstellt am: 08. Okt. 2006 16:22 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Charly Setter Ehrenmitglied V.I.P. h.c.
Beiträge: 11978 Registriert: 28.05.2002 Trau keiner Diva unter SP2....
|
erstellt am: 08. Okt. 2006 16:58 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Moin Roland Bei der Berechnung der Parameter (in er FX-Liste) kannst Du VBA-Maros verwenden. Und in diesem Makro kannst Du dann benutzerdefinierte Eigenschaften setzen (oder bei Bedarf erzeugen). D.h.: Du hast den Wert dann als Parameter und als Property zur Verfügung. Wie Du VBA-Makros in der FX-Liste einsetzt sagt Dir "F1" oder Sean ------------------ Der vernünftige Mensch paßt sich der Welt an; der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen. Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab. (George Bernard Shaw)
[Diese Nachricht wurde von Charly Setter am 08. Okt. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13348 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 08. Okt. 2006 17:02 <-- editieren / zitieren --> Unities abgeben:
|
Doc Snyder Ehrenmitglied V.I.P. h.c. Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13348 Registriert: 02.04.2004 AIP2013SP2.2 XPproSP2 MS-IntelliMouse-Optical SpacePilot DellM4600 2,13GHz 2GB FxGo1400 1920x1200 am Dock Dell2711
|
erstellt am: 08. Okt. 2006 18:50 <-- editieren / zitieren --> Unities abgeben:
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3829 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: 09. Okt. 2006 12:56 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hi Roland, Du meinst wahrscheinlich diese hier. und ja, das iProp2Params habe ich auch noch geändert für IV10 - im 9er lief es vorher einwandfrei. ------------------ Gruß Lothar --------------------------------------------------- Während man es aufschiebt, verrinnt das Leben. �Lucius Annaeus Seneca (ca. 4 v. Chr - 65 n. Chr.) [Diese Nachricht wurde von lbcad am 09. Okt. 2006 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
chako74 Mitglied Teschek
Beiträge: 127 Registriert: 04.12.2003
|
erstellt am: 15. Mrz. 2009 14:53 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9795 Registriert: 01.12.2003 AutoCAD 200x, Civil, LDD, MDT, ARD, ACA(ADT) Inventor AIP 4-11,200x WinXP, W2K
|
erstellt am: 15. Mrz. 2009 18:37 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Zitat: Original erstellt von chako74: Gibt´s dieses Script auch schon irgendwo für IV2009?
Gehts um das Makro von Igor oder das von Lothar? Das von Lothar(lbcad) gepostete Makro läuft unverändert auch mit 2009 - was ist denn das eigentliche Problem bzw. gibts eine Fehlermeldung? ------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
chako74 Mitglied Teschek
Beiträge: 127 Registriert: 04.12.2003
|
erstellt am: 16. Mrz. 2009 13:20 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9795 Registriert: 01.12.2003 AutoCAD 200x, Civil, LDD, MDT, ARD, ACA(ADT) Inventor AIP 4-11,200x WinXP, W2K
|
erstellt am: 16. Mrz. 2009 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
lbcad Ehrenmitglied V.I.P. h.c. Dipl.-Ing. Maschinenbau und CAD-Trainer
Beiträge: 3829 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: 21. Mrz. 2009 10:35 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
chako74 Mitglied Teschek
Beiträge: 127 Registriert: 04.12.2003
|
erstellt am: 13. Apr. 2009 07:14 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Ja läuft jetzt! Zum Glück hat mich noch ein VBA-Profi unterstützt, da die Parameternamen in 2009 anscheinend nicht dem Script entsprechen, aber jetzt funktionierts! Herzlichen Dank! ------------------ Wer vom Ziel nichts weiß, wird den Weg nicht finden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |