---

Hi

Ich habe egrade erst angefangen mit LISP zuarbeiten und versuche mein erstes Dialogfenster zuerstellen. Es soll eigentlich erstmal nur die Höhe und Breite eingelesen werden und daran scheitert es schon.

Bekomme immer die Fehlermeldung: "; Fehler: Fehlerhafter Argumenttyp: stringp nil"

Ich schätze mal es ist ein ganz "blöder" Fehler wie ein Leerzeichen zuviel/zuwenig oder ähnliches, aber ich seh es nicht ...
Kann mir jemand einen Tipp geben?

(Die combo box kann ignoriert werden, soll später erweitert werden)
Die DCL datei

Code:

---

dcldialog: dialog {
label="5-D Modellierung";
:text{
label="Parameter";
//alignment=left;
}
:boxed_row{
:text{
label= "Angabe der Höhe und Breite des Gebäudes";
//alignment=left;
}
:row{
:edit_box{
label="Breite:";
value="0";
key="txtbreite";
edit_width=5;
fixed_width=true;
}
:edit_box{
label="Höhe:";
value="0";
key="txthoehe";
edit_width=5;
fixed_width=true;
}
}
:row:{
opup_list{
label="Etagenanzahl:";
key="combo_etagenanzahl";
value="2"; // int mit 3 etagen
edit_width=12;
}
}
}
:row{
:button{
key="button_simulate";
label="Simulation";
}
} //row
} //dialog

---

Meine LSP Datei:

Code:

---

(defun c:dcl_dialog()
  ;laden der dcl-datei + pfadangabe
  (setq dcl_id(load_dialog(findfile "dcldialog.dcl")))
  ;--- Dialogfeld initialisieren
  ;--- im Fehlerfall ... exit
  (if(not(new_dialog "dcldialog" dcl_id))
(exit) ;true, false=nothing
  )
  ;init der werte
  (setq hoehe 0)
  (setq breite 0)
  ;in txt schreiben
  (set_tile "txthoehe" (itoa hoehe) )
  (set_tile "txtbreite" (itoa breite) )
  ;init der combo
  ;(setq liste_etage '(1 2 3 4 5 6))
  ;(start_list "combo_etagenanzahl")
  ; (mapcar 'add_list liste_etage) ;Füllen der List-Box
  ;(end_list)
 
  ;aktionen
;;;  (action_tile "txthoehe" "(setq hoehe (einlesen_werte $key))")
;;;  (action_tile "txtbreite" "(setq breite (einlesen_werte $key))")
  ;(action_tile "button_simulate" "(schreibe_dat hoehe breite etagenanzahl)")
  ;(action_tile "accept" "(up_etage)")
  ;(action_tile "cancel" "(done_dialog) (setq userclick nil)" )
  ;starten
  (start_dialog)
  ;abmelden
  (unload_dialog dcl_id)
  ;user clickt combo
  ;(if userclick
; (progn
; (setq etagenanzahl (atoi etagenanzahl)) ; String wandeln in Integer
; (setq etagenanzahl (nth etagenanzahl liste_etage)) ; Listenauswahl
; );progn
; );if userclick
  ;fehler abfangen

 
)

;aus combo lesen
;(defun up_etage ()
; (setq etagenanzahl (get_tile "combo_etagenanzahl")) ; Listenindex als String
; (done_dialog)
; (setq userclick T)
;)

;;;(defun einlesen_werte(schluessel)
;;;  (setq test_zahl 0)
;;; (setq test_zahl (distof(get_tile schluessel)))
;;; (if (/= test_zahl NIL)
;;; (set_tile schluessel (strcat (itoa (fix test_zahl)))) ;true
;;; (alert "Eingabewert falsch") ;false
;;; )
;;;test_zahl );Ende defun

;(defun schreibe_dat (hoehe breite)
;  (setq etagenanzahl (up_etage());
; (alert (strcat "gewählte etage: " etagenanzahl))
 
;)

---

Das mit der combo box habe ich größtenteils auskommentiert, da ja noch nicht mal das grundgerüst geladen wird. Ist das schlimm? Kann ein Fehler im auskommentierten Code trotzdem zu einer Fehlermeldung führen?

Bin wirklich neu in dem ganzen ...

Danke
Moni

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

---

}
:row:{  <-------------------------------
opup_list{
label="Etagenanzahl:";

Doppelpunkt muss raus
(DCL-Fragen besser im Lisp-Forum)

Ciao Georg

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

---

Hallo Moni,

gibt es dann deine Datei "dcldialog.dcl" schon, die du in
(load_dialod (findfile ..)) zu laden versuchst?
Wenn nicht, liefert (findfile ..) nil
und (load_dialog ... ) die Fehlermeldung.
Prüfen kannst du sie im V-Lisp Editor, wenn du z. B. vor dem laden an den Anfang der Zeile einen Haltpunkt setzt und dann die Möglichkeiten des Editors zum Prüfen von Ausdrücken nutzt.

HTH

Thomas

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

---

Danke für die schnellen Antworten
der Doppelpunkt bei row war es leider nicht

"dcldialog.dcl" ist meine DCL Datei in der ich versuche die Textboxen zu erstellen, und du hattest recht da lag der fehler, er hatte sie nicht gefunden

Hast mir gerade meine restlichen Nerven und den Tag gerettet - Danke!!!

(Sorry für das falsche Forum, werde ab jetzt das LISP Forum nutzen)

Danke euch beiden

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