| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Schraffuren explodieren (1711 mal gelesen)
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 24. Mrz. 2009 08:38 <-- editieren / zitieren --> Unities abgeben:
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 24. Mrz. 2009 09:00 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
Zitat: Original erstellt von Geos:
Hab ein ähnliches "Problem" ... allerdings sind bei mir nur 20 (Einzel-)Schraffuren "zusammengefasst".Trotzdem würde mich interessieren, wo man die Verbindung durchtrennen kann.
Versteh ich nicht ganz, Hast du eine Schraffur bestehend aus 20 seperaten "Inseln"? Was für eine Verbindung? was willst Du da machen? mfg heiko Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 24. Mrz. 2009 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
_-hatchedit Option CH für separate Schraffuren zumindest in der 2008'er Version
------------------ - 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 |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 24. Mrz. 2009 09:06 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
Hi, @Dorfy So verstehe ich's auch: Ein Schraffurobjekt über mehrere Inseln. Ab 2006 kann man das über den HATCHEDIT-Befehl zerlegen, in LISP geht's über GC 93. In der Entwicklerhilfe gibt's dazu ein Kapitel "Umgrenzungspfaddaten". Gruß CADchup
------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 24. Mrz. 2009 09:40 <-- editieren / zitieren --> Unities abgeben:
Ja genau, eine Schraffur mit x Inseln - und davon soll eine verschoben werden. Will sie nur in einzelne "eigenständige" Schraffuren zerlegen. _-hatchedit hat in 2005 noch keine Option CH, deshalb interessiert mich die Lisp-Lösung. Zitat: in LISP geht's über GC 93. In der Entwicklerhilfe gibt's dazu ein Kapitel "Umgrenzungspfaddaten"
Genau daraus bin ich aber nicht schlau geworden: Bei einer Einzelschraffur steht da die Anzahl der Kontrollpunkte - bei meiner Schraffur (93 . 1) und das eben vielfach. Wäre da die jeweilige Anzahl der Kontrollpunkte zu entmoden? Dazu müßte ich erstmal die Eliste der Einzelschraffuren finden ... oder bin ich da auf dem Holzweg? ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Mrz. 2009 10:08 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
|
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 24. Mrz. 2009 10:51 <-- editieren / zitieren --> Unities abgeben:
Servus Jörn Ja, wäre eine Möglichkeit, die Polygone neu zu schraffieren ... Trotzdem würde mich der Aufbau solcher Schraffuren interessieren - stelle mir vor, dass irgendwie die Einzel-Schraffuren abgelegt sind und drumherum etwas, was sie alle zusammenhält ?... Und das müsste man doch auch aufschneiden können ...? ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung
Beiträge: 1763 Registriert: 11.10.2004 Window 11 ACAD 2021 CIVIL 2021 BricsCAD ab V14 11th Gen Intel(R) Core(TM) i7-1165G7 @ 2.80GHz 2.80 GHz 32.0GB RAM NVIDIA GeForce MX450<P>
|
erstellt am: 24. Mrz. 2009 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
Hallo Ernst, meiner Meinung nach sind die Umgrenzungspfade alle ganz einfach hintereinander in der Entitiy-Liste des Schraffurobjektes abgelegt. Ich habe mal eine Beispielschraffur, die 4 Umgrenzungspfade (aus Kreisen) beigepackt: Code:
( (-1 . <Objektname: 7efec070>) (0 . "HATCH") (330 . <Objektname: 7efe6fa8>) (5 . "86") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "SOLID") (70 . 1) (71 . 1) (91 . 4);;;Anzahl der Umgrenzungspfade??? ;;;Umgrenzungspfad 1 (1. Kreis) (92 . 1) (93 . 1);;;Anzahl der Kanten (72 . 2);;;Kantentyp (10 213.282 86.887 0.0);;;Mittelpunkt (40 . 28.3486);;;Radius (50 . 0.0);;;WinkelBeginn (51 . 6.28319);;;WinkelEnde (73 . 1);;;Geschlossen (97 . 1);;;Anzahl der Quellgrenzobjekte (330 . <Objektname: 7efec050>) ;;;Umgrenzungspfad 2 (2. Kreis) (92 . 1) (93 . 1) (72 . 2) (10 324.424 80.2946 0.0) (40 . 28.3486) (50 . 0.0) (51 . 6.28319) (73 . 1) (97 . 1) (330 . <Objektname: 7efec048>) ;;;Umgrenzungspfad 3 (3. Kreis) (92 . 1) (93 . 1) (72 . 2) (10 347.261 193.886 0.0) (40 . 28.3486) (50 . 0.0) (51 . 6.28319) (73 . 1) (97 . 1) (330 . <Objektname: 7efec040>) ;;;Umgrenzungspfad 4 (4. Kreis) (92 . 1) (93 . 1) (72 . 2) (10 218.865 201.999 0.0) (40 . 28.3486) (50 . 0.0) (51 . 6.28319) (73 . 1) (97 . 1) (330 . <Objektname: 7efec038>) (75 . 0) (76 . 1) (98 . 1) (10 0.0 0.0 0.0) (450 . 0) (451 . 0) (460 . 0.0) (461 . 0.0) (452 . 1) (462 . 1.0) (453 . 2) (463 . 0.0) (63 . 5) (421 . 255) (463 . 1.0) (63 . 7) (421 . 16777215) (470 . "LINEAR"))
------------------ viele Grüße Jörn http://www.bosse-engineering.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 24. Mrz. 2009 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
Hi, ja, die 91 ist die Anzahl der Umgrenzungspfade. Ein Beispiel für das Handling der einzelnen Umgrenzungen findet sich in hatchb.lsp Dort heißt es
Code:
(setq loops1 (cdr (assoc 91 ed1))) ... (repeat loops1 (setq ed1 (member (assoc 92 ed1) ed1)) (setq bptf (cdr (car ed1))) ; boundary path type flag (setq ic (cdr (assoc 73 ed1))) ; is closed (setq noe (cdr (assoc 93 ed1))) ; number of edges (setq bot (cdr (assoc 92 ed1))) ; boundary type (setq hst (cdr (assoc 75 ed1))) ; hatch style (setq ed1 (member (assoc 72 ed1) ed1)) (setq bul (cdr (car ed1))) ; bulge (setq plist nil) (setq blist nil) (cond ((> (boole 1 bptf 2) 0) ; polyline (repeat noe (setq ed1 (member (assoc 10 (cdr ed1)) ed1)) (setq plist (append plist (list (cdr (assoc 10 ed1))))) (setq blist (append blist (if (> bul 0) (list (cdr (assoc 42 ed1))) nil ) ) )......
Gruß CADchup ------------------ CADmaro.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 24. Mrz. 2009 12:27 <-- editieren / zitieren --> Unities abgeben: Nur für Geos
Hallo, wenn Du nur eine Insel verschieben möchtest, dann mache deine Bemaßung assoziativ (sofern sie das noch nicht ist) und arbeite mit verschieben oder strecken… mfg heiko Edit: bin gerade über vla-getloopat gestolpert... sieht vielversprechend aus (siehe Hilfe)
[Diese Nachricht wurde von Dorfy am 24. Mrz. 2009 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Geos Mitglied Vermessungstechniker i.R.
Beiträge: 1017 Registriert: 21.09.2001 ACAD Map 2010, Win 7 Pro eigene Lisp's<P>HW: Core i7 860, 2.8 GHz 3.3 GB, NVIDIA GeForce GTS 250
|
erstellt am: 25. Mrz. 2009 07:20 <-- editieren / zitieren --> Unities abgeben:
Danke Euch - werd das alles mal durchackern, und je nach Aufwand entscheiden. Entweder wird ein Prog. draus oder ich geh zu einem Kollegen mit neuerem Acad (falls mir mal die Schraffur mit 200, statt 20, "Inseln" unterkommt ) ------------------ Schöne Grüße Ernst www.geopaint.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |