| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Brühl und CIDEON: Synergien schaffen Wettbewerbsvorteile , ein Anwenderbericht
|
Autor
|
Thema: löschen von blöcken (971 mal gelesen)
|
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 07:46 <-- editieren / zitieren --> Unities abgeben:
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 |
michelangelo Mitglied
Beiträge: 158 Registriert: 08.04.2004 Win XP, ACAD 2002 ExpressTool vom ACAD 2000
|
erstellt am: 12. Okt. 2004 07:53 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
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 |
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 08:06 <-- editieren / zitieren --> Unities abgeben:
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 12. Okt. 2004 08:11 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
|
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Okt. 2004 09:47 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
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 |
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 10:10 <-- editieren / zitieren --> Unities abgeben:
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 12. Okt. 2004 10:27 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
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 |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 12. Okt. 2004 10:30 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
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 |
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 10:55 <-- editieren / zitieren --> Unities abgeben:
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 12. Okt. 2004 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
|
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 11:03 <-- editieren / zitieren --> Unities abgeben:
|
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 11:56 <-- editieren / zitieren --> Unities abgeben:
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 12. Okt. 2004 11:59 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
|
IBS BOH Mitglied
Beiträge: 212 Registriert: 22.09.2004 Windows 2000 AutoCAD 2004 SP 1a Expresstools 2004 Deutsch HP DesignJet 800
|
erstellt am: 12. Okt. 2004 12:01 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
|
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 12:04 <-- editieren / zitieren --> Unities abgeben:
|
Kramer24 Ehrenmitglied V.I.P. h.c. Architekt
Beiträge: 5896 Registriert: 09.11.2001 Acad Architecture 2023 WIN 10
|
erstellt am: 12. Okt. 2004 12:07 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
ist vielleicht nur im falschen Ordner. Bei mir: C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\Autodesk\Autodesk Architectural Desktop 2004\R16.0\deu\Plot StylesEnfach mal nach den *.ctb suchen (mit dem Explorer) Lothar Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
batman17 Mitglied staatl. gepr. holztechniker
Beiträge: 81 Registriert: 12.10.2004 Intel Core i7 2.20GHz 8GB NVIDIA Quadro 1000M Win7, Building Design Suite 2013
|
erstellt am: 12. Okt. 2004 12:32 <-- editieren / zitieren --> Unities abgeben:
|