---

LayerLisp.ZIP

Hallo,

Kann mir wer helfen ? Ich hab mir 3 lsp umgeschrieben, dank eurer Hilfe. Alle 3 funktionieren für sich allein. Wenn alle 3 geladen sind spring der Bemaßungslayer nicht mehr auf alten Layer zurück.

Hab ich da was falsch gemacht ? Ich krieg noch graue HAARE.

Danke DUMU

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

---

Siehe Tipp von mir hier
alles in eine "Cond" !!!

------------------
- 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

---

All-lisp.ZIP

Hallo Thomas,

hab ich ja schon versucht (siehe anhang). Klappt auch nicht. Dafür fehlt mir die Lisp-Kenntnis.

Ich glaub ich brauch mal ne Schulung. Hab bloß keine Zeit.

Gruß DUMU

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

---

Hallo DUMU,

prüf mal nochmal die cond und Klammersetzung im Rücksetzabschnitt,
die (and  Bedingung hast Du nur in der ersten Cond Klausel, mir scheinen danach ein paar Klammern zuviel zuzugehen (??).

gruß
spider

probier mal dies hier

(defun after_lay (reatyp befname / );Wenn Bem beendet wird
  (cond
    ((and
      (wcmatch (car befname) "DIM*")
      *oldlay*
    )
(setvar "CLAYER" *oldlay*)
    (setq *oldlay* nil)
    )
    ((and
      (wcmatch (car befname) "*TEXT")
      *oldlay*
    )
(setvar "CLAYER" *oldlay*)
    (setq *oldlay* nil)
    )
    ((and
      (wcmatch (car befname) "*BHATCH")
      *oldlay*
    )
(setvar "CLAYER" *oldlay*)
    (setq *oldlay* nil)
    )
   
  )
)

Gruß  spider

[Diese Nachricht wurde von spider_dd am 30. Nov. 2004 editiert.]

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

---

All-lisp.ZIP

Hallo Spider

Hab das mal ausprobiert. Beim Bemaßen und beim Text klappt es einwandfrei bloß die Schraffur macht schlapp.

_bhatch ; Fehler: Es ist ein Fehler innerhalb der *error*-Funktion
aufgetreten.invalid AutoCAD command: nil

Was bedeutet das ? Hier noch einmal die Komplette geänderte Lisp.

Vielen Dank DUMU

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

---

Hallo DUMU,

bei mir läuft alles super,
prüfe mal Deine Layernamen, insbesonderer 0-Schaffur (lt. lisp), heist der in der Zeichnung vielleicht    0-Schraffur  ??

Gruß Spider

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

---

Moin,

bei mir klappt es auch prima.

[Diese Nachricht wurde von AsSchu am 01. Dez. 2004 editiert.]

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

---

hab selbst noch mal das unabhäbging durchgezogen ( bevor man Fehler abschreibt)
(defun pre_lay (reatyp befname / )
  (cond
    ((or(wcmatch (car befname) "DIM*")(wcmatch (car befname) "BEM*"))
      (setq *oldlay* (getvar "CLAYER"))
      (setvar "CLAYER" "MY-DIM-LAYER")
    )
    ((wcmatch (car befname) "*TEXT")
      (setq *oldlay* (getvar "CLAYER"))
      (setvar "CLAYER" "MY-TEXT-LAYER")
    )
    ((or(wcmatch (car befname) "*SCHRAFF")(wcmatch (car befname) "*HATCH"))
      (setq *oldlay* (getvar "CLAYER"))
      (setvar "CLAYER" "MY-HATCH-LAYER")
    )
  )
)
(defun after_lay (reatyp befname / )
  (cond
    ((and(or(wcmatch (car befname) "DIM*")
            (wcmatch (car befname) "DIM*")
            (wcmatch (car befname) "*TEXT")
            (wcmatch (car befname) "*SCHRAFF")
            (wcmatch (car befname) "*HATCH")
        ) 
        *oldlay*
    )     
      (setvar "CLAYER" *oldlay*)
      (setq *oldlay* nil)
    )   
  ) 
)

(defun reaload ()
  (if (not *DEFUN_LAYERSET*)
    (progn
      (setq *DEFUN_LAYERSET*
            (VLR-Command-Reactor "*DEFUN_LAYERSET*"
              '((:vlr-commandEnded . after_lay)
                (:vlr-commandwillstart . pre_lay)
              )
            )
      )
      (princ "\nLayerschalter aktiviert")
    )
  )
)

(foreach LAYER '("MY-DIM-LAYER" "MY-TEXT-LAYER" "MY-HATCH-LAYER")
  (if (not(tblobjname "LAYER" LAYER))
    (command "_-layer" "_m" LAYER "")
  ) 
) 
(reaload)

und läuft auch.

------------------
- 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

---

Oh Man, Danke

Manchmal sieht man den Wald vor lauter Tannen nicht.
Ich hab es zwar hundertmal gelesen und verglichen aber der SCHREIBFEHLER ist untergegangen. (Ich glaub im Advenskalender war eine Schnapspraline)

Vielen Dank nochmal. Jetzt ist alles i.O.

Bis zum nächsten Problemchen.

Gruß DUMU

[Diese Nachricht wurde von dumu am 02. Dez. 2004 editiert.]

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