---

Moin !

ich habe folgende Lisp-Funktion:

Code:

---

(defun EBLib_String_FunctionHeader (
    EBLib_String_FunctionHeader#str
    EBLib_String_FunctionHeader#letter
    /
    anzahl result
    kette
    )
 
(setq result ""
      kette "")
  (if EBLib_String_FunctionHeader#str
    (progn
    (setq anzahl (strlen EBLib_Strin(EBLib_String_FunctionHeader "otto" "#")g_FunctionHeader#str))
    (if (> anzahl 0)(EBLib_String_FunctionHeader "otto" "#")
      (progn
      (repeat (+ anzahl 4)
(setq kette (strcat kette EBLib_String_FunctionHeader#letter))
);end-repeat
      (setq result (strcat kette "\n\n"
                    EBLib_String_FunctionHeader#letter " " EBLib_String_FunctionHeader#str " " EBLib_String_FunctionHeader#letter "\n"
              kette "\n\n"    
      );end-strcat
    );end-setq
        );end-progn
      );endif - anzahl
    );end-progn
    );endif - EBLib_String_FunctionHeader#str
  result
)

---

Wenn ich diese mit

Code:

---

(EBLib_String_FunctionHeader "otto" "#")

---

aufrufe, dann bekomme ich folgende Fehlermeldung unter R2012 (auch auf einem anderen Rechner!):

Zitat:

---

Schwerer Fehler aufgetreten ***
Grenze des internen Stapels erreicht (simuliert)

---

Unter R2015 kommt dieselbe Fehlermeldung.

Auf einem weiteren Rechner mit R2013 funktioniert es einwandfrei.

Hat einer eine Idee für die Ursache... ?

Gruß Jan

------------------
jan :-)

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

---

Grundsätzlich zur Meldung, unabhängig vom Code: Die max. Rekursionstiefe ist erreicht, 19975 in meinem Fall mit deinem Code und mit ACAD2013 getestet.

Rekursionstiefe: http://www.advanced.autolisp.info/rekursion.html

In deinem Code versteckt sich imo noch ein anderer Fehler, oder? :
(setq anzahl (strlen EBLib_Strin(EBLib_String_FunctionHeader "otto" "#")g_FunctionHeader#str))

Wenn ich damit richtig liege kann der Code auch nirgends anders richtig laufen (unabhängig von dieser Meldung),
von daher vergleiche deine Codes noch einmal oder kopiere gleich die funktionierende Variante.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Moin !

Du hast mich schon auf den Fehler hingewiesen - danke.

Da war wohl am WE etwas schon schief gegangen und aus dem Zwischenspeicher in dem Code gelandet. Heute morgen habe ich den natürlich dann mit Copy&Paste nur übernommen.

Danke nochmal....

Gruß Jan

------------------
jan :-)

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