Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  LISP -DCL

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:  LISP -DCL (1447 mal gelesen)
monib
Mitglied
student

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

Beiträge: 6
Registriert: 15.05.2007

erstellt am: 20. Mai. 2007 17:06    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

Hi

Ich versuche gerade aus einem Dialog fenster ein anderes heraus aufzurufen, im ersten dialog fenster wird eine anzahl eingegeben, die lese ich über

Code:
(setq floor_qty (up_etage floor_lst))
aus (funktioniert auch) - sagen wir mal es wäre 4, nun soll mein neues dialog fenster 4 mal aufgerufen werden und jeweils eine Option wählbar sein, die dann in einer liste gespeichert werden soll liste: (1 caf)(2 bib) (3 test) (4 test) - ich versuche also immer den gleichen dialog rekursiv aufzurufen (wenn "buttonnext_qty" gedrückt wird)und jeweils die neue Zahl zu übergeben und jeweils die werte an die Liste anzuhängen bis die Zahl 4 erreicht ist.

Der Dialog wurde mir mal angezeigt, aber mittlerweile bekomme ich nur noch die Fehlermeldung "; Fehler: Fehlerhafte Funktion: 1" mit der eh wenig anfangen kann - da ich erst seit 2 wochen versuche mich mit LISP anzufreunden. Liegt der Fehler bei einer "1" oder ist es die erste Funktion die ich aufrufe?

Hat jemand einen Tipp für mich?

Moni

Code:

;;; ---------------------- Module ---------------------
;aufruf aus Hauptdialog
(defun call_modul(floor_lst)
  (setq floor_qty (up_etage floor_lst))
(select_modul 1 floor_qty)
)


(defun select_modul (i floor_qty)

  ;laden der dcl-datei + pfadangabe
  (setq dcl_mod_id(load_dialog(findfile "dclmodul.DCL")))
  ;--- Dialogfeld initialisieren
  ;--- im Fehlerfall ... exit
  (if(not(new_dialog "dclmodul" dcl_mod_id))
(progn
  (alert "Dialogfeld kann nicht initialisiert werden")
  (exit) ;true,
)
  ) ; end if
  ;init
  (set_tile "lbl_qty" (itoa i))
 
  ;action
(action_tile "button_next_qty" "(write_modul i mod_var floor_qty)")
  (action_tile "button_last_qty" "(write_modul i mod_var floor_qty)")
(action_tile "buero" "(read_radio_mod $key)")
  (action_tile "caf" "(read_radio_mod $key)")
  (action_tile "cip" "(read_radio_mod $key)")
  (action_tile "bib" "(read_radio_mod $key)")
 

 
;starten
  (start_dialog)
)

(defun write_modul (qty_i mod_var_insert floor_qty_max)
  (While (<= qty_i floor_qty_max)
  (if (= qty_i 1)
  (progn ; wahr
  ;liste init
    (setq lst_qty_mod '(1 mod_var_insert))
  )
  (progn ;falsch
  (setq lst_qty_mod (append ('(lst_qty_mod) '(qty_i mod_var_insert))))
  (setq qty_i(+ qty_i 1))
    ;modul neu laden
  (select_modul qty_i floor_qty_max)
)
);if

);while
;wenn i>floor_qty
  (unload_dialog dcl_mod_id)
)

(defun read_radio_mod (art)
(COND

((= art "buero")
(setq mod_var "Buero")
)

((= art "caf")
(setq mod_var "Cafeteria")
)
((= art "cip")
(setq mod_var "Cip Pool")
)
((= art "bib")
(setq mod_var "Biblothek")
)
);cond
)
;;; ------------------------------------------------------------------


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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


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

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 21. Mai. 2007 08:41    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 monib 10 Unities + Antwort hilfreich

Hallo monib,
ganz blicke ich da noch nicht durch, aber probiere mal folgende Zeilen:

Code:

(While (<= qty_i floor_qty_max)
  (if (= qty_i 1)
  (progn ; wahr
  ;liste init
    (setq lst_qty_mod (list(cons 1 mod_var_insert)))
  )
  (progn ;falsch
  (setq lst_qty_mod (append lst_qty_mod (list(cons qty_i mod_var_insert)))))
  (setq qty_i(+ qty_i 1))
    ;modul neu laden
  (select_modul qty_i floor_qty_max)
)
)

Du erhälst dann als lst_qty_mod ein "Dotted Pair"-Liste, z.B.
((1 . "test1") (2 . "test2"))
Auf die kannst Du dann mit (cdr(assoc 2 lst_qty_mod)) =>"test2" zugreifen.

Vielleicht noch ein hilfreicher Beitrag bezüglich Listen und Quote: http://ww3.cad.de/foren/ubb/Forum145/HTML/000681.shtml#000001

------------------
viele Grüße

Jörn

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

monib
Mitglied
student

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

Beiträge: 6
Registriert: 15.05.2007

erstellt am: 23. Mai. 2007 18:00    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

Danke hat geholfen! Es wird jetzt eine Liste erstellt, natürlich habe ich noch Fehler drinnen, aber wenigstens passiert jetzt etwas 

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