Hi Marco
Im Lisp-Teil mußt Du eine While-Schleife einbauen. Kleines Beispiel aus einer meiner:
(setq what_next 7)
(while (< 1 WHAT_NEXT)
(new_dialog "md_druck" DCL_ID)
(action_tile "Knöpfe" "(setq Knöpfe $value)(done_dialog 3)")
(action_tile "popup" "(setq md_auswahl (atoi $value))(done_dialog 5)")
(action_tile "md_drucker" "(setq md_drucker $value)(done_dialog 6)")
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(setq WHAT_NEXT (start_dialog))
(cond
((= WHAT_NEXT 6)
(setq MD_DRUCKER MD_DRUCKER)
)
((= WHAT_NEXT 3)
(setq FORMAT KNÖPFE)
)
) ;ende cond
) ;ende while
------------------
Gruß
CADwiesel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP