---

moin,

ich habe da ein kleines problem.
ich habe eine vorlage die ich bereinigen möchte. sämtliche layer und blöcke sind schon gelöscht. aber es gibt noch ein paar wenige, die das Bereinigen nicht schafft....

...hat jemand ne idee und kann mir weiterhelfen!?

gruß alex

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

---

für die blöcke weiss ich nicht, sind sie auf gesperrten layern???

für die layer wen nichts mehr drauf ist, auch nicht in den layouts!

kannst du mit dem lisp einige layer löschen die du sonst einfach nicht wegbringst.

;; --------------------------------------------------------------------------;
;;;  DELLAYER.lsp
;;;  Copyright (C) 1990 - 1993 by Autodesk, Inc.
;;;
;;;  Permission to use, copy, modify, and distribute this software
;;;  for any purpose and without fee is hereby granted, provided
;;;  that the above copyright notice appears in all copies and that
;;;  both that copyright notice and this permission notice appear in
;;;  all supporting documentation.
;;;
;;;  THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;;;  WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;;;  PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;;  Version 2.0
;;; --------------------------------------------------------------------------;
;;;  DESCRIPTION
;;;
;;;  This program deletes all entities on specified layers.  Wildcards
;;;  can be specified.
;;;
;;;  Version 2.0 has been updated to delete entities in both paper
;;;  space and modelspace. An additional prompt has been added to
;;;  prepare a layer for purging. If desired, the layer(s) will be
;;;  thawed and turned off, to make purging possible.
;;;  Script files using earlier versions of this routine must be
;;;  updated to accomodate the extra prompt.
;;;
;;; --------------------------------------------------------------------------;

(defun dellerr (s)                    ; If an error (such as CTRL-C) occurs
                                      ; while this command is active...
  (if (/= s "Funktion abgebrochen")
    (princ (strcat "\nFehler: " s))
  )
  (setq sset_1 nil)                  ; Free selection-sets if any
  (setq sset_2 nil)
  (setvar "CMDECHO" ocmd)            ; Restore saved mode
  (setq *error* olderr)              ; Restore old *error* handler
  (princ)
)

(defun c ELLAYER ( / sset_1 sset_2 prg num count ex)
  (setq olderr *error*
        *error* dellerr)

  (setq ocmd (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)

  (setq lname (strcase (getstring "\nZu löschende(r) Layer: ")))

  ;; Get all entities on layer(s)
  (setq sset_1 (ssget "_X" (list (cons 8 lname))))

  (if sset_1
      (progn
        (initget "Ja Nein")
        (setq prg (getkword "\n\
Den(die) Layer zum bereinigen vorbreiten <J>/N:"))
        (if (= prg nil) (setq prg "Ja"))
        (setq num (sslength sset_1))

        (setq count 0)                      ;delete the entities
        (repeat (sslength sset_1)
            (entdel (ssname sset_1 count))
            (setq count (1+ count))
        )

        ;Check that everything is gone
        (if
            (ssget "_X" (list (cons 8 lname)))
            ;And if anything is left
            (progn
              (setq tm (getvar "tilemode"))
                (if (= 1 tm)
                  (setvar "tilemode" 0)
                )
                ;Go to paperspace
                (if (/= 1 (getvar "cvport"))
                (progn
                  (princ "\nWechsle in den Papierbereich.")
                  (command "_.pspace")
                )
                )
                ;And try again
                (setq sset_2 (ssget "_X" (list (cons 8 lname))))
                (setq count 0)
                (repeat (sslength sset_2)
                  (entdel (ssname sset_2 count))
                  (setq count (1+ count))
                )
              (setvar "tilemode" tm)
            )
        )

        (if (= prg "Ja")
          (progn
            ; Prep the layer for purging
            ; Turn off, thaw, and unlock layer(s)
            (setq ex (getvar "expert"))
            (setvar "expert" 5)
            (command "_.layer" "_off" lname "_thaw" lname "")
              (if (= 0 (getvar "tilemode"))
                (command "_.vplayer" "_vpvisdflt" lname "_thaw" "_reset"
                lname "_all" "")
              )
            (princ "\n")(princ num)(princ " Objekt(e) auf Layer ")
            (princ lname)(princ " gelöscht.")(princ "\nLayer ") (princ lname)
            (princ " ist getaut, ausgeschaltet und kann bereinigt werden.")
    (setvar "expert" ex)
          )
          (progn
            (princ "\n")(princ num)(princ " Objekt(e) auf Layer ")
            (princ lname)(princ " gelöscht.")
          )
        )
      )

      (princ "Layer leer oder Layername ungültig.")
  )

  (setq sset_1 nil)                  ; Free selection-sets
  (setq sset_2 nil)
  (setvar "CMDECHO" ocmd)            ; Restore saved mode
  (setq *error* olderr)              ; Restore old *error* handler
  (princ)
)
(prompt "\nStarten mit: Dellayer")

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

---

hm,

danke für die antwort...aber layer habe ich soweit schon weg. meinte die blöcke die ich nicht wegbekomme.

werde nochmal weiter schauen, aber trotzdem danke!

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

---

Könnte es sein, dass diese Blöcke verschachtelt sind?

------------------
Gruß, Ernst

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

---

Servus

Versuch den Befehl "Filter" dort kannst du verschiedene Objekte auswählen (auch Blöcke). Nach einstellen des FilterŽs "alle" (in Befehlszeile eintippen) wählen.

Sollten noch wo Blöcke sein werden sie ausgewählt.
Sollten sie in einem anderen Layout sein, musst du zu Laoyut wechseln.

Ps.: Der Bemassung sind auch Blöcke zugewiesen. z.B. _None

------------------
schöne Grüsse aus der Steiermark  Bernd P.     Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

[Diese Nachricht wurde von Bernd P am 12. Okt. 2004 editiert.]

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

---

....hm!

das funktioniert alles nicht wirklich....

gibt es die möglichkeit sich die blöcke anzeigen zulassen....

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

---

Hallo,

Ein Vorschlag:
Wenn du diese Blöcke z.B. über "Strg A" markierst, und dann auflöst, kann es sein das sie sich im Hintergrund auf einem anderen (noch verwendeten) Layer befinden, wenn du das herausgefunden hast, einfach die Ursprungsobjekte aufgelöst auf einen anderen Layer schieben. Danach bereinigen.

IBS BOH

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

---

Servus

Ja freilich du kannst sie einfach mit "Insert" in die Zeichnung hollen.
Oder mit dem Designcenter anzeigen lassen (ansicht/symbole)

------------------
schöne Grüsse aus der Steiermark  Bernd P. Warum Einfach es geht auch kompliziert

Bitte Supportangaben eintragen, warum siehst du hier

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

---

ja,
jetzt hats funktioniert...

klasse und herzlichen dank!!!

eine frage arbeitet ihr auch alle in einem büro als zeichne?

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

---

Jep, wer hatte denn nun die Entscheidende Idee?

IBS BOH

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

---

der bernd mit dem design center...

kannte ich eigentlich, aber manchmal sieht man halt den wald vor lauter bäumen nicht....

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

---

und da habe ich schon gleich die nächste frage!

kann man irgendwie die ctbŽs aus acad 2002 in 2004 konvertieren???

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

---

batman,

es ist immer besser einen neuen Beitrag zu starten.
Muss man die ctb überhaupt konvertieren? IMHO nicht.

Lothar

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

---

Wir verwenden zwar keine ctbŽs, aber ich würde es über den Plotstilmanager probieren, "Hinzufügen einer Plotstiltabelle", und dann einfach "vorhandene" auswählen.

IBS BOH

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

---

also ich kann mit 2004 nicht auf die anderen zugreifen...das mit dem manager werde ich mal probieren.

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

---

ist vielleicht nur im falschen Ordner. Bei mir: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\Autodesk\Autodesk Architectural Desktop 2004\R16.0\deu\Plot Styles
Enfach mal nach den *.ctb suchen (mit dem Explorer)

Lothar

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

---

komisch jetzt gehts als wir 2004 bekommen haben ging es nicht...!?!
keine ahnung was es war...

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