---

Hallo Forum....
Also ich hab mir ein Schaltfläche geschaffen mit der ich den Layer eines Objektes als Text bekomme. Ich befinde mich im Papierbereich - Wechsle in ein Ansichtsfenster, wähle ein Objekt. und der Layer des Objektes (erst ab 6ter Stelle) wird im Papierbereich als Text ausgegeben.

^C^C-layer;se;6;;texteval;1;_.MSPACE;(setq lakt (getvar "clayer"));_ai_molc;\_.PSPACE;(setq lrohr (getvar "clayer"));(setq lrohr (substr lrohr 6 50));-layer;se;!lakt;;text;\3.5;0.0;!lrohr;

So weit so gut - funktioniert einwandfrei.
Jetzt hab ich das ganze mit Lisp probiert - wobei ich sagen muss das was Lisp betrifft noch ein "geistiges Nackerpatzerl" bin.

Hier mein Code:

(defun c:layer2text-5 ()

(command "-layer" "se" "6" "")
(setvar "texteval" 1)
(command "_.mspace")
(setq lakt (getvar "clayer"))
(setq objk (entsel))
(command "_ai_molc" objk)
(command "_.pspace")
(setq lrohr (getvar "clayer"))
(setq lrohr (substr lrohr 6 50))
(command "-layer" "se" lakt "")
(command "text" (getpoint) 3.5 0.0 rohr)

)

Ich weis ziemlich unaufgeräumt....

2 Probleme die ich jetzt habe:

(command "_ai_molc" objk) ---> Acad erkennt den befehl ai_molc nicht mehr und der befehl _ai_molc akzeptiert nicht das in der variable objk eingetragene Objekt. bei anderen befehlen (z.b. eigändr) funktionert das so.

kann mir jemand helfen??

------------------
mfg Siegfried Schachinger

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

---

Das problem ist das ai_molc selbst
ein Lisp Befehl ist und daher mit
der command Anweisung nicht
aufgerufen werden kann. Lisp Befehle
ruft man aus Lisp mit (C:ai_molc)
auf, jedoch kann das Objekt nicht
übergeben werden. Ich würde daher
folgendes vorschlagen:

(setq layobj (cdr (assoc 8 (entget (car (entsel))))))
'fragt nach Objekt und liefert Layer retour
(setvar "CLAYER" layobj)
'setzt Objektlayer aktuell

Hinweis: Wenn bei der Objektauswahl danebengeklickt
wird, wird die Variable ERRNO auf 7 gesetzt, prüfen
und Lisp beenden oder Abfrage wiederholen.

------------------
Bernd Cuder
Cad&Co makes CAD easy

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

---

Hy Bernd

bingo - haut hin!

da regnets gleich ein paar unities!

THANKS!

------------------
mfg Siegfried Schachinger

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