Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Schraffuren explodieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Schraffuren explodieren (1708 mal gelesen)
Geos
Mitglied
Vermessungstechniker i.R.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hi

Hab ein ähnliches "Problem" wie carmelli76 hier http://ww3.cad.de/foren/ubb/Forum54/HTML/020697.shtml
allerdings sind bei mir nur 20 (Einzel-)Schraffuren "zusammengefasst".

Trotzdem würde mich interessieren, wo man die Verbindung durchtrennen kann.
Es gibt zwar viele GCs, die vielfach vorhanden sind, aber welcher Faden alle zusammenhält hab ich noch nicht herausgefunden
und aus der DXF-Referenz bin ich nicht recht schlau geworden ...

------------------
Schöne Grüße
Ernst

www.geopaint.at

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Dorfy
Mitglied
Double-Dipl.-Ing. Bleistiftanspitzer


Sehen Sie sich das Profil von Dorfy an!   Senden Sie eine Private Message an Dorfy  Schreiben Sie einen Gästebucheintrag für Dorfy

Beiträge: 900
Registriert: 21.07.2006

AutoCad2007, ProE, HiCad

erstellt am: 24. Mrz. 2009 09:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

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




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 24. Mrz. 2009 09:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

_-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.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 24. Mrz. 2009 09:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

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.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 24. Mrz. 2009 10:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

Hallo Geos,
vielleicht solltest Du Dir mit hatchfl.vlx von Holger Brischke die Umgrenzungen als Polylinien zeichnen lassen, und diese dann über LISP weiter auswerten.

------------------
viele Grüße

Jörn
http://www.bosse-engineering.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Geos
Mitglied
Vermessungstechniker i.R.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 24. Mrz. 2009 11:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

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.




Sehen Sie sich das Profil von CADchup an!   Senden Sie eine Private Message an CADchup  Schreiben Sie einen Gästebucheintrag für CADchup

Beiträge: 3329
Registriert: 14.03.2001

Sicher ist, dass nichts sicher ist. Selbst das nicht.
Joachim Ringelnatz

erstellt am: 24. Mrz. 2009 11:34    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von Dorfy an!   Senden Sie eine Private Message an Dorfy  Schreiben Sie einen Gästebucheintrag für Dorfy

Beiträge: 900
Registriert: 21.07.2006

AutoCad2007, ProE, HiCad

erstellt am: 24. Mrz. 2009 12:27    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Geos 10 Unities + Antwort hilfreich

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.


Sehen Sie sich das Profil von Geos an!   Senden Sie eine Private Message an Geos  Schreiben Sie einen Gästebucheintrag für Geos

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz