---

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

---

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

---

Fehler.JPG

Hallo KraBBy,
habe es probiert bekomme aber immer wieder Fehlermeldung

------------------
Tschüß

user

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

---

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

---

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

---

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

---

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

---

Gewindestange.jpg

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

---

Und wenn du Fase = Steigung * 0,5 fest einstellst, kann die Fase schon nicht mehr falsch werden...

------------------
Gruß Roland

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

---

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

---

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

---

Ich bezweifle, dass es hier um CAM-Fertigungsteile geht.

Eingangs hieß es "Gewindebolzen" und "Gewindestangenlänge". Da denke ich: absägen, entgraten - fertig. Und möglichst wenig Arbeit dafür im CAD.

------------------
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

---

Zitat:

---

Original erstellt von Roland Schröder:
entgraten .

---

entgraten? Beim Gewinde Fase auf Kerndurchmesser, oder? ;-)

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

---

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

---

Zitat:

---

Original erstellt von Fischkopp:
Beim Gewinde Fase auf Kerndurchmesser, oder? ;-)

---

Oder? Na z. B. das hier!: -> https://www.makita.de/product/dsc102zj.html

------------------
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

---

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

---

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