| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: 45° Linien filtern u. löschen (3534 mal gelesen)
|
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 09. Sep. 2002 10:48 <-- editieren / zitieren --> Unities abgeben:
Hallo CAD-Spezies, ich habe in meiner Zeichnung aufgelöste Schraffur, die auf dem selben Layer liegen, wie die Umrandungslinien, die ich aber weiterhin benötige. Wie kann ich diese aufgelöste Schraffur markieren und löschen. Danke im Voraus Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Rausch Mitglied
Beiträge: 1199 Registriert: 26.03.2001 Intel P4 2,6 GHz 512 MB RAM NVIDIA GeForce FX 5200 . WinXP prof. Autodesk Map 2004 SP 1 WS-Landcad 2004 . Tetris
|
erstellt am: 09. Sep. 2002 11:25 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hallo Beate, da sollte doch was über die Schnellauswahl machbar sein: z.B. Filtern nach Linien mit einem Winkel von 45° (in der Hoffnung, dass keine Umgrenzungslinie auch genau 45° hat). Evt gibt es auch andere unterschiedliche Eigenschaften. Sollten aber Schraffur- und Umgrenzungslinien wirklich exakt dieselben Eigenschaften haben: Viel Spaß! ------------------ gruß thomas Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
Beiträge: 4185 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 09. Sep. 2002 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für BBecker
Hallo Beate, ich habe mal schnell mit LISP was gebaut. Aber wie Thomas schon sagt, Vorsicht, wenn die Umgrenzungslinien ebenfalls im 45°-Winkel gezeichnet sind. ;;;hdel - HatchLinien löschen ;;; ;;;Löscht Linien, die in einem (anzugebenden) Winkel in der Zeichnung vorhanden sind. ;;;Es werden nur die Linien gewählt, die auf dem aktuellen Layer gezeichnet sind. ;;;Befehl: hdel ;;; ;;;Holger Brischke ;;;Geisberg 84 ;;;66132 Saarbrücken ;;;brischke@planet-interkom.de ;;; (defun c:hdel (/ grd ALISTE) (command "_.undo" "_G") (initget 4) (setq grd (getreal "\nWinkel der Linien (,die gelöscht werden sollen): ") grd (/ (* pi grd)180) ALISTE (ssget (List '(-4 . "<AND") '(0 . "LINE") (cons 8 (getvar "CLAYER")) '(-4 . "AND>") ) ) ) (if ALISTE (mapcar '(lambda (el) (delgradline (entget el) grd) ) (bau_elemli ALISTE) ) ) (command "_.undo" "_E") ) ;;; ;;; (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elemli(cons (ssname asatz n) elemli) n (1+ n)) ) elemli ) ;;; ;;; (defun delgradline (lin grad / ) (if (or (equal (angle (cdr (assoc 10 lin)) (cdr (assoc 11 lin))) grad 0.000005) (equal (angle (cdr (assoc 11 lin)) (cdr (assoc 10 lin))) grad 0.000005) ) (entdel (cdr (assoc -1 lin))) ) ) ;;; Bei Fragen ...
Grüße Holger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
BBecker Mitglied
Beiträge: 133 Registriert: 05.06.2002 Windows 7, Acad 2012 MEP
|
erstellt am: 09. Sep. 2002 15:06 <-- editieren / zitieren --> Unities abgeben:
Hallo Thomas, vielen Dank für Deine Anregung. Die Schnellauswahl hatte ich total vergessen. Da mein Rechner nicht der schnellste ist und die Zeichnung sehr groß. Dauert sehr lange bis ich mit der Schnellauswahl etwas machen kann. Wahrscheinlich liegt es daran, daß die Schraffur aufgelöst ist. Ich werde es nocheinmal versuchen und nur bestimmte Bereiche auswählen, dann wird es wohl schneller gehen. Gruß Beate Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |