---

04A2105-2test1.zip

Hallo,

ich möchte im ACAD 2010 mit der bennenUBL.LSP einen Block umbenennen.
Es kommt aber die Meldung:

"; Fehler: Obere Begrenzung in SAFEARRAYBOUND war niedriger als die untere."

Schon mal im Voraus vielen Dank für eure Mühe.

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

---

erstmal .... was ist das für eine Lisp ? Quelle ? Autor?  -> wenn bekannt, mal diesen kontktieren! Ist sicher nicht sauber geproggt! Zum Fehler ... der tritt z.b. auf, wenn auf ein Objektliste zugegriffen wird, diese Objektliste aber gar keine Objekte enthält.... evtl. mal nach Programmalternativen umsehen 

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

ub.zip

Also die Lisp funktioniert normalerweise ohne Probleme. Es liegt wohl auch nicht an dem Block, da wenn ich ihn in eine neu angelegte Zeichnung kopiere, das Lisp-Programm ohne Probleme ausgeführt werden kann; die Fehlermeldung "; Fehler: Obere Begrenzung in SAFEARRAYBOUND war niedriger als die untere." kommt trotzdem, und hat augenscheinlich gar nichts mit der Funktion des Lisp-Programms zu tun.

Der Fehler muss also in der Zeichnung liegen. Es passiert oft, dass das Programm ohne Probleme funktioniert und dann irgendwann auf einmal nicht mehr. 

Das Programm benennUBL.LSP (habe es zur einfachheit zu ub.LSP umbenannt) habe ich hier vor einem Jahr im Forum bekommen, glaube von CADwiesel.

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

---

hab mir den Code mal angeguckt.. und wie vermutet, steigt das Programm bei leeren anonymen Blöcken aus ....  

(setq cnt    (- (vla-get-count blk) 1)) ergibt bei leeren Blöcken -1
und das nachfolgende
(setq newfil (vlax-make-safearray vlax-vbobject (cons 0 cnt)))
meckert dann natürlich.

Brauchst du denn leere anonyme Blöcke für irgentwas? oder kannst du sie gleich löschen ?

------------------
      - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Wie entferne ich denn die leeren anonymen Blöcke  
Der Befehl "Bereinigen" hilf in diesem Fall nicht.

[Diese Nachricht wurde von dr.dave81 am 21. Okt. 2010 editiert.]

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

---

.. schau dich mal z.b. auf www.d-tools.eu  um ... ( <<Infos dazu>> )

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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