| |
| 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: Summenlänge der Schweißnähte bestimmen (3358 mal gelesen)
|
Doc Snyder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 24. Sep. 2005 16:12 <-- editieren / zitieren --> Unities abgeben:
Hallo Forum, zum Vergleich und zur Kalkulation verschiedener Behälterkonstruktionen würden wir gerne die Gesamtlänge der Schweißnähte einer Schweißbaugruppe berechnen. Vorausgesetzt, die Nähte sind alle in der Schweiß-iam angelegt, kann Inventor die dann zusammenzählen oder müssen wir das von Hand machen? Viele Grüße Euer Doc Snyder 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 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 16:34 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hier ein Fussball Halbzeit Makro: Code:
Public Sub test_schweissnaht_laenge() Dim oAsm As AssemblyDocument Set oAsm = ThisApplication.ActiveDocument Dim dGesamt As Double Dim oWeld As Weld For Each oWeld In oAsm.ComponentDefinition.Welds dGesamt = dGesamt + oWeld.SymbolAttachPoint.DistanceTo(oWeld.SymbolBreakPoint) Next MsgBox dGesamt & " cm" End Sub
Ist es das was du suchst? ------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 24. Sep. 2005 16:53 <-- editieren / zitieren --> Unities abgeben:
Hallo daywa1k3r, ja das sieht doch schon mal sehr gut aus! Danke, hätte nicht geglaubt, dass es so leicht ist - vorausgesetzt ich krieg den Code ans Laufen. Sag doch nochmal bitte ganz kurz wie das geht, irgendwas mit alt-F11 und Text kopieren, das weiß ich noch, aber wie starte ich so was dann im normalen Leben? Muss ich dazu immer in den Editor? Und wo steckt das dann? Muss das in jede Schweißbaugruppe kopiert werden? Und was steht jetzt in dieser Varaiblen oWeld.SymbolAttachPoint.DistanceTo(oWeld.SymbolBreakPoint)? Ist das automatisch die Länge der für eine Schweißnaht gewählten Kante(n)? Fragen über Fragen. Ich mag kein Fußball. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 24. Sep. 2005 17:13 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hi Doc;-) Alt+F11, dann im VBE Menu Einfügen > Modul in das Modulfenster den Code kopieren, den Cursor irgendwo zwischen Sub und End Sub parken und F5 [ausführen] drücken. Du kannst Dir auch auf Next mal einen Haltepunkt setzen, dann geh' auf Ansicht > Lokalfenster, dort drinnen siehst Du was oWeld mitbringt, einfach auf das [+] klicken;-) Gruss Nancy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PaulSchuepbach Mitglied Programmierer
Beiträge: 1005 Registriert: 01.10.2003
|
erstellt am: 24. Sep. 2005 17:14 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Hi Roland, bevor Du jetzt das ganze WE nicht schlafen kannst: - öffne in IV den VBA Editor mit Alt + F11 - kopier den Code und füge diesen in das Default.ivb - Projekt (das oberste im Browser links oben) - VBA Editor schliessen - einmal speichern - mit Alt + F8 das Makro-Fenster öffnen - Das Makro markieren und ausführen Vom Default.ivb Projekt aus hast Du immer Zugriff auf dieses Makro - also nichts mit ' in alle Baugruppen kopieren' Durch die Iteration durch alle Schweissnähte wird die Gesamtlänge zusammengezählt, guckst Du Code: oWeld.SymbolAttachPoint.DistanceTo(oWeld.SymbolBreakPoint) also die Distanz von einem Punkt (=Anfang) mikttels '.DistanceTo' zum nächsten Punkt. Grüsse,
Paul www.morecam.ch 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 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 18:14 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
invhp Ehrenmitglied V.I.P. h.c. MB Techniker, AE, WKZmacher
Beiträge: 5552 Registriert: 16.05.2002 (fast) alles, was Autodesk im Mechanikbereich anbietet ;)
|
erstellt am: 24. Sep. 2005 18:42 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
@all mit Inventor 10 unter Extras > Schweißnahtbericht lässt sich ein Bericht über die Schweissnähte in einer IAM (inkl. UBGs) erstellen als XLS-Datei. Dort kann dann leicht mit Excelfunktionen (Summe über) die Gesamtlänge und Masse bestimmt werden. ------------------ Grüsse Jürgen www.inventor-faq.de Autodesk Inventor Certified Expert Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Charly Setter Moderator
Beiträge: 11977 Registriert: 28.05.2002 Der vernünftige Mensch paßt sich der Welt an; der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab. (George Bernard Shaw)
|
erstellt am: 24. Sep. 2005 19:02 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Zitat: Original erstellt von invhp: @all mit Inventor 10 unter Extras > Schweißnahtbericht lässt sich ein Bericht über die Schweissnähte in einer IAM (inkl. UBGs) erstellen als XLS-Datei. Dort kann dann leicht mit Excelfunktionen (Summe über) die Gesamtlänge und Masse bestimmt werden.
Wie langweilig
------------------ 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) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 24. Sep. 2005 19:41 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Charly Setter Moderator
Beiträge: 11977 Registriert: 28.05.2002 Der vernünftige Mensch paßt sich der Welt an; der unvernünftige besteht auf dem Versuch, die Welt sich anzupassen.<P>Deshalb hängt aller Fortschritt vom unvernünftigen Menschen ab. (George Bernard Shaw)
|
erstellt am: 24. Sep. 2005 19:46 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Gleichfalls Wann kommst Du nach Stuttgart ? ------------------ 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) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
thomas109 Moderator Dompteur
Beiträge: 9350 Registriert: 19.03.2002 Dell620s i5 Geforce GT 620 6GB;Lenovo X240; Citrix Desktop; Lenovo S30; IV 4 - 2009 RIP, aktiv 2010 - 2023 produktiv AIS2023.3 +PartSolutions / ECTR AICE .
|
erstellt am: 24. Sep. 2005 20:26 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 20:38 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
thomas109 Moderator Dompteur
Beiträge: 9350 Registriert: 19.03.2002 Dell620s i5 Geforce GT 620 6GB;Lenovo X240; Citrix Desktop; Lenovo S30; IV 4 - 2009 RIP, aktiv 2010 - 2023 produktiv AIS2023.3 +PartSolutions / ECTR AICE .
|
erstellt am: 24. Sep. 2005 20:58 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 21:07 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
thomas109 Moderator Dompteur
Beiträge: 9350 Registriert: 19.03.2002 Dell620s i5 Geforce GT 620 6GB;Lenovo X240; Citrix Desktop; Lenovo S30; IV 4 - 2009 RIP, aktiv 2010 - 2023 produktiv AIS2023.3 +PartSolutions / ECTR AICE .
|
erstellt am: 24. Sep. 2005 21:24 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 21:27 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
thomas109 Moderator Dompteur
Beiträge: 9350 Registriert: 19.03.2002 Dell620s i5 Geforce GT 620 6GB;Lenovo X240; Citrix Desktop; Lenovo S30; IV 4 - 2009 RIP, aktiv 2010 - 2023 produktiv AIS2023.3 +PartSolutions / ECTR AICE .
|
erstellt am: 24. Sep. 2005 21:48 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 24. Sep. 2005 21:58 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Doc Snyder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 25. Sep. 2005 01:25 <-- editieren / zitieren --> Unities abgeben:
Moin! Hab das mal probiert, aber sowohl bei der exe als auch bei dem Code kommt Unsinn raus, beide Male das Gleiche. Z.B. eine einfache Kehlnaht von 110 mm Länge: 1,4142 cm. Querschnitt ändern - egal, Länge ändern - auch egal (!), andere Schweißnaht bauen - auch egal, immer nur 1,4142 cm. Ich habe dann weiter probiert und geforscht, und bin nun sicher, dass sich SymbolAttachPoint und SymbolBreakPoint gar nicht auf die Schweißnaht selber, sondern nur auf das Schweißsymbol beziehen, und zwar auf die Pfeilspitze und den Knick in der Führungslinie. (Der Name macht aber auch schon misstrauisch, oder?) Nur - wo sind jetzt die richtigen Koordinaten für die Schweißnaht selber versteckt? Jedenfalls mache ich gerade meine ersten Schritte in VBA; ist ja auch was wert. Danke für den Anstoß! Und was ist bitte eine kosmetische Naht? Die Hilfe kennt das Wort nicht. 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 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 25. Sep. 2005 05:13 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Lucian Vaida Moderator Dipl.-Ing. / Konstruktion
Beiträge: 3823 Registriert: 14.11.2002 Inventor 2024.2 Windows 11 Pro 23H2 DELL 7760
|
erstellt am: 25. Sep. 2005 10:09 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
thomas109 Moderator Dompteur
Beiträge: 9350 Registriert: 19.03.2002 Dell620s i5 Geforce GT 620 6GB;Lenovo X240; Citrix Desktop; Lenovo S30; IV 4 - 2009 RIP, aktiv 2010 - 2023 produktiv AIS2023.3 +PartSolutions / ECTR AICE .
|
erstellt am: 25. Sep. 2005 11:47 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Zitat: Original erstellt von Doc Snyder: Und was ist bitte eine kosmetische Naht?
= Three-D-Annotation . Im 3D-Modell die Schweißinformation in Form eines Schweißzeichens und Markierung der betroffenen Kante anbringen. Die performanteste Art, das Wesentliche der Konstruktion zum Thema Schweißen, im Modell zu hinterlegen. Nach wie vor mein Favorit . ------------------ lg Tom
...so geht mein Boot manchmal unter... 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 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 25. Sep. 2005 12:37 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
Zitat: Original erstellt von Doc Snyder: ... wo sind jetzt die richtigen Koordinaten für die Schweißnaht selber versteckt?
Nirgends. Die gibt es nicht Roland. So einfach ist es nicht. Mein Code oben funktioniert nur für die cosmetic welds. Das einzige woran man kommt, sind die Flächen von den einzelnen Schweißnähten. Also, wenn das die einzig verfügbare Information ist, dann sollten wir versuchen die zu nutzen. Ich habe mir mal die Nähte angeschaut und festgestellt, dass es immer mindestens eine Fläche gibt, die der Länge der Schweißnaht entspricht. Diese Fläche ist ein rechteckiges Viereck. Um diese Fläche zu finden habe ich eine Funktion geschrieben. Die Vorraussetzung 1 ist, dass die Schweißnaht nicht kürzer ist als höher. Ich weiß nicht ob so was überhaupt vorkommt (Punktschweißen)? Die Vorraussetzung 2 ist, dass es sich um eine gerade Schweißnaht handelt. Also, keine freehand Nähte und auch keinen Winkel enthalten. Ich weiß auch nicht wie man so was per Hand messen kann?! Z.B. diese tolle Naht: Egal. Das kann dann jeder machen wie er will. Es wird eine Excel Tabelle geschrieben, die eine Liste der Nähte inkl. die Längen enthält. Die „Spline Nähte“ und die „Winkel Nähte“ (ich nix Schweißer) und die Nähte mit über 10 Flächen werden Rot und ohne den Wert dargestellt so, dass die ergänzt werden können. Die Summe wird automatisch berechnet. Ich habe die erste Version an den Tom geschickt. Ich habe mit seiner Baugruppe gute Ergebnisse erzielt. Bis bald...
------------------ Grüße daywa1k3r FX64 Software Solutions Mold&More Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Doc Snyder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 25. Sep. 2005 22:30 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von daywa1k3r: So einfach ist es nicht.
Mmmh, dachte ich mir dann auch, als ich die Datenflut durchwatet bin, die hinter den Pluszeichen lauert . Aber dass auf dem Bildschirm etwas erscheint, ohne dass es irgendwo die Daten dazu gibt, das kann ich nicht glauben. Es sieht mir eher danach aus, dass zur Darstellung der Schweißnaht selber bei der symbolischen Methode nur dem benachbarten Bauteil, da wo man auch geklickt hat, mitgeteilt wird, an der markierten Kante bitte orange mit fetter Linie zu sein. Demnach wären die gesuchten Daten jeweils in diesem Bauteil zu finden! Was hältst Du von dieser These? Und dann muss ich noch einmal fragen, denn die Antworten verwirren mich: Du schreibst, Dein Makro funktioniere nur für cosmetis welds, Dein jpg zeigt aber detaillierte Schweißnähte, was, wenn ich Tom richtig verstanden habe, das Gegenteil ist, während Lucian schrieb, es sei das Gleiche. Deinen Erläuterungen zu Deinem jetzt verfolgten neuen Rechenweg entnehme ich aber, und das passt ja auch zu dem Bild, dass es nun notwendig ist, die Nähte detaillieren zu lassen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
startrek Mitglied Architekt
Beiträge: 1361 Registriert: 13.02.2003 Veni, Vidi, VW ... I came, I saw, I drove around in a little car.
|
erstellt am: 25. Sep. 2005 22:40 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|
Doc Snyder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 25. Sep. 2005 22:47 <-- editieren / zitieren --> Unities abgeben:
|
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 25. Sep. 2005 23:48 <-- editieren / zitieren --> Unities abgeben: Nur für Doc Snyder
|