Perfekt gerüstet für Ihre Ziele
Quelltext als LSP-Datei abspeichern und mit "schraffa" starten.
Erzeugt zwar neue Umgrenzungen aber die bestehenden Schraffuren werden in einem Rutsch wieder assoziativ-
(defun c:schraffa (/ ss i ent)
(setvar "CMDECHO" 0)
(setq ss (ssget "X" '((0 . "HATCH")))
i 0
)
(while (setq ent (ssname ss i))
(command-s "-schraffedit" ent "u" "p" "j")
(setq i (1+ i))
)
(SETVAR "CMDECHO" 1)
(princ)
)
------------------
Schöne Grüsse
Wilfried Nelkel
CAD-Technik Nelkel GmbH
http://www.cad-nelkel.de
http://www.schulungshandbuch.de