---

Moin !
Weiß jemand fähiges, warum das folgende lisp nicht unter Acad2000 (unter 2002 läuft es) funktioniert ? (no function definition : init bonus error). Es sollte möglichst unter beiden Versionen laufen...
----------------
(Defun C:LAYISO (/ SS CNT LAY LAYLST VAL VPMODE)
  (init_bonus_error
    (list
      (list "cmdecho" 0
            "expert"  0
      )
      T    ;flag. True means use undo for error clean up.
    );list
  );init_bonus_error
  (if (and (= 0 (getvar "tilemode"))                          ; if in a paper space
          (/= 1 (getvar "cvport"))                          ; viewport
      )
    (setq VPMODE T)                                          ; set flag for viewport behavior
  )
  (if (not (setq SS (ssget "_i")))
    (progn
      (prompt "\nObjekt(e) auf zu isolierenden Layern wählen: ")
      (if(null(setq SS (ssget)))
          (setq ss(ssget "_X"(list(cons 8(getstring"\nLayernamen eingeben [mehrere durch Komma trennen]: ")))))
        )
    )
  )
  (if SS
    (progn
      (setq CNT 0)
      (while (and ss
                  (> (sslength ss) 0)
                  (setq LAY (ssname SS CNT))
            );and
        (setq LAY (cdr (assoc 8 (entget LAY))))
        (if (not (member LAY LAYLST))
          (setq LAYLST (cons LAY LAYLST))
        )
        (setq CNT (1+ CNT))
      )
      (cond
        (VPMODE
          (command "_.vplayer" "_freeze" "*" "_Current")
          (foreach VAL LAYLST (command "_Thaw" VAL "_Current"))
          (command "")
          (if (= (length LAYLST) 1)
            (prompt (acet-str-format "\nLayer %1 wurde in diesem Ansichtsfenster isoliert." (car LAYLST)))
            (prompt (acet-str-format "\n%1 Layer wurden in diesem Ansichtsfenster isoliert." (itoa (length LAYLST))))
          )
        )
        (T
          (if (member (getvar "CLAYER") LAYLST)
            (setq LAY (getvar "CLAYER"))
            (setvar "CLAYER" (setq LAY (last LAYLST)))
          )
          (command "_.-LAYER" "_OFF" "*" "_Y")
          (foreach VAL LAYLST (command "_ON" VAL))
          (command "")
          (if (= (length LAYLST) 1)
            (prompt (acet-str-format "\nLayer %1 wurde isoliert." (car LAYLST)))
            (prompt (acet-str-format "\n%1 Layer wurden isoliert. %2 ist der aktuelle Layer."
                                      (itoa (length LAYLST)) LAY)
            )
          )
        )
      )
    )
  )
  (restore_old_error)
  (princ)
)
----------------------------------

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

---

Servus

Das ist doch ein Befehl von den E-Tools. Holl dir die E-Tools von  www.Cadwiesel.de  "Expresstools-Deutsch" und installier sie.

Ps.: Sind bei beiden Versionen die E-Tools installiert wenn nicht nachholen.

Dank sollte es funktionieren

------------------
Warum Einfach es geht auch kompliziert schöne Grüsse aus der Steiermark  Bernd P.
Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 08. Mrz. 2005 editiert.]

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

---

Ja, natürlich sind sie das, aber leicht abgeändert.
Die Etools sind installiert, mir geht es aber um die Funktion, Layer durch die Eingabe ihrer Namen zu isolieren.
Gruß Frank

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

---

Bin natürlich im falschen Forum. Ich Kamel.
Bitte ignorieren-----

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

---

was läuft denn nicht daran?
debugg es mal im VLisp Editor. dann wirst du sehen, wo was hängt, wenn es hängt ;D

ich schieb's mal ins Lisp-Forum

ps ich hab's eben mal unter 200 getestet - geht doch!

------------------
Gruß
     CADwiesel
Besucht uns im CHAT

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

---

Hi,

@Wiesel:
Der Gelegenheitslispler hat sich wahrscheinlich verschrieben und meinte unter 2000 läuft es. Die Funktionen INIT_BONUS_ERROR und RESTORE_OLD_ERROR heißen in neueren Express Tools ACET-ERROR-INIT und ACET-ERROR-RESTORE.

@Gelegenheitslispler:
Ein Vorschlag: Pack beide LAYISOs in eine Lisp, lass beide ACETUTIL.FAS autom. laden (darin sind die ERROR-Funktionen) und starte das ganze ungefähr so:

Code:

---

(defun C:LAYISO ()
(if (< (atof (getvar "ACADVER")) 15.06)
  (C:LAYISO-2000)
  (C:LAYISO-2002)
  )
)

---

Gruß
CADchup

------------------
www.cadditions.de

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

---

Das probier ich aus. Danke !
Allerdings läuft es NICHT unter r2000 ;-)
Gruß Frank

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