Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Anfänger braucht Hilfe

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Anfänger braucht Hilfe (542 mal gelesen)
cbbulle
Mitglied
EDV

Sehen Sie sich das Profil von cbbulle an!   Senden Sie eine Private Message an cbbulle  Schreiben Sie einen Gästebucheintrag für cbbulle

Beiträge: 3
Registriert: 31.12.2002

erstellt am: 01. Jan. 2003 19:22    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ich habe Probleme beim auslesen einer Dialog-Box.

Wie kann ich die key eines radio_button aus einer "boxed_radio_column"
("radio_cluster") auslesen ??

Mein 2. Problem habe ich beim  Auslesen des makierten Wertes aus einer List-Box.

Wer kann mir hier weiterhelfen

C.Bermpohl

;OPENS DIALOG BOX
(defun lbox ()
(setq dcl_id (load_dialog "coe_layer_new.dcl"))
(if (not (new_dialog "coe_layer_new" dcl_id)) (exit))
(action_tile "accept" "(done_dialog 1)")
(action_tile "cancel" "(done_dialog 0)")
(strtlist)
bnum2 (get_tile "radio_cluster" )
(action_tile "list_box" "(setq usr_layer (mk_list $data))")
(runit )
result (start_dialog)
(unload_dialog dcl_id)

)

(defun runit)
(if (= val "Layerakt")
(command "-layer" "setzen" usr_layer "")
)
)

(defun strtlist ()
(mode_tile "list_box" 1)
(setq layerNew (acad_strlsort layerNew)) ;Liste alphabetisch sortieren
(start_list "list_box")
(mapcar 'add_list layerNew)
(end_list)
(action_tile "list_box" "(setq val (chkit $key))")
(action_tile "Layerakt" "(setq test (chkit $value))")
(action_tile "Layerfri" "(setq test (chkit $value))")
(action_tile "Layertau" "(setq test (chkit $value))")
(chkit test)
)

------------------
bermpohl

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

CADwiesel
Moderator
CAD4FM UG




Sehen Sie sich das Profil von CADwiesel an!   Senden Sie eine Private Message an CADwiesel  Schreiben Sie einen Gästebucheintrag für CADwiesel

Beiträge: 1968
Registriert: 05.09.2000

AutoCAD, Bricscad
Wir machen das Mögliche unmöglich

erstellt am: 02. Jan. 2003 08:30    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cbbulle 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz