Werte in PCM-Boxen abfragen lassen

[[Ma...]]

Hallo

In den Parametern:

CNC -> Prüfplanfunktionen -> Parameter

definieren wir für unsere Muttern die Dimensionen des Gewindes und des Basiszylinders.


// Basisdaten
Basislage = 1 // Aussen 1, innen -1
Basiszylinder = 64.3 // Durchmesser
Zylinderlänge = 47
Zylinderstart_Z = -50 // Unten

//
Steigung = 10 // Rechts positiv, links negativ
Steigungsrichtung = 1 // 1=rechts, -1=links
Gangzahl = 6
Flankendurchmesser = 55.5
Flankenwinkel = 90
Gewindelage = -1 // Aussen 1, innen -1


Kann ich diese Werte auch als Abfrage in Boxen definieren lassen?

Gruss
Martin

[[Fl...]]

Hallo Martin,

Versuchs mal mit inquireParameterList(), habe unten deine Basisdaten mit 0 Vorbelegt und dann in der Funktion inquireParameterList() die Parameter als Text und die Beschreibung eingefügt.


// Basisdaten
Basislage = 0 // Aussen 1, innen -1
Basiszylinder = 0 // Durchmesser
Zylinderlänge = 0
Zylinderstart_Z = 0 // Unten

//
Steigung = 0 // Rechts positiv, links negativ
Steigungsrichtung = 0 // 1=rechts, -1=links
Gangzahl = 0
Flankendurchmesser = 0
Flankenwinkel = 0
Gewindelage = 0 // Aussen 1, innen -1

inquireParameterList("Basislage","Aussen 1, innen -1","Basiszylinder","Durchmesser", "Zylinderlänge","Zylinderlänge in mm","Zylinderstart_Z","Unten","Steigung","Rechts positiv, links negativ","Steigungsrichtung","1=rechts, -1=links","Gangzahl","Gangzahl","Flankendurchmesser","Flankendurchmesser","Flankenwinkel","Flankenwinkel","Gewindelage","Aussen 1, innen -1")


MfG Florian

[[Ma...]]

Hallo

Ich habe nun die Parametereingabe entsprechend geändert, aber schon beim schliessen des Fensters "Parametereingabe"
mit OK kommt die Fehlermeldung "Folgende Zeilen enthalten keine Zuweisungen und werden nicht ausgeführt: inquireParameterList("Basislage..... usw.

Gruss Martin

[[He...]]

Hallo,

es sollte genauso wie von Florian beschrieben funktionieren!
Hast du die Parameter auch unter CNC -> Prüfplanfunktionen -> Parameter angelegt?

[[Ma...]]

Hallo

Ja die Parameter liegen da...

Gruss
Martin

[[No...]]

Please sign in to view this quote.

Aber das inquireParameterList darf dort nicht rein. Unter CNC -> Prüfplanfunktionen -> Parameter sind nur Variablen-Zuweisungen erlaubt, keine anderen Befehle. Das inquire... musst du also in den Eingangseinstellungen des Prüfplans unterbringen.

[[Ma...]]

Hallo

Die Werte werden nun abgefragt, tiptop.

Kann man die Aussen- innenlage eines Zylinders auch via PCM definieren?


Besten Dank
Martin

[[Mi...]]

Ja, das geht, du kannst in den Eingangseinstellungen des Messelements setGeometryInnerOuter("INNER") oder setGeometryInnerOuter("OUTER") verwenden.

Ich geife mal dein Bsp Gewindelage = -1 // Aussen 1, innen -1 auf und nehme an du misst das Gewinde mit einer Zylinder-Helix:

if Gewindelage == 1
setGeometryInnerOuter("INNER")
else
setGeometryInnerOuter("OUTER")
endif

[[Ma...]]

Hallo

Das Abfragen der Parameter per PCM klappt soweit gut. Gäbe es eine Möglichkeit die zuletzt eingegebenen Parameter zwischenzuspeichern, damit bei erneutem Starten des Prüfplans nicht alle Werte wieder bei null sind?


Wenn mann z. B. eine Messung mit "Nachträglichem auswerten" nochmals auswerten möchte, muss man die Parameter erneut eintippen. Wäre sehr praktisch, wenn die letzte Eingabe noch definiert wäre.

Danke + Gruss

[[Mi...]]

Ich hab das mal auf diese Art gelöst. Geht aber bestimmt auch einfacher 🤠


//Anfang Pfad und Dateinamen für Parameterwerte

Pfad = getActualInspectionDir()
Name = "Parameterdatei.para"
Datei = text(Pfad,"\",Name)
DateiExistiert = fileExists(Datei)

//Ende Pfad und Dateinamen für Parameterwerte


//Anfang Hinweis Eingabetext
message("Als Dezimaltrennzeichen muss ein PUNKT verwendet werden!!!")
//Ende Hinweis Eingabetext


//Anfang Einlesen der Parameterdatei der letzten Messung (damit bei Mehrfachmessungen nicht immer die Werte erneut von Hand eingegeben werden müssen )
if DateiExistiert == true
readPCMFile(Datei)
endif
//Ende Einlesen der Parameterdatei der letzten Messung


//Anfang Erzeugung der aktuellen Parametderdatei
if DateiExistiert == true
deleteFile(Datei)
addToFile(Datei)
inquireParameterList("clampingDia","Spanndurchmesser","outerDia","Aussendurchmesser","shoulderDia","Durchmesser Schulter","height","Bauteilhöhe_von Magnet bis Schulter","Zunten","untere Messhöhe_von unten gemessen","Zmittig","mittlere Messhöhe_von unten gemessen","Zoben","obere Messhöhe_von unten gemessen")
addToFile(Datei,"clampingDia = ",clampingDia)
addToFile(Datei,"outerDia = ",outerDia)
addToFile(Datei,"shoulderDia = ",shoulderDia)
addToFile(Datei,"height = ",height)
addToFile(Datei,"Zunten = ",Zunten)
addToFile(Datei,"Zmittig = ",Zmittig)
addToFile(Datei,"Zoben = ",Zoben)
else
addToFile(Datei)
inquireParameterList("clampingDia","Spanndurchmesser","outerDia","Aussendurchmesser","shoulderDia","Durchmesser Schulter","height","Bauteilhöhe","Zunten","untere Messhöhe_von unten gemessen","Zmittig","mittlere Messhöhe_von unten gemessen","Zoben","obere Messhöhe_von unten gemessen")
addToFile(Datei,"clampingDia = ",clampingDia)
addToFile(Datei,"outerDia = ",outerDia)
addToFile(Datei,"shoulderDia = ",shoulderDia)
addToFile(Datei,"height = ",height)
addToFile(Datei,"Zunten = ",Zunten)
addToFile(Datei,"Zmittig = ",Zmittig)
addToFile(Datei,"Zoben = ",Zoben)
endif
//Ende Erzeugung der aktuellen Parametderdatei


//Anfang aktuelle Parameterdatei einlesen und CAD-Modell neu berechnen

readPCMFile(Datei)
redrawCAD()

//Ende aktuelle Parameterdatei einlesen

[[Ma...]]

Das funktioniert soweit sehr gut.

Danke