Hai
Willkommen im Forum .. und 'n schönes neues Jahr.
Wolln wir uns mal Deinen Code ansehen...
oops
(defun lbox ()
;;(setq dcl_id (load_dialog "coe_layer_new.dcl"))
;;(if (not (new_dialog "coe_layer_new" dcl_id)) (exit))
(if (< (setq dcl_id (load_dialog "coe_layer_new.dcl"))0)
(exit)
)
(new_dialog "coe_layer_new" dcl_id)
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(strtlist)
;;bnum2 (get_tile "radio_cluster" );;da fehlt einiges
(setq bnum2 (get_tile "radio_cluster"))
(action_tile "list_box" "(setq usr_layer (mk_list $data))")
(runit )
;;result (start_dialog);;da fehlt einiges
(setq result (start_dialog))
(unload_dialog dcl_id)
)
Wenn Du den Key mit (setq was $value) ausliest, dürfte es aber gehen
für die Liste gild: $value liegert Dir den Wert (Zahl) des Eintrages an der Stelle der Liste, wo er steht. Du musst dann die nth +1 (da die Liste mit eins und nicht mit null beginnt) Stelle aus der Liste Auslesen und hast somit den Eintrag, der an dieser Stelle steht.
------------------
Gruß
CADwiesel
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP