---

Hallo,
ich möchte im AutoCAD 2000 Objekte auf einem Layer anklicken und ausblenden, ohne den Layer auszuschalten. Geht das??
Danke ellyse

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

---

Hallo,

eine Funktion, bei der man Objekte nur anklicken muß um sie auszublenden kenne ich auch nicht. Vielleicht hilft aber die Funktion WIPEOUT aus den Expresstools. Damit legt man einen polygonalen Rahmen um das Objekt. Innerhalb des Rahmens werden alle Objekte ausgeblendet.
Der Rahmen selbst kann ausgeschaltet werden, so daß nichts mehr sichtbar ist.

Gruß

Herby

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

---

Hallo Ellyse,
ja geht.

(defun C:AUS (/ sset_1 i entity)
(defun *error* (msg)
  (princ "\nKEINE OBJEKTE GEWÄHLT.................. ")
  (princ)
)
(setvar "CMDECHO" 0)
(regapp "AUSBLEND")
(if (not (tblsearch "LAYER" "PARKLAYER"))
  (command "_layer" "_n" "PARKLAYER" "_fr" "PARKLAYER" "")
)
(if (not (zerop (cdr (assoc 70 (tblsearch "LAYER" "PARKLAYER")))))
  (command "_layer" "_fr" "PARKLAYER" "")
)
(princ "\nZUM AUSBLENDEN - BITTE DIE ")
(setq sset_1 (ssget)
      i      (sslength sset_1)
)
(while (>= (setq i (1- i)) 0)
  (setq entity (entget (ssname sset_1 i)))
  (entmod
  (cons (list -3 (list "AUSBLEND" (cons 1000 (cdr (assoc 8 entity)))))
        (subst (cons 8 "PARKLAYER") (assoc 8 entity) entity)
  )
  )
)
(princ)
)
-------------------------------------------------------------------------------
(defun C:EIN (/ sset_1 i ename entity)
(defun *error* (msg)
  (princ "\nKEINE OBJEKTE GEFUNDEN................. ")
  (princ)
)
(setvar "CMDECHO" 0)
(princ "\nSUCHE NACH AUSGEBLENDETEN OBJEKTEN.....")
(setq sset_1 (ssget "X" (list (cons 8 "PARKLAYER"))))
(if (/= sset_1 nil)
  (princ "\nAUSBLENDUNG WURDE RÜCKGÄNGIG GEMACHT....")
)
(setq i (sslength sset_1))
(while (>= (setq i (1- i)) 0)
  (setq ename  (ssname sset_1 i)
        entity (entget ename (list "AUSBLEND"))
  )
  (entmod
  (append
    (subst
    (cons 8 (cdr (cadadr (assoc -3 entity))))
    (assoc 8 entity)
    (entget ename)
    )
    (list (list -3 (list "AUSBLEND")))
  )
  )
)
(princ)
)
(princ)

Gruss
Werner

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

---

Hallo Ellyse,

wenn Du regelmäßig das Problem hast, Objekte ausschalten zu wollen, sich aber immer auch viele andere Objekte auf dem Layer befinden, die nicht ausgeschaltet werden sollen, solltest Du vieleicht einfach mehr Layer anlegen. So bist Du beim Layermanagement flexibler!

------------------
AJ

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

---

@ ellyse:
Dein Wunsch: "ich möchte im AutoCAD 2000 Objekte auf einem Layer anklicken und ausblenden, ohne den Layer auszuschalten."
kann erfüllt werden.
Wenn der DXF-Code 60 eines Objektes = 1 ist, ist es unsichtbar. D.h. Du benötigst ein Tool, daß von Dir anzuklickende Objekte dahingehend manipuliert.

Kopiere folgende Code-Zeilen hier raus in Notepad und speichere Sie in eine Datei "sh.lsp" in ein Acad-Support-Verzeichnis.
Lade das pgm dann in Acad mit (load "sh.lsp").
Objektwahl starten dann mit Eingabe von "nsh" (ohne Hochkommas!),
Objekte zum Ausschalten auswählen, Enter wenn fertig und weg sind die Racker.
Zum Einschalten aller ausgeschalteten Objekte gebe "tnsh" ein.

Ich benutze diese Funktion schon genau so und unverändert seit Release 12. Funktioniert 100% zuverlässig.

Dir sollte natürlich bewußt sein, daß man einer DWG nicht ansieht, daß dort Elemente existieren, die ausgeschaltet sind. Du kannst zwar alle wieder sichtbar machen ("tnsh" !!) aber wenn andere User die in die Finger kriegen wissen die evtl. gar nix von dem Tool. Also bevor Du Deine DWG weitergibst alle Objekte wieder anschalten!
("TNSH" meldet auch, wenn keine Elemente unsichtbar geschaltet sind.)
Have fun with it! Geiles Tool das.
Ciao,
Marc

PS: Ist aber nicht von mir geschrieben worden...

Code:

---

;********************** Beginn Befehle **************************

; NSH schaltet alle gewählten Elemente aus (Noshow)

(defun C:NSH ( / a)

(princ "\nZum Ausschalten")
(setq a (ssget))                      ; sichtbare wählen
(if a
  (noshow a)                          ; ausschalten
  (princ "\nKeine Elemente gewählt\n")
)
(princ)
)

; SSH schaltet die gewählten Elemente wieder ein (Switch to show)
; Achtung: nach (grclear) können auch Elemente gefunden werden, die momentan unsichtbar sind,
; sich aber trotzdem schon im eingeschalteten Zustand befinden. Durch diese Auswahl
; wird aber ihr Zustand nicht verändert!

(defun C:SSH ( / a b)
(setq
  a (ssget "X" (list (cons 60 1)))    ; Alle ausgeschalteteten aus der Datenbank holen
)
(if a
  (progn
  (grclear)                ; alle sichtbaren löschen
  (show a)                ; alle unsichtbaren zeigen
  (princ "\nZur Sichtbarkeit")
  (setq b (ssget))        ; gewünschte wählen
    (if b                  ; falls welche gewählt
    (progn
      (noshow (sssub a b))  ; von den bisher unsichtbaren die gewählten herausnehmen
      (show b )            ; und die gewählten wieder sichtbar machen
    )
    (noshow a)            ; wenn keine gewählt, wieder alle Unsichtbaren zurück
    )
  )
  (princ "\nKeine Elemente unsichtbar geschaltet\n")
)
(redraw)                    ; Bildschirm wieder herstellen
(princ)
)

; TNSH schaltet alle unsichtbaren Elemente wieder sichtbat (toggle all noshow entities to show)

(defun C:TNSH ( / a)

(setq
  a (ssget "X" (list (cons 60 1)))    ; alle unsichtbaren in der Datenbank suchen
)
(if a                                ; falls welche gefunden
  (show a)                            ; diese anzeigen
  (princ "\nKeine Elemente unsichtbar geschaltet\n")
)
(princ)
)

;********************** Ende Befehle **************************

;**********************Beginn Funktionen  ****************************

; sssub subtrahiert von Auswahlsatz  a Entities die in Auswahlsatz b enthalten sind

(defun sssub (a b / c d e)
(setq  d 0.0)              ; Realzahl als Indexzeiger für Auswahlsatz verwenden
(while (setq e (ssname b d))
(if (ssmemb e a)
  (setq a (ssdel e a))
)
(setq d (1+ d))
)
a
)

; noshow schaltet die Entities in Auswahlsatz a unsichtbar

(defun noshow ( a / b c d e)
(setq
  b (sslength a)
  c 0.0
)
(while (setq d (ssname a c))
  (setq
  e (entget d)

;  Hier muß zum ersten Mal auf die Reihenfolge der Unterlisten in der Elementliste geachtet werden:
;  e (append (list (cons 60 1)) e) würde mit R13 Entities nicht funktionieren !

  e (append e (list (cons 60 1)))
  )
  (entmod e)
  (setq c (1+ c))
)                    ; Ende while
)

; show schaltet die Entities in Auswahlsatz a sichtbar

(defun show ( a / b c d e)
(setq
  b (sslength a)
  c 0.0
)
(while (setq d (ssname a c))
  (setq
  e (entget d)
  e (subst (cons 60 0) (assoc 60 e) e ) ; Hier gilt für die Reihenfolge das Gleiche wie bei noshow
  )
  (entmod e)
  (setq c (1+ c))
)                    ; Ende while
)

; fld gibt die zu a assozierte Unterliste aus Liste b zurück

(defun fld (a b)
(cdr(assoc a b))
)

;**********************Ende Funktionen  ****************************

---

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

---

noch ein Vorschlag:

such mal z.B. mit google nach "wegundwiederher.lsp"

Gruß Fips

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

---

Hallo,
ich danke euch allen für eure info.
bin aber bissel überfordert mit den vielen >!Ž^ usw.
bin doch nur ein ANWENDER!!!
ellyse

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

---

Rampf.txt

Hallo, es gibt da noch 7 Tools( programmiert von Gerhard Rampf),
vom Autocad-Magazin (Diskette 03-2000)
Beschreibung in der angehangenen Rampf.txt

Tschau Mario

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

---

Morgen

@fips          wegundwiederher.lsp->google geht nicht
@m-treoger    geht leider nicht
@marc.scherer  geiler Tool  10  Units

------------------
mfG Bernd P. 

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

---

Hai Marc

Ist ja wirklich 'n netter Code.
Meinst Du, ich kann (sollte) den in die Sammlung aufnehmen?

------------------
Gruß
CADwiesel

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

---

Bin zwar nicht Marc, aber
fühle mich irgendwie auch angesprochen...

Antwort: Jain ! - wenn du das in deine Seite einstellst dann schreibe dazu das dies kein "Spielzeug" ist !!! Mann kann es zwar von überall herholen [zB ja jetzt von hier] aber bei dir ist es praktisch dann das Silbertablett...
Warum kein Spielzeug ???- ganz einfach, es gibt von allen Zeichnern die ich Privat kenne nur einen der Ahnung hat (weit mehr wie ich) was dort im Prog passiert, das sowas überhaupt geht- alle anderen würden einfach losheulen wenn ACAD sagt es wäre ein Kreis vorhanden und sie sehen aber keinen, ...liegt am Code60!- ist das was zu essen? würde man als Antwort erhalten. Jeder (Viele) der eine Datei mit ausgeschalteten Objekten erhält  wäre restlos überfordert, und Nachlässigkeit sowie Vergesslichkeit ist an der Tagesordnung (bei jedem) nur: die einen weniger die anderen ein ganzes Stück mehr!

Naja, macht euch mal Gedanken 

------------------
  Gruß Sebastian ,FFM

[Diese Nachricht wurde von cadffm am 03. September 2002 editiert.]

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

---

Hi Wiesel,
der Code ist nicht von mir. Ich hab' den irgendwo mal gesehen, seitdem benutze ich ihn ständig. Ist tierisch zuverlässig und funzt unverändert seit R12.
Mach damit was Du für richtig hälst.

PS: Wenn Du ihn verwendest, weise bitte auf die Risiken hin!

------------------
Ciao,
Marc

[Diese Nachricht wurde von marc.scherer am 03. September 2002 editiert.]

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

---

Rampf.txt Rampf.zip

Hallo zusammen,

hier nun nochmal die Geschichten die benutze.
Bei mir laufen Sie wunderbar.

Servus Mario

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