---

Hallo,

hat jemand vielleicht ein Lisp mit dem ich alle Schraffuren in
einer Zeichnung, vor allem auch die in Blöcken, auf Knopfdruck löschen kann?
Wär ne große Hilfe für mich. Kann leider kein Lisp.

Gruß Ralle

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

---

Für die Schraffuren in Blöcken habe ich jetzt zwar keine Lösung, aber für alles andere gibt es die Schnellauswahl (-> "SAUSWAHL").

MfG

Chris

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

---

Ist mir bekannt. Trotzdem merci.

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

---

Das mit den im Block wird komplizierter 

(defun C:hatch_kill (/)
  (command "_.erase" (ssget "x" '((0 . "HATCH"))))
)
(princ)

löscht aber auch bei assozitiven Schraffuren die Umgrenzung !

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Um die in den Blöcken gehts mir aber hauptsächlich.
Alle anderen könnte ich ja über die Schnellauswahl
greifen :-(

Gruß

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

---

hier mal ein bischen was extra für dich ausgedactes.
der Code ist public free macht damit was ihr wollt. wenn ihr euch was zerschießt, seid ihr selber schuld.
(Ähnlichkeiten mit existierenden Programmen oder Programmteilen sind rein Zufällig und nicht beabsichtigt)
(ich denke sowas in der Art sollten wir uns in die Signatur schreiben)

(defun c:hatch-del (/ helems x Bname)
(vl-load-com)
  (if (setq helems (ssget "_X" '((0 . "HATCH"))))
    (repeat (sslength helems)
      (entdel (ssname helems 0))
      (setq helems (ssdel (ssname helems 0) helems))
      ) ;_ end of repeat
    ) ;_ end of if
  (setq x (tblnext "BLOCK" T))
  (while x
    (setq Bname (entget (cdr (assoc -2 x))))
    (repeat (- (vla-get-Count
                (vlax-ename->vla-object
                  (cdr (assoc 330 (entget (cdr (assoc -2 x)))))
                  ) ;_ end of vlax-ename->vla-object
                ) ;_ end of vla-get-Count
              1
              ) ;_ end of -
      (if (= (cdr (assoc 0 Bname)) "HATCH")
        (deleteObjectFromBlock (cdr (assoc -1 Bname)))
        ) ;_ end of if
      (setq                            ;obname Bname
        Bname (entnext (cdr (assoc -1 Bname)))
        ) ;_ end of setq
      (if Bname
        (setq Bname (entget Bname))
        ) ;_ end of if
      ) ;_ end of repeat
    (setq x (tblnext "BLOCK"))
    ) ;_ end of while
  (vla-regen
    (vla-get-activedocument
      (vlax-get-acad-object)
      ) ;_ end of vla-get-activedocument
    acAllViewports
    ) ;_ end of vla-regen

  ) ;_ end of defun
(defun deleteObjectFromBlock (ent / doc)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
        ent (vlax-ename->vla-object ent)
        ) ;_ end of setq
  (vla-Delete ent)
  ) ;_ end of defun

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

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

---

Geeeeeeeeeeeeeeeeeeeeeeeeeeeenial!

Funktioniert bestens.

Vieeeeeeeeeeeeeelen Dank

Und gleich Units hinterher :-)

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

---

Hallo cadwiesel,
wenn ich Dein lsp starte kommt

Befehl: hatch-del
; Fehler: ActiveX-Server gab folgenden Fehler zurück: unbekannter Name: Count

arbeite mit 2009 liegts daran?
mit bestem Gruß
Jochen

------------------
  N
W-|-O
  S

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

---

wenn es in der Versionen davor funktioniert hat, liegt es am 2009.

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

---

in 2008 die selbe Fehlermeldung

Schraffuren werden gelöscht aber nicht in Blöcken

------------------
  N
W-|-O
  S

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

---

wie siehts mit [URL=http://ww3.cad.de/foren/ubb/Forum54/HTML/008331.shtml#000002]dem Teil[\URL] und dem Aufruf
(DELALL "AcDbHatch") oder so
aus?

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

---

@CADmium :...(DELALL "AcDbHatch")->seeehr feines Prog!

@CADwiesel :
"der Code ist public free" -> Ich war so frei...
Habe Count-Problem eleminiert (vla-get-Count...
im Übrigen - tolles Engagement!
Gruß Claudio

(defun c:hatch-del (/ helems x Bname Count)
  (vl-load-com)
  (if (setq helems (ssget "_X" '((0 . "HATCH"))))
    (repeat (sslength helems)
      (entdel (ssname helems 0))
      (setq helems (ssdel (ssname helems 0) helems))
    ) ;_ end of repeat
  )  ;_ end of if
  (setq x (tblnext "BLOCK" T))
  (while x
    (Setq Count 1)
    (setq Bname (entget (cdr (assoc -2 x))))
    (While count
      (if (= (cdr (assoc 0 Bname)) "HATCH")
(deleteObjectFromBlock (cdr (assoc -1 Bname)))
      )
      (setq Bname (entnext (cdr (assoc -1 Bname))))
      (if Bname
(setq Bname (entget Bname))
(setq count nil)
      ) ;_ endif
    ) ;_ endWhile
    (setq x (tblnext "BLOCK"))
  ) ;_ endwhile
  (vla-regen (vla-get-activedocument (vlax-get-acad-object))
    acAllViewports
  ) ;_ end of vla-regen
) ;_ end of defun
(defun deleteObjectFromBlock (ent / doc)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))
ent (vlax-ename->vla-object ent)) ;_ end of setq
  (vla-Delete ent)
) ;_ end of defun

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

---

Ich glaube, jeder hier kennt die Funtkion "Filter"?
Mit Schraffuren sicher auch...
Ich Bräuchte jetzt was, womit ich ALLE Schraffuren herausfiltern könnte, ganz egal, ob im Block, oder einfach...

Ich bin da auf "ssget" gestoßen...
Bloß, ich bekomme das nicht hin, wie kann ich da die Schraffuren einfach herausfiltern?
Und dann, z.B. wie bei normalem Anwäheln umlayern, also von Layer A auf Layer B, dürfte bekannt sein, was ich meine...

Wäre euch sehr verbunden, wenn ihr mir sagen könntet, was ich da genau eingeben muss, kenne mich mit dem Befehl so gut wie überhauptnicht aus...

------------------
Viele denken daran, die Menscheit
zu ändern, aber kein Mensch denkt
daran sich zu ändern...

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

---

mann mann mann , dieses kreuz und quer gepost 

es geht nicht mit ssget, wie hier bereits beantwortet: http://ww3.cad.de/foren/ubb/Forum54/HTML/022383.shtml#000003 

wie FILTER oder SAUSWAHL auch behandelt SSGET nut TopLevelElemente

------------------
die alte SUCHfunktion.. - System-Angaben - User:FAQ(Adesk)

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