---

SWHatch.lsp.txt

hab vor längerem mal ein lsp gefunden, mit dem man angeblich mehrere Objekte/Polylinien aufeinmal einzeln schraffieren kann.
Unter 2004 wird jedoch nur ein Objekt schraffiert 
Hat jemand Lust, sich das Tool mal anzusehen?

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

---

Hallo,

bei mir (AC2004) läufts...

;;;
;;;
;;;                      Funktionen zum Hatchen von Objekten (geschlossene Polylines u.ä.)
;;;                                Mit Buttondefinitionen für die, die Buttons wollen,
;;;                            HATCHT ALLE GEWÄHLTEN OBJEKTE UNABHÄNGIG VONEINANDER
;;;                                          AUF VOREINGESTELLTEN LAYERN
;;;
;;;                                                  - Wolfgang Sünder -
;;;                                                      - 10/17/01 -
;;;                       - VERSION 2.0 -
;;;
;;;

(prompt "\n| | sw_hatch wurde geladen. \"sw_hb001\" oder \"sw_hv001\" zum Ausführen Eingeben")

(defun c:sw_hb001 (/ idx ss sc clayer)

  (command "_UNDO" "_BEGIN")
 

  (command "_ucs" "w")
  (setq ss (ssget))
  (setq idx 0)
  (repeat (sslength ss)
    (command "_-bhatch"
    "_A"
    "_A"
    "_Y"
    ""
    "_P"
    "SOLID"
    "_S"
    (ssname ss idx)
    ""
    ""
    )
    (setq idx (1+ idx))
  )
  (command "_ucs" "VO")
  (command "_UNDO" "_END")(princ)
 
)

------------------
"Stellt Euch vor, es geht, und keiner kriegt's hin." (Neuss)

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

---

funktioniert tadellos
allerdings ist in deinem angehägntem lisp ein fehler

die zeile
(repeat (sslength ss))

hat ein ) zuviel

richtig :
(repeat (sslength ss)

allerdings dürfte das lisp mit diesem fehler keine einzige polylinie
schraffieren. da es wegen klammerfehler nicht ladbar ist

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

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

---

ok das war wirklich der fehler
als datei ist sie soweit ladbar (habe sie nur in der VLIDE getestet, und da kann man klammerfehler nichtladen)  es kommt zwar ein fehler , aber der befehl c:sw_hb001 wurde definiert

(repeat (sslength ss))

durch die klammer zuviel, hat er zwar den auswahlsatz ss durchlaufen, aber nichts damit gemacht.

danach war der befehl hatch nicht mehr in der schleife, und er hat nur das erste element des auswahlsatzes schraffiert.

------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP

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

---

hey super - Danke Euch beiden!!

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

---

Hi

Ist es möglich dieses Lisp auf Inselerkennung bei der Schraffur zu erweitern? Wäre sehr hilfreich beim schraffieren von Grundrissen.

cheers
Christoph

------------------
"If you don't fail now or then, it's a sign you're playing it safe (Woody Allen)"

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