---

Hallo Werte Experten /innen,
ich bekomme ab und an folgenden Fehler:
"Laufzeitfehler 91, Objektvariable oder With Blokvariale nicht festgelegt"

Code:

---

Dim farbindex as Variant
Dim lyerObj as AcadLayer
Dim Lcolor as AcadAcCmColor

layername = "test"
farbindex = 2

set lyerObj = thisdrawing.layers.add(layername)
Lcolor.colormethod = accolormethodbyaci
Lcolor.colorIndex = farbindex
layerobj.truecolor = locolor

set lcolor = nothing

---

der Fehler taucht nach dem 2. oder 3. Durchlauf auf und bleibt hier hängen:
Lcolor.colormethod = accolormethodbyaci

entferne ich diese Zeile, bleibt es dann in der nächsten Zeile hängen. Ich muss wohl irgendwas noch setzen?

Gruß und Danke
Tom

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

---

Hallo Tom,

setzt doch als erste Zeile im Projekt
OPTION EXPLICIT

dann wird er dir schon verraten welche Variable einen Schreibfehler hat. (Locolor ??)

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Nabend,
das OPTION EXPLICIT steht schon in meinem Modul drin :-(
oh, Lolor -> lcolor habe ich nur hier falsch getippt

das verrueckte ist ja, die Fehlermeldung erscheint ja nicht immer. Nur ab dem 2. / 3. Durchlauf, als wäre irgendwas nicht richtig zurueck gesetzt worden. Ich ändere nichts, setze im Editor unter ausführung - zurücksetzen alles wieder zurück, wobei das ja eigentlich nicht notwendig ist. dann gehts mal wieder fuer 2/ 3 male

Puhh. VBA in ACAD, damit komme ich irgendwie noch nicht zurecht. Habe noch ne Frage, aber dazu stelle ich es in einem separaten Thread

T

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

---

Hallo Tom,

Dim Lcolor As New AcadAcCmColor
wäre richtig.

Aber kopier doch deinen Code. Sonst bringst nix wenn man nicht sehen kann wo der Schreibfehler steckt.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht. 
www.ib-stelberg.de

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

---

Hallo Tom,

klappt es jetzt mit

Code:

---

Dim Lcolor As New AcadAcCmColor

---

?

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.
www.ib-stelberg.de

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

---

Ups, Sorry Stelli.
Ich dachte ich haette geantwortet, aber habe es wohl nicht richtig abespeichert. JA, es lag wohl daran. (jedenfalls kam der Fehler nicht mehr wieder - bisher )
Vielen DANK!!!
T

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