also an dem Code finde ich mal keinen Fehler, der sollte eigetnlich so durchlaufen, es kann vielleicht sein, dass die INI-Datei zum Schluss noch eine Leerzeile beinhaltet, und Deine Funktionen nichts mit einem "" anfangen ?
Strinp->NIL kann nicht in deiner markierten zeile auftreten, weil hier keine Funktion definitiv einen Strin erwartet.
zu dem ganzen zeugs hier !
(if (/= lineName nil)
(progn
(if (= lineName "Erweiterung") (setq fileExt lineValue))
(if (= lineName "Startpfad") (setq filePath lineValue))
(if (= lineName "Schrifthoehe") (setq fontHeight lineValue))
(if (= lineName "Schriftrichtung") (setq fontAngle lineValue))
(if (= lineName "Schriftstil") (setq fontStil lineValue))
(if (= lineName "Schriftausrichtung") (setq fontPos lineValue))
(if (= lineName "StandartSymbolLayer") (setq layerSyb lineValue))
(if (= lineName "StandartNameLayer") (setq layerNum lineValue))
(if (= lineName "StandartHoeheLayer") (setq layerNN lineValue))
(if (= lineName "PunktNum_Offs_RW") (setq pNrOffsRW lineValue))
(if (= lineName "PunktNum_Offs_HW") (setq pNrOffsHW lineValue))
(if (= lineName "PunktNum_Offs_NN") (setq pNrOffsNN lineValue))
(if (= lineName "PunktNN_Offs_RW") (setq pNNOffsRW lineValue))
(if (= lineName "PunktNN_Offs_HW") (setq pNNOffsHW lineValue))
(if (= lineName "PunktNN_Offs_NN") (setq pNNOffsNN lineValue))
(if (= lineName "PunktWeight_Offs_RW") (setq pWeightOffsRW lineValue))
(if (= lineName "PunktWeight_Offs_HW") (setq pWeightOffsHW lineValue))
(if (= lineName "PunktWeight_Offs_NN") (setq pWeightOffsNN lineValue))
(if (= lineName "OffsetFaktor") (setq offsFaktor lineValue))
)
(alert "Leere Zeile")
)
warum taufst Du die Vaiablen, und die INI-Einträge nicht gleich
dann könntest Du den ganzen Schrott in einem Einzeiler unterbringen
(if lineName (set (read lineName) lineValue))
(set (read "a1") 56) ist das gleiche wie (setq a1 56)
damit kann man variablennamen als "String" vorliegen haben
------------------
Ing. Anton Fuchs
WWW.FFZELL.AT.TC
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP