| |
| 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 – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: dcl-programmierung (622 mal gelesen)
|
bu Mitglied die Frage habe ich mir auch schon gestellt
Beiträge: 265 Registriert: 29.06.2004 AutoCAD 2010 Mechanical
|
erstellt am: 28. Nov. 2006 11:24 <-- editieren / zitieren --> Unities abgeben:
Tach Leute, ich versuch eine DCL-Box zu steuern. Das Problem ist dass ich eine EXIT_BOX schon während der Eingabe prüfen möchte. Diese Möglichkeit kenne ich aus anderen Sprachen z. B. !change_value . Gibt es diese Möglichkeit auch in Lisp? Gruss bu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 28. Nov. 2006 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für bu
was ist, wenn du deiner EDIT_BOX mittels action_tile eine Funktion zuordnest, das ständig $Value auswertet? Kannst sie ja !change_value nennen. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bu Mitglied die Frage habe ich mir auch schon gestellt
Beiträge: 265 Registriert: 29.06.2004 AutoCAD 2010 Mechanical
|
erstellt am: 28. Nov. 2006 14:31 <-- editieren / zitieren --> Unities abgeben:
Tach Cadmium, ich will ja nicht lästig sein aber kannst du mir einen Tip für die Fuktion geben. Meine Funktionen bei der DCL-Steuerung funktionieren nur bei einem Mausklick oder bei Taste ENTER. Ich möchte den Wert des Feldes jedoch schon prüfen bevor ich dieses verlasse. MfG bu Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 28. Nov. 2006 15:01 <-- editieren / zitieren --> Unities abgeben: Nur für bu
Hallo Bu, ein Beispiel, wie der Wert einer EditBox bei Bestätigung mit OK geprüft werden kann: Code:
(defun c:wert_eingeben (/ dat wert) (setq dat (load_dialog "test1.dcl")) (if (not (new_dialog "TEST" dat)) (exit)) (mode_tile "e1" 2) (action_tile "accept" "(setq wert(get_tile \"e1\"))(if(!change_value wert)(done_dialog)(mode_tile \"e1\" 2))") ;OK (action_tile "cancel" "(setq wert nil)(done_dialog)") ;Abbrechen (start_dialog) (unload_dialog dat) wert) ;;;Prüfung des Wertes (defun !change_value (wert /) (if (> (atof wert) 10.0) (progn (alert "Der Wert muß kleiner 10.0 sein.") nil) T))
DCL:
Code:
TEST: dialog { :edit_box {key ="e1"; label ="Wert eingeben"; allow_accept=true;} ok_cancel;}
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bu Mitglied die Frage habe ich mir auch schon gestellt
Beiträge: 265 Registriert: 29.06.2004 AutoCAD 2010 Mechanical
|
erstellt am: 28. Nov. 2006 15:09 <-- editieren / zitieren --> Unities abgeben:
Tach Joern, das ist ja das Problem, ich möchte den Wert schon vor dem OK prüfen. Also ohne Bestätigen auf OK. Bei laufender Eingabe. Nach wie vor die Grundsatzfrage "Ist das überhaupt möglich" in LISP + DCL?? Grüsse Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 28. Nov. 2006 15:38 <-- editieren / zitieren --> Unities abgeben: Nur für bu
Hallo Bu, hast Du schon mal die Variante von CADmium getestet?? Ich habe das mal eingebaut, und beim Schnelltest hat es auch funktioniert(wenn der eingegebene Wert größer 10 ist, dann wird er automatisch auf 10.0 gesetzt). Aber ob das dann ein komfortables Arbeiten damit ist sei dahingestellt. Vorher konnte man aufgrund des DCL Attributes allow_accept=true die Eingabe tätigen und mit ENTER bestätigen, wenn die Eingabe falsch war, dann wurde die Editbox wieder markiert. Jetzt muß man den Ok-Button wieder mit der Maus anfahren. Aber es gibt bestimmt noch einige Varianten, vielleicht probierst Du einfach mal. Code:
(defun c:wert_eingeben (/ dat wert) (setq dat (load_dialog "test1.dcl")) (if (not (new_dialog "TEST" dat)) (exit)) (mode_tile "e1" 2) (action_tile "e1" "(set_tile \"e1\" (!change_value (get_tile \"e1\")))") (action_tile "accept" "(setq wert(get_tile \"e1\"))(done_dialog)");OK (action_tile "cancel" "(setq wert nil)(done_dialog)") ;Abbrechen (start_dialog) (unload_dialog dat) wert) ;;;Prüfung des Wertes (defun !change_value (wert /) (if (> (atof wert) 10.0) "10.0" wert))
DCL
Code:
TEST: dialog { :edit_box {key ="e1"; label ="Wert eingeben";} ok_cancel;}
------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bu Mitglied die Frage habe ich mir auch schon gestellt
Beiträge: 265 Registriert: 29.06.2004 AutoCAD 2010 Mechanical
|
erstellt am: 30. Nov. 2006 11:58 <-- editieren / zitieren --> Unities abgeben:
Tach Jungs, @CADmium @Jörn Habs natürlich getestet , Das Problem ist, dass wie schon beschrieben der Wert erst geprüft wird wenn eine action durchgeführt wird. In ein anderes Feld klicken, enter drücken usw. Doch nach wie vor wird das Feld während der Eingabe nicht geprüft. Das war meine ursprüngliche Intension. Noch ein Beispiel: Wenn man den Wert auf max. 10 begrenzt soll man 20 überhaupt nicht erst eingeben können. Oder wird bei der Eingabe sofort zurückgesetzt. Ohne dass ich das Feld verlasse oder sonst was mache. Ihr mögt glauben dass ich hier übertreibe, aber es gibt komplexe Anwendungen bei denen das von Vorteil ist. Ansonsten wollt ich nur wissen ob nicht doch eine Möglichkeit gibt welche ich evtl. nicht kenne. So bin ich nun relativ sicher und kann mich weiter an die Arbeit machen. Vielen Dank für eure Mühen Grüsse aus dem sonnigen Süden... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 30. Nov. 2006 12:46 <-- editieren / zitieren --> Unities abgeben: Nur für bu
...na dann wirst du wohl mit der DCL-Programmierung am Ende sein..in Sprachen, die mehr Zugriff auf die Win-API haben hast du größere Chancen. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 30. Nov. 2006 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für bu
Zitat: Original erstellt von bu: Wenn man den Wert auf max. 10 begrenzt soll man 20 überhaupt nicht erst eingeben können.
So etwas geht definitiv nicht mit DCL. Ich habe mir immer damit geholfen beim Fokus-Wechsel den Wert abzufragen und bei Fehleingaben eine "sprechende" Fehlermeldung im Errtile auszugeben (z.B. "Nur 20 Zeichen zulässig!") und den Fokus wieder auf das entsprechnde Feld zu setzen so daß der Dialog nur verlassen werden kann, wenn eine gültige Eingabe gemacht wurde. ------------------ Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |