| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Solid Schraffur erstellen (2218 mal gelesen)
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Jan. 2005 13:11 <-- editieren / zitieren --> Unities abgeben:
Hallo Leute, brauche zum Freitag mal wieder Eure Inspiration. Ich habe eine DXF Datei mit einem Stadtwappen bekommen. Auf den ersten Blick sieht es gut aus. Wenn man aber hineinzoomt, dann besteht die vermeintliche Solidschraffur aus zig-tausend horizontal verlaufenden einzelnen Linien, die natürlich keine Umgrenzung haben. Wie kann ich möglichst schnell und einfach diese Umgrenzungen herstellen, um dort rein eine Solidschraffur zu legen. Zur Erläuterung zwei kleine Bildchen. Grüße Lutz ------------------ May the force be with you! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ford.prefect Mitglied Architekt
Beiträge: 365 Registriert: 25.08.2004
|
erstellt am: 21. Jan. 2005 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Jan. 2005 13:16 <-- editieren / zitieren --> Unities abgeben:
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 21. Jan. 2005 13:26 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 21. Jan. 2005 13:29 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Jan. 2005 13:31 <-- editieren / zitieren --> Unities abgeben:
@AsSchu: Nein, nichts hat eine Umgrenzung. Ich könnte mit viiiel Zeitaufwand eine Polylinie von Endpunkt zu Endpunkt ziehen. Der Lotrechte Abstand der Linien beträgt genau 0.01 Einheiten. @cadffm: Stöhn. Das sind über 4000 Linien! Grüße Lutz ------------------ May the force be with you! [Diese Nachricht wurde von Dig15 am 21. Jan. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Angelika Hädrich Ehrenmitglied V.I.P. h.c. Application Engineer
Beiträge: 5123 Registriert: 12.07.2000 Der erreicht am meisten, der immer auch anders kann, als er vorhatte.
|
erstellt am: 21. Jan. 2005 13:32 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Jan. 2005 13:35 <-- editieren / zitieren --> Unities abgeben:
|
AsSchu Ehrenmitglied Konstrukteur
Beiträge: 1632 Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 21. Jan. 2005 13:36 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 21. Jan. 2005 13:37 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 21. Jan. 2005 13:41 <-- editieren / zitieren --> Unities abgeben:
|
ford.prefect Mitglied Architekt
Beiträge: 365 Registriert: 25.08.2004
|
erstellt am: 21. Jan. 2005 14:53 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 18. Apr. 2013 08:39 <-- editieren / zitieren --> Unities abgeben:
Ich krame meinen alten Beitrag wieder raus. Gibt es nach 8 Jahren mittlerweile einen Ansatz für das Problem?Ich habe hier wieder eine DWG liegen, in der die "Solidschraffur" aus tausenden einzelner Linien besteht. Der Abstand der Linien beträgt 0.4 bzw. 1.0 ZE. Einen Praktikanten zum nachzeichnen habe ich auch gerade nicht zur Hand. ------------------ Viele Grüße Lutz Glück Auf! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
kasbe Mitglied Aufmaßdienstleister
Beiträge: 233 Registriert: 01.04.2006 Precision M7550 Nvidia Quattro RTX 3000 Autocad 2023
|
erstellt am: 18. Apr. 2013 09:34 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
Was macht ACAD denn darau, wenn du mit Polyedit draufgehst (mehrere Objekte wählen, alle auswählen, dann verbinden Fuzzy auf den Linienabstand einstellen. Dann müßte er doch eigentlich alle Öffnungen schließen. Dann Rechteck drumrum und mit Umgrenzung reinklicken. dann sollte Autocad doch eine Polylinie um dein Objekt legen, die du dann als Umgrenzung für die Schraffur verwenden kannst.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 18. Apr. 2013 10:10 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13508 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Apr. 2013 11:53 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
Was allgemeingültiges für sowas ist etwas kompliziert , aber im Folgenden vielleicht ein Ansatz : (if(and(setq AWS(ssget '((0 . "LINE")))) (setq L (vl-remove-if 'null (mapcar '(lambda(X / D P0 P1) (if(and(=(type (cadr X))'ENAME) (setq D(entget (cadr X))) (setq P0(cdr(assoc 10 D))) (setq P1(cdr(assoc 11 D))) ) (if (<(car P0)(car P1)) (list P0 P1) (list P1 P0) ) ) ) (ssnamex AWS) ) ) ) ) (progn (setq L1(mapcar '(lambda(X) (list(cons 10 (list (car X)(cadr X)))'(40 . 0.0) '(41 . 0.0) '(42 . 0.0)'(91 . 0))) (mapcar 'car L) ) ) (setq L1(apply 'append L1)) (setq L2(mapcar 'cadr L)) (setq L2(mapcar '(lambda(X) (list(cons 10 (list (car X)(cadr X)))'(40 . 0.0) '(41 . 0.0) '(42 . 0.0)'(91 . 0))) (setq L2(mapcar 'cadr L)) ) ) (setq L2(apply 'append (reverse L2))) (entmake (append '((0 . "LWPOLYLINE")(100 . "AcDbEntity") (100 . "AcDbPolyline")) (list (cons 90 (+(length L1)(length L2)))) '((70 . 1) (43 . 0.0) (38 . 0.0) (39 . 0.0)) L1 L2 '((210 0.0 0.0 1.0)) ) ) ) ) ------------------ Also ich finde Unities gut ... und andere sicher auch --------------------------------------- - 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 |
Dig15 Ehrenmitglied V.I.P. h.c. Dipl.-Ing. für Markscheidewesen und Geodäsie
Beiträge: 5833 Registriert: 27.02.2003 DWG TrueView 2014
|
erstellt am: 18. Apr. 2013 12:02 <-- editieren / zitieren --> Unities abgeben:
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 18. Apr. 2013 20:30 <-- editieren / zitieren --> Unities abgeben: Nur für Dig15
|