Hi,
das mit der Anzeigenreihenfolge stösst bei Blöcken und Xrefs an die Grenzen, um auch dann noch die Schraffuren unten zu haben machen wir folgendes:
Installieren der untenstehenden kol.lsp
Schraffurlayer und den Layer der umgrenzenden Polylinie (Wichtig, sonst wird die Schraffur unassoziativ) frieren, alle anderen Layer an, tauen, entsperren (am besten davor den Layerstand speichern),
dann alle Elemente mit Kreuzen einfangen,
KOL eingeben, alle bestätigen, dann dauert es einen Moment (je nach Rechner und Anzahl der Elemente)
und dann kannst Du den Schraffurlayer und den der Polylinie wieder einschalten, sie liegen jetzt dauerhaft unten.
Was ist passiert: mittels KOL hast Du die Elemente auf sich selbst kopiert und das unterste gelöscht, damit ist es so, als hättest Du die Elemente nach der Schraffur gezeichnet. (Vorsicht: Die Object-ID verändert sich dadurch natürlich, das ist wichtig, wenn über VBA oder Lisp mit Hilfe der Object-ID irgendetwas aus oder/und eingelesen wird)
Hier KOL defun c:kol ()
(AUSWAHL)
(command "._copy" ausw "" "0,0,0" "0,0,0")
(command "._erase" ausw "")
(princ)
)
(defun AUSWAHL ()
(princ "\nBitte die zu bearbeitenden Elemente auswählen" )
(setvar "cmdecho" 0)
(setq ausw(ssget))
)
Schönen Gruß
Charlie
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP