| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Die Ähnlichkeit zu Productstream Professional ist bemerkenswert. (GAIN Collaboration,PDM,PDM System,PLM,PLM System) |
Autor
|
Thema: Außengewinde über Durchmesser in Regel steuern (1069 mal gelesen)
|
user Mitglied CAD Anwender
Beiträge: 102 Registriert: 27.03.2001
|
erstellt am: 02. Dez. 2021 12:14 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, habe habe ein kleines Problem beim Steuern von Außengewinden in einer Regel. Es soll ein Gewindebolzen über Abfragen der Gewindestangenlänge und dem Durchmesser erzeugt werden. Entsprechend des Durchmessers soll sich auch die Gewindegröße anpassen oder auch über eine Abfrage aber mit den Gewinde snippes bekomme ich das nicht hin. Habe es auch schon Versucht über die Gewindetabelle versucht. Hat jemand eine Idee wie man die Feature.ThreadDesignation verwendet? Durchmesser = InputBox("Durchmesser für Gewindestange eingeben ", "Gewindestange Durchmesser", "10") Gewindestange_Länge = InputBox("Gewindestange Länge eingeben ", "Gewindestange", "100") 'Feature.ThreadDesignation("Gewinde1") = MultiValue.List("ThreadDesignation") = GoExcel.CellValues("Z:\Inventor\Inventor\Gewinde\thread.xls", "ISO Metric profile", "C4", "C426")
------------------ Tschüß user Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 702 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 02. Dez. 2021 12:59 <-- editieren / zitieren --> Unities abgeben: Nur für user
hatte vorher keine Ahnung, aber folgendes hat bei mir funktioniert Code: d = 12 Feature.ThreadDesignation("Gewinde1") = "M12x1.75"d = 10 Feature.ThreadDesignation("Gewinde1") = "M10x1.5" InventorVb.DocumentUpdate()
Dabei ist d ein Parameter, verwendet für den Außendurchmesser des Zylinders auf dem das Gewinde1 sitzt. Den Eintrag aus der Hilfe kennst Du vielleicht schon. iLogic Feature.ThreadDesignation ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
user Mitglied CAD Anwender
Beiträge: 102 Registriert: 27.03.2001
|
erstellt am: 02. Dez. 2021 14:27 <-- editieren / zitieren --> Unities abgeben:
|
Canadabear Mitglied Konstrukteur
Beiträge: 921 Registriert: 30.06.2010 Inventor 2020 SolidWorks 2020
|
erstellt am: 02. Dez. 2021 16:57 <-- editieren / zitieren --> Unities abgeben: Nur für user
Zitat: Original erstellt von user: Hallo KraBBy, habe es probiert bekomme aber immer wieder Fehlermeldung
stelle sicher das du die genaue Gewindebezeichnung verwendest die auch im System (Gewindetabelle) definiert ist. Ray ------------------ Barbarus hic ego sum, quia non intellegor ulli! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
KraBBy Mitglied Maschinenbau-Ingenieur
Beiträge: 702 Registriert: 19.09.2007 Inventor Professional 2020 WinX
|
erstellt am: 02. Dez. 2021 17:25 <-- editieren / zitieren --> Unities abgeben: Nur für user
Zitat: Original erstellt von user: Hallo KraBBy, habe es probiert bekomme aber immer wieder Fehlermeldung
Das ist bei mir passiert, als ich dem Ø12 ein Gewinde mit M10 geben wollte. ------------------ Gruß KraBBy Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
user Mitglied CAD Anwender
Beiträge: 102 Registriert: 27.03.2001
|
erstellt am: 03. Dez. 2021 07:52 <-- editieren / zitieren --> Unities abgeben:
Hi KraBBy, Ich hab es jetzt, hier der Code: ------------------------------- durchmesser = InputBox("Durchmesser eingeben ", "Durchmesser der Gewindestange", "12") Profillänge = InputBox("Profillänge eingeben ", "Länge der Gewindestange", "100") d16 = InputBox("Fase eingeben ", "Fase an der Gewindestange", "0,5") If durchmesser = 12 Then Feature.ThreadDesignation("Gewinde1") = "M12x1.75" ElseIf durchmesser = 10 Then Feature.ThreadDesignation("Gewinde1") = "M10x1.5" ElseIf durchmesser = 8 Then Feature.ThreadDesignation("Gewinde1") = "M8x1.25" ElseIf durchmesser = 6 Then Feature.ThreadDesignation("Gewinde1") = "M6x1" ElseIf durchmesser = 5 Then Feature.ThreadDesignation("Gewinde1") = "M5x0.8" ElseIf durchmesser = 4 Then Feature.ThreadDesignation("Gewinde1") = "M4x0.7" End If Parameter.UpdateAfterChange()= True InventorVb.DocumentUpdate() ------------------ Tschüß user Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WHaeger Mitglied Konstrukteur
Beiträge: 53 Registriert: 13.11.2004 Win 10 Pro x64 Inventor 2020,2022 AutoCAD Mechanical 2022 MicroStation CE ProSteel V8i S6
|
erstellt am: 03. Dez. 2021 09:16 <-- editieren / zitieren --> Unities abgeben: Nur für user
Kleiner Hinweis für einen übersichtlichen Code: Solche langen "elsif"-Werte-Prüfungen mache ich stattdessen mit "select case": Select Case durchmesser Case 12 Feature.ThreadDesignation("Gewinde1") = "M12x1.75" Case 10 Feature.ThreadDesignation("Gewinde1") = "M10x1.5" ... ... Case Else 'hier steht der Code, wenn der Wert nicht gefunden wird End Select ------------------ Grüße Wolfgang Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 03. Dez. 2021 09:31 <-- editieren / zitieren --> Unities abgeben: Nur für user
Moin Select Case Anwendung benutzen, statt endloser If-ElseIf Ketten. Hups, zu langsam
Was machst du wenn jemand in deine Inputbox "Transsylvanien" oder "14,72853" eingibt? Mach doch lieber einen numerischen Multivalueparameter "Durchmesser" mit den zulässigen Werten, erstelle ein iLogic Formular mit dem Parameter "Durchmesser" und stell den Steuerelementtyp auf "Optionsfeldgruppe". So kann man nur die zulässigen Werte auswählen, sieht auf Anhieb was zur Wahl steht und kann keine sinnlosen Werte eingeben. Dann erstellst du noch einen numerischen Parameter "Fase", fügst den auch in dein Formular ein und stellst den Steuerlementtyp auf "Schieberegler". Und wenn die Sysinfo eine Versionsangabe enthalten würde, könnte hier eine Beispieldatei kommen. Gibt's halt nur einen Screenshot. ------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RolandD Mitglied
Beiträge: 558 Registriert: 07.01.2005 i7-9700k 32GB DDR4-RAM Nvidia RTX 2060 SSD 970 m.2 Win10-64 (21H2) AIP 2020.3 Dell U3417W
|
erstellt am: 03. Dez. 2021 09:39 <-- editieren / zitieren --> Unities abgeben: Nur für user
|
Roland Schröder 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: 03. Dez. 2021 12:34 <-- editieren / zitieren --> Unities abgeben: Nur für user
Zitat: Original erstellt von RolandD: ....kann die Fase schon nicht mehr falsch werden...
Eine Fase an einem Gewinde im Modell IST falsch Ich lasse die konsequent weg, weil einfach zu oft beim Vergeben von Abhängigkeiten oder Maßen die falsche Kante erwischt wird. Außerdem ist die Fase dort in fast allen Fällen ein völlig unerhebliches Detail. Gewindegänge modellieren wir doch auch nicht! ------------------ Roland www.Das-Entwicklungsbuero.de It's not the hammer - it's the way you hit! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RolandD Mitglied
Beiträge: 558 Registriert: 07.01.2005 i7-9700k 32GB DDR4-RAM Nvidia RTX 2060 SSD 970 m.2 Win10-64 (21H2) AIP 2020.3 Dell U3417W
|
erstellt am: 03. Dez. 2021 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für user
Zitat: Original erstellt von Roland Schröder: Eine Fase an einem Gewinde im Modell IST falsch
Da hast du leider nicht so ganz Recht. Wer mogelt die Fase bei dir in das CAM, wenn sie im Modell des Fertigungsteils nicht vorhanden ist? ------------------ Gruß Roland Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Roland Schröder 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: 03. Dez. 2021 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für user
|
Fischkopp Mitglied
Beiträge: 375 Registriert: 23.02.2004 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: 03. Dez. 2021 17:43 <-- editieren / zitieren --> Unities abgeben: Nur für user
|
Roland Schröder 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: 03. Dez. 2021 20:01 <-- editieren / zitieren --> Unities abgeben: Nur für user
Zitat: Original erstellt von Fischkopp: Beim Gewinde Fase auf Kerndurchmesser, oder? ;-)
OK, und als nächstes programmieren wir dann bitteschön, dass in den Gewindebohrungen auch der Anschnitt des Gewindeschneiders dargestellt wird. Wobei im modernen CAM die Gewinde ja oft zirkular gefräst werden. Wo kämen wir denn da hin, wenn wir das im CAD alles ignorieren täten! ------------------ Roland www.Das-Entwicklungsbuero.de It's not the hammer - it's the way you hit! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Roland Schröder 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: 06. Dez. 2021 02:06 <-- editieren / zitieren --> Unities abgeben: Nur für user
|
user Mitglied CAD Anwender
Beiträge: 102 Registriert: 27.03.2001
|
erstellt am: 06. Dez. 2021 08:15 <-- editieren / zitieren --> Unities abgeben:
Hallo,erstmal und Danke für eure Hinweise wie man das noch machen kann. Die Diskussion um die Fase hat Roland richtig erkannt, eigentlich ist es nur wichtig eine Gewindestange oder Gewindebolzen schnell zu erzeugen, damit man weniger Arbeit damit hat und die dann unter einer Nummer speichern kann die zur Maschine gehöhrt. Gruß User ------------------ Tschüß user Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Leiter Konstruktion (m/w/d) | Parker Hannifin EMEA Sàrl (?PHEMEA?), mit Sitz in Etoy, Schweiz, ist Parkers Hauptbetreibergesellschaft in der Region EMEA. Unterstützt wird sie von einem Netz von Parker Manufacturing Divisions und Sales Companies. Die Engineered Materials Group (EMG) ist eine strategische Geschäftsgruppe innerhalb PHEMEA. Die Prädifa Technology Division (PTD) ist ein Dienstleistungserbringer für PHEMEA. Leiter ... | Anzeige ansehen | Teamleitung, Gruppenleitung |
|
user Mitglied CAD Anwender
Beiträge: 102 Registriert: 27.03.2001 Solidworks Windows 10 Pro 11th Gen Intel(R) Core(TM) i7-11700@2.50GHz 8 Kerne
|
erstellt am: 06. Dez. 2021 08:24 <-- editieren / zitieren --> Unities abgeben:
Hallo rkauskh, Das sieht richtig klasse aus mit dem Formular. Das hätte ich amliebsten auch gemacht aber im Inventor 2011 leider nicht vorhanden. Deswegen der umständlichere Weg. Gruß User ------------------ Tschüß user Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |