Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Basispunkt einer Schraffur setzen

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:  Basispunkt einer Schraffur setzen (958 mal gelesen)
Vino
Mitglied



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

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V20-22

erstellt am: 22. Mai. 2019 13:49    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

Hallo,

Prinzipielles Problem:
Wir zeichnen bei uns im Haus Tiefbau-Pläne grundsätzlich im amtlichen Koordinatensystem, also mit Koordinaten im Millionen-Bereich.
Schon immer gab es damit sowohl unter AutoCAD als auch BricsCAD Darstellungsprobleme bei "komplexen" Schraffuren (z.B. Gravel)
Durch den großen Abstand zum Nullpunkt entstehen "Rechenungenauigkeiten" und die Schraffuren werden nicht sauber gezeichnet.

Konkretes Problem:
Dafür habe ich schon länger folgende Lösung als kleines Lisp erstellt:

Code:
(defun c:schrbasis (/ counter olist obj vobj minExt maxExt mx my elist)
  (setq counter 0)
  (if (setq olist (ssget '((0 . "HATCH"))))
    (repeat (sslength olist)
      (setq obj (ssname olist counter))
      (setq vobj (vlax-ename->vla-object obj))
      (vla-GetBoundingBox vobj 'minExt 'maxExt)
      (setq minExt (vlax-safearray->list minExt))
      (setq maxExt (vlax-safearray->list maxExt))
      (setq mx (/ (+ (car minExt) (car maxExt)) 2.0))
      (setq my (/ (+ (cadr minExt) (cadr maxExt)) 2.0))
      (setq elist (subst (cons 43 mx) (assoc 43 (entget obj)) (entget obj)))
      (entmod (subst (cons 44 my) (assoc 44 elist) elist))
      (setq counter (+ counter 1))
    )
  )
)

Vermutlich hab ich das aus irgendwelchen Codeschnipseln aus dem Netz zusammengebastelt...
Der Befehl soll(te) den Basispunkt der Schraffur auf den Mittelpunkt der Boundingbox um die Schraffur (also möglichst nah an die Schraffurfläche) setzen.

Wenn ich ehrlich bin, kann ich aktuell gar nicht nachvollziehen, warum das jemals funktioniert hat.
Die GK 43 und 44 sind ja anscheinend gar nicht für den Basispunkt zuständig und es gibt sehr viele GK 43 und 44 im Objekt.
Trotzdem hat das bis BricsCAD 18 wunderbar geklappt und tut es auch heute noch.

Unter BricsCAD 19 funktioniert es aber jetzt nicht mehr.
Der Basispunkt wird zwar geändert und wird in den Eigenschaften auch korrekt angezeigt. Die Darstellung der Schraffur bleibt aber falsch.
Setzt man manuell den Basispunkt auf die gleiche Stelle, wird auch die Darstellung sauber umgestellt.

Gibts da noch irgendwas, das ich übersehen habe? Muss ich noch andere GKs umstellen? Evtl. ALLE GK 43 und 44? Aber dann auf welchen Wert?
Hat jemand einen Vorschlag?

Gruß
Stefan

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

spider_dd
Mitglied



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

Beiträge: 1111
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 22. Mai. 2019 15:22    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 Vino 10 Unities + Antwort hilfreich

Hallo Stefan,

ich habe mal versucht das nachzustellen, also eine Schraffur erzeugt und mit (entget (entlast)) die Daten ausgegeben. Dann den Basispunkt versetzt und wieder die Daten ausgegeben. Da waren eindeutig GC43 und 44 der Basispunkt. Es gab davon auch nicht mehrere.
Kannst Du mal ein Beispiel einer Schraffur mit mehreren GC43, 44 hier reinstellen?
Und prüfe doch mal bei Dir, was sich noch an Daten ändert, wenn Du den Basispunkt manuell setzt im Gegensatz zur Lisp-Lösung (wenn es denn nun nur BricsCAD 19 betrifft).

Gruß
Thomas

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

runkelruebe
Ehrenmitglied V.I.P. h.c.
Straßen- / Tiefbau



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

Beiträge: 8075
Registriert: 09.03.2006

sw:
Win7-x64
Office 365 ProPlus
C3D (& LT )
ET; DACH; Extensions
-------------------
hw:
FX3800
i5 CPU 670
8GB RAM

erstellt am: 22. Mai. 2019 15:24    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 Vino 10 Unities + Antwort hilfreich

Moin,
ich kenne mich ja bekanntlich im Klammerwald nicht aus, daher eine Frage, die ggfs. eine alternative Lösung beinhaltet:

>> Der Befehl soll(te) den Basispunkt der Schraffur auf den Mittelpunkt der Boundingbox um die Schraffur (also möglichst nah an die Schraffurfläche) setzen.

Warum verwendest Du denn dazu nicht einfach HPORIGIN und HPORIGINMODE?
In Deinem Fall wäre wohl = 5 zu setzen.


------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

Vino
Mitglied



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

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V20-22

erstellt am: 22. Mai. 2019 15:37    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

Hallo,

danke für die Antwort.
HPORIGIN funktioniert nur mit NEUEN Schraffuren und nicht mit bereits vorhandenen...
HPORIGINMODE gibt es unter BricsCAD scheinbar nicht. Es geht aber auch gar nicht darum, den Basispunkt exakt zu setzen... Nur halt in die Nähe der Schraffur selbst.

Als Notlösung wird man sich in Zukunft angewöhnen müssen, vorm Schraffieren HPORIGIN umzustellen. Die "Korrekturvariante" hat halt bis BCAD 18 gut funktioniert.

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

runkelruebe
Ehrenmitglied V.I.P. h.c.
Straßen- / Tiefbau



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

Beiträge: 8075
Registriert: 09.03.2006

sw:
Win7-x64
Office 365 ProPlus
C3D (& LT )
ET; DACH; Extensions
-------------------
hw:
FX3800
i5 CPU 670
8GB RAM

erstellt am: 22. Mai. 2019 15:49    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 Vino 10 Unities + Antwort hilfreich

Und nachträglich ändern geht in BCAD auch nicht?
ACAD kann's sogar mit Mehrfachauswahl...

Auszug aus ACAD:

Code:
Befehl: _-HATCHEDIT 2 gefunden

Schraffuroption eingeben [Loslösen/Stil/Eigenschaften/Zeichnungsreihenfolge/separate sChraffuren/uRsprung/Beschriftung/schraFfurfarbe/LAyer/TRansparenz] <Eigenschaften>: _O
[aktuellen ursprung Verwenden/neuen ursprung Einstellen/umgrenzungen als vOrgabe] <Aktuellen Ursprung verwenden>: _D
[unten Links/unten Rechts/oben rEchts/oben lInks/Zentrum] <unten Links>: _C
Als vorgegebenen Ursprung speichern? [Ja/Nein] <N>:



Wär schon schade (für Dich).
Will Dich nicht ärgern mit der AW, sondern Nachleser, die uns über eine Suche finden, erfreuen. Die meisten hier im arbeiten ja immer noch mit ACAD.
bin aber auch wieder raus, klammert noch schön 

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

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

Vino
Mitglied



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

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V20-22

erstellt am: 22. Mai. 2019 16: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

Hallo Thomas,

sorry, hatte deine Antwort zuerst überlesen.

Also hier die Vergleiche:

1) BCAD 18, Neu erstellte Schraffur (Darstellung falsch):

Code:
((-1 . <Entity name: 52987470>) (0 . "HATCH") (5 . "ED") (102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 52987870>) (102 . "}") (330 . <Entity name: 2d9b3310>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (370 . -1) (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "GRAVEL") (70 . 0) (71 . 0) (91 . 1) (92 . 3) (72 . 0) (73 . 1) (93 . 4) (10 4000000.0 5000000.0 0.0) (10 4000005.0 5000000.0 0.0) (10 4000005.0 5000005.0 0.0) (10 4000000.0 5000005.0 0.0) (97 . 0) (75 . 0) (76 . 1) (52 . 0.0) (41 . 0.1) (77 . 0) (78 . 42) (53 . 3.97957409669133) (43 . 1.8288) (44 . 2.54) (45 . -20.320017265896) (46 . -22.8600280895126) (79 . 2) (49 . 0.341721) (49 . -33.8305) (53 . 3.22833028142616) (43 . 1.6002) (44 . 2.286) (45 . 30.4800493061791) (46 . 2.53998207538747) (79 . 2) (49 . 0.586405) (49 . -58.054) (53 . 2.31274277313469) (43 . 1.016) (44 . 2.2352) (45 . 25.3999815183317) (46 . -27.9400272924604) (79 . 2) (49 . 0.413482) (49 . -40.9347) (53 . 4.66480606898757) (43 . 0.0254) (44 . 1.6002) (45 . 2.53998897082817) (46 . 50.7999836533664) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 5.11091222579732) (43 . 0.0) (44 . 1.0668) (45 . -12.7000360555019) (46 . 30.4800173300511) (79 . 2) (49 . 0.523634) (49 . -51.8398) (53 . 6.23560239578247) (43 . 0.2032) (44 . 0.5842) (45 . -50.7999836533664) (46 . 2.53998897082818) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 0.657887898905247) (43 . 0.7366) (44 . 0.5588) (45 . -33.0200208612399) (46 . -25.3999773569849) (79 . 2) (49 . 0.706194) (49 . -69.9131) (53 . 1.26109288701626) (43 . 1.2954) (44 . 0.9906) (45 . 17.7800355654672) (46 . 55.8800162060364) (79 . 2) (49 . 0.66672) (49 . -66.0053) (53 . 2.11934632937971) (43 . 1.4986) (44 . 1.6256) (45 . -20.3200052352645) (46 . 33.0199611599727) (79 . 2) (49 . 0.535813) (49 . -53.0455) (53 . 3.05845214934179) (43 . 1.2192) (44 . 2.0828) (45 . 27.9399780530545) (46 . -2.53997616272116) (79 . 2) (49 . 0.611713) (49 . -29.9739) (53 . 3.88156687787484) (43 . 0.6096) (44 . 2.1336) (45 . -30.4800009172397) (46 . -27.939963650637) (79 . 2) (49 . 0.791078) (49 . -78.3168) (53 . 2.42276309319266) (43 . 2.54) (44 . 1.5748) (45 . -17.7799886742247) (46 . 15.239976557124) (79 . 2) (49 . 0.270005) (49 . -26.7306) (53 . 2.99270210576066) (43 . 2.3368) (44 . 1.7526) (45 . 33.0199495955914) (46 . -5.0800128000457) (79 . 2) (49 . 0.513682) (49 . -50.8546) (53 . 3.92699081698724) (43 . 1.8288) (44 . 1.8288) (45 . 0.0) (46 . -2.5399982687002) (79 . 2) (49 . 0.359209) (49 . -3.23289) (53 . 3.54648460544295) (43 . 1.651) (44 . 2.1336) (45 . 12.7000428255908) (46 . 5.08002227430627) (79 . 2) (49 . 0.193441) (49 . -19.1506) (53 . 5.09289519192898) (43 . 1.4732) (44 . 2.0574) (45 . -2.54000178189451) (46 . 7.62000490873186) (79 . 2) (49 . 0.273566) (49 . -13.4048) (53 . 0.54042025892902) (43 . 1.5748) (44 . 1.8034) (45 . 7.61999195480823) (46 . 5.08000395866055) (79 . 2) (49 . 0.44432) (49 . -14.3663) (53 . 2.81984295131389) (43 . 1.9558) (44 . 2.032) (45 . 5.08000231818098) (46 . -2.53999622246508) (79 . 2) (49 . 0.321287) (49 . -7.7109) (53 . 0.286050737755611) (43 . 0.0) (44 . 2.0574) (45 . 25.4000140139694) (46 . 7.6199841499678) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 1.22777280626644) (43 . 0.4318) (44 . 2.1844) (45 . -10.1599716886765) (46 . -27.939960488545) (79 . 2) (49 . 0.377599) (49 . -37.3822) (53 . 5.11728093223785) (43 . 1.9558) (44 . 2.54) (45 . -5.08002227430626) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 5.99713456942398) (43 . 2.1082) (44 . 2.1844) (45 . -25.4000140139694) (46 . 7.61998414996781) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 5.92441542613963) (43 . 0.0) (44 . 0.4826) (45 . -12.7000157642559) (46 . 5.07999383605014) (79 . 2) (49 . 0.434035) (49 . -21.2677) (53 . 5.14479604789554) (43 . 0.4064) (44 . 0.3302) (45 . -12.6999704036268) (46 . 27.9399870261567) (79 . 2) (49 . 0.363672) (49 . -36.0036) (53 . 1.16590437494174) (43 . 1.9812) (44 . 0.0) (45 . 5.08002227430627) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 0.302884438391096) (43 . 2.1336) (44 . 0.3556) (45 . -33.02000178186) (46 . -10.1599846756056) (79 . 2) (49 . 0.425783) (49 . -42.1524) (53 . 1.21202644575494) (43 . 0.7366) (44 . 0.0) (45 . -5.07999383605015) (46 . -12.7000157642559) (79 . 2) (49 . 0.217018) (49 . -21.4848) (53 . 1.7681913198662) (43 . 1.8288) (44 . 0.0) (45 . -2.53998746288735) (46 . 10.1599674609026) (79 . 2) (49 . 0.129515) (49 . -12.822) (53 . 2.89661474912137) (43 . 1.8034) (44 . 0.127) (45 . 7.62000535469717) (46 . -2.53999560412364) (79 . 2) (49 . 0.523634) (49 . -9.94905) (53 . 3.24646948834213) (43 . 1.2954) (44 . 0.254) (45 . 25.399962544428) (46 . 2.53999406854785) (79 . 2) (49 . 0.485267) (49 . -48.0414) (53 . 5.30039215071083) (43 . 1.5748) (44 . 1.5748) (45 . -2.54000087130723) (46 . 5.07999509923184) (79 . 2) (49 . 0.366324) (49 . -8.79178) (53 . 6.16375591712412) (43 . 1.778) (44 . 1.27) (45 . 43.1800178566434) (46 . -5.08002275165488) (79 . 2) (49 . 0.639557) (49 . -63.316) (53 . 1.06369789394495) (43 . 2.413) (44 . 1.1938) (45 . -10.1599763658291) (46 . -17.7799576108341) (79 . 2) (49 . 0.261508) (49 . -25.8894) (53 . 1.5707963267949) (43 . 2.54) (44 . 1.4224) (45 . -2.54) (46 . 2.54) (79 . 2) (49 . 0.1524) (49 . -2.3876) (53 . 2.09887012659531) (43 . 1.2446) (44 . 0.3302) (45 . 10.1599784668361) (46 . -17.7799910324776) (79 . 2) (49 . 0.352867) (49 . -34.9339) (53 . 0.837981443101533) (43 . 1.0668) (44 . 0.635) (45 . 20.320017265896) (46 . 22.8600280895126) (79 . 2) (49 . 0.683443) (49 . -33.4888) (53 . 0.0) (43 . 1.524) (44 . 1.143) (45 . 2.54) (46 . 2.54) (79 . 2) (49 . 0.6604) (49 . -1.8796) (53 . 5.67763983254165) (43 . 2.1844) (44 . 1.143) (45 . -25.3999559909537) (46 . 17.7800016904848) (79 . 2) (49 . 0.40161) (49 . -39.7593) (53 . 4.43408924983719) (43 . 2.5146) (44 . 0.9144) (45 . -2.54000647970147) (46 . -10.1600242032036) (79 . 2) (49 . 0.369829) (49 . -18.1217) (53 . 3.62410637859614) (43 . 2.413) (44 . 0.5588) (45 . -48.2599830490227) (46 . -25.4000159747234) (79 . 2) (49 . 0.602145) (49 . -59.6125) (53 . 3.06176303893282) (43 . 1.8796) (44 . 0.2794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (53 . 3.06176303893282) (43 . 1.8796) (44 . 0.2794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (98 . 0))

2) BCAD 18, nach SCHRBASIS (Darstellung korrekt):

Code:
((-1 . <Entity name: 52987470>) (0 . "HATCH") (5 . "ED") (102 . "{ACAD_XDICTIONARY") (360 . <Entity name: 52987870>) (102 . "}") (330 . <Entity name: 2d9b3310>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (370 . -1) (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "GRAVEL") (70 . 0) (71 . 0) (91 . 1) (92 . 3) (72 . 0) (73 . 1) (93 . 4) (10 4000000.0 5000000.0 0.0) (10 4000005.0 5000000.0 0.0) (10 4000005.0 5000005.0 0.0) (10 4000000.0 5000005.0 0.0) (97 . 0) (75 . 0) (76 . 1) (52 . 0.0) (41 . 0.1) (77 . 0) (78 . 42) (53 . 3.97957409669133) (43 . 4000004.3288) (44 . 5000005.04) (45 . -20.320017265896) (46 . -22.8600280895126) (79 . 2) (49 . 0.341721) (49 . -33.8305) (53 . 3.22833028142616) (43 . 4000004.1002) (44 . 5000004.786) (45 . 30.4800493061791) (46 . 2.53998207538747) (79 . 2) (49 . 0.586405) (49 . -58.054) (53 . 2.31274277313469) (43 . 4000003.516) (44 . 5000004.7352) (45 . 25.3999815183317) (46 . -27.9400272924604) (79 . 2) (49 . 0.413482) (49 . -40.9347) (53 . 4.66480606898757) (43 . 4000002.5254) (44 . 5000004.1002) (45 . 2.53998897082817) (46 . 50.7999836533664) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 5.11091222579732) (43 . 4000002.5) (44 . 5000003.5668) (45 . -12.7000360555019) (46 . 30.4800173300511) (79 . 2) (49 . 0.523634) (49 . -51.8398) (53 . 6.23560239578247) (43 . 4000002.7032) (44 . 5000003.0842) (45 . -50.7999836533664) (46 . 2.53998897082818) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 0.657887898905247) (43 . 4000003.2366) (44 . 5000003.0588) (45 . -33.0200208612399) (46 . -25.3999773569849) (79 . 2) (49 . 0.706194) (49 . -69.9131) (53 . 1.26109288701626) (43 . 4000003.7954) (44 . 5000003.4906) (45 . 17.7800355654672) (46 . 55.8800162060364) (79 . 2) (49 . 0.66672) (49 . -66.0053) (53 . 2.11934632937971) (43 . 4000003.9986) (44 . 5000004.1256) (45 . -20.3200052352645) (46 . 33.0199611599727) (79 . 2) (49 . 0.535813) (49 . -53.0455) (53 . 3.05845214934179) (43 . 4000003.7192) (44 . 5000004.5828) (45 . 27.9399780530545) (46 . -2.53997616272116) (79 . 2) (49 . 0.611713) (49 . -29.9739) (53 . 3.88156687787484) (43 . 4000003.1096) (44 . 5000004.6336) (45 . -30.4800009172397) (46 . -27.939963650637) (79 . 2) (49 . 0.791078) (49 . -78.3168) (53 . 2.42276309319266) (43 . 4000005.04) (44 . 5000004.0748) (45 . -17.7799886742247) (46 . 15.239976557124) (79 . 2) (49 . 0.270005) (49 . -26.7306) (53 . 2.99270210576066) (43 . 4000004.8368) (44 . 5000004.2526) (45 . 33.0199495955914) (46 . -5.0800128000457) (79 . 2) (49 . 0.513682) (49 . -50.8546) (53 . 3.92699081698724) (43 . 4000004.3288) (44 . 5000004.3288) (45 . 0.0) (46 . -2.5399982687002) (79 . 2) (49 . 0.359209) (49 . -3.23289) (53 . 3.54648460544295) (43 . 4000004.151) (44 . 5000004.6336) (45 . 12.7000428255908) (46 . 5.08002227430627) (79 . 2) (49 . 0.193441) (49 . -19.1506) (53 . 5.09289519192898) (43 . 4000003.9732) (44 . 5000004.5574) (45 . -2.54000178189451) (46 . 7.62000490873186) (79 . 2) (49 . 0.273566) (49 . -13.4048) (53 . 0.54042025892902) (43 . 4000004.0748) (44 . 5000004.3034) (45 . 7.61999195480823) (46 . 5.08000395866055) (79 . 2) (49 . 0.44432) (49 . -14.3663) (53 . 2.81984295131389) (43 . 4000004.4558) (44 . 5000004.532) (45 . 5.08000231818098) (46 . -2.53999622246508) (79 . 2) (49 . 0.321287) (49 . -7.7109) (53 . 0.286050737755611) (43 . 4000002.5) (44 . 5000004.5574) (45 . 25.4000140139694) (46 . 7.6199841499678) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 1.22777280626644) (43 . 4000002.9318) (44 . 5000004.6844) (45 . -10.1599716886765) (46 . -27.939960488545) (79 . 2) (49 . 0.377599) (49 . -37.3822) (53 . 5.11728093223785) (43 . 4000004.4558) (44 . 5000005.04) (45 . -5.08002227430626) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 5.99713456942398) (43 . 4000004.6082) (44 . 5000004.6844) (45 . -25.4000140139694) (46 . 7.61998414996781) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 5.92441542613963) (43 . 4000002.5) (44 . 5000002.9826) (45 . -12.7000157642559) (46 . 5.07999383605014) (79 . 2) (49 . 0.434035) (49 . -21.2677) (53 . 5.14479604789554) (43 . 4000002.9064) (44 . 5000002.8302) (45 . -12.6999704036268) (46 . 27.9399870261567) (79 . 2) (49 . 0.363672) (49 . -36.0036) (53 . 1.16590437494174) (43 . 4000004.4812) (44 . 5000002.5) (45 . 5.08002227430627) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 0.302884438391096) (43 . 4000004.6336) (44 . 5000002.8556) (45 . -33.02000178186) (46 . -10.1599846756056) (79 . 2) (49 . 0.425783) (49 . -42.1524) (53 . 1.21202644575494) (43 . 4000003.2366) (44 . 5000002.5) (45 . -5.07999383605015) (46 . -12.7000157642559) (79 . 2) (49 . 0.217018) (49 . -21.4848) (53 . 1.7681913198662) (43 . 4000004.3288) (44 . 5000002.5) (45 . -2.53998746288735) (46 . 10.1599674609026) (79 . 2) (49 . 0.129515) (49 . -12.822) (53 . 2.89661474912137) (43 . 4000004.3034) (44 . 5000002.627) (45 . 7.62000535469717) (46 . -2.53999560412364) (79 . 2) (49 . 0.523634) (49 . -9.94905) (53 . 3.24646948834213) (43 . 4000003.7954) (44 . 5000002.754) (45 . 25.399962544428) (46 . 2.53999406854785) (79 . 2) (49 . 0.485267) (49 . -48.0414) (53 . 5.30039215071083) (43 . 4000004.0748) (44 . 5000004.0748) (45 . -2.54000087130723) (46 . 5.07999509923184) (79 . 2) (49 . 0.366324) (49 . -8.79178) (53 . 6.16375591712412) (43 . 4000004.278) (44 . 5000003.77) (45 . 43.1800178566434) (46 . -5.08002275165488) (79 . 2) (49 . 0.639557) (49 . -63.316) (53 . 1.06369789394495) (43 . 4000004.913) (44 . 5000003.6938) (45 . -10.1599763658291) (46 . -17.7799576108341) (79 . 2) (49 . 0.261508) (49 . -25.8894) (53 . 1.5707963267949) (43 . 4000005.04) (44 . 5000003.9224) (45 . -2.54) (46 . 2.54) (79 . 2) (49 . 0.1524) (49 . -2.3876) (53 . 2.09887012659531) (43 . 4000003.7446) (44 . 5000002.8302) (45 . 10.1599784668361) (46 . -17.7799910324776) (79 . 2) (49 . 0.352867) (49 . -34.9339) (53 . 0.837981443101533) (43 . 4000003.5668) (44 . 5000003.135) (45 . 20.320017265896) (46 . 22.8600280895126) (79 . 2) (49 . 0.683443) (49 . -33.4888) (53 . 0.0) (43 . 4000004.024) (44 . 5000003.643) (45 . 2.54) (46 . 2.54) (79 . 2) (49 . 0.6604) (49 . -1.8796) (53 . 5.67763983254165) (43 . 4000004.6844) (44 . 5000003.643) (45 . -25.3999559909537) (46 . 17.7800016904848) (79 . 2) (49 . 0.40161) (49 . -39.7593) (53 . 4.43408924983719) (43 . 4000005.0146) (44 . 5000003.4144) (45 . -2.54000647970147) (46 . -10.1600242032036) (79 . 2) (49 . 0.369829) (49 . -18.1217) (53 . 3.62410637859614) (43 . 4000004.913) (44 . 5000003.0588) (45 . -48.2599830490227) (46 . -25.4000159747234) (79 . 2) (49 . 0.602145) (49 . -59.6125) (53 . 3.06176303893282) (43 . 4000004.3796) (44 . 5000002.7794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (53 . 3.06176303893282) (43 . 4000004.3796) (44 . 5000002.7794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (98 . 0))

3) BCAD 19, nach SCHRBASIS (Darstellung falsch):

Code:
((-1 . <Entity name: 5186e9f0>) (0 . "HATCH") (5 . "99") (330 . <Entity name: 21d43ba0>) (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (370 . -1) (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "GRAVEL") (70 . 0) (71 . 0) (91 . 1) (92 . 3) (72 . 0) (73 . 1) (93 . 4) (10 4000000.0 5000000.0 0.0) (10 4000005.0 5000000.0 0.0) (10 4000005.0 5000005.0 0.0) (10 4000000.0 5000005.0 0.0) (97 . 0) (75 . 0) (76 . 1) (52 . 0.0) (41 . 0.1) (77 . 0) (78 . 42) (53 . 3.97957409669133) (43 . 4000002.5) (44 . 5000002.5) (45 . -20.320017265896) (46 . -22.8600280895126) (79 . 2) (49 . 0.341721) (49 . -33.8305) (53 . 3.22833028142616) (43 . 1.6002) (44 . 2.286) (45 . 30.4800493061791) (46 . 2.53998207538747) (79 . 2) (49 . 0.586405) (49 . -58.054) (53 . 2.31274277313469) (43 . 1.016) (44 . 2.2352) (45 . 25.3999815183317) (46 . -27.9400272924604) (79 . 2) (49 . 0.413482) (49 . -40.9347) (53 . 4.66480606898757) (43 . 0.0254) (44 . 1.6002) (45 . 2.53998897082817) (46 . 50.7999836533664) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 5.11091222579732) (43 . 0.0) (44 . 1.0668) (45 . -12.7000360555019) (46 . 30.4800173300511) (79 . 2) (49 . 0.523634) (49 . -51.8398) (53 . 6.23560239578247) (43 . 0.2032) (44 . 0.5842) (45 . -50.7999836533664) (46 . 2.53998897082818) (79 . 2) (49 . 0.534005) (49 . -52.8664) (53 . 0.657887898905247) (43 . 0.7366) (44 . 0.5588) (45 . -33.0200208612399) (46 . -25.3999773569849) (79 . 2) (49 . 0.706194) (49 . -69.9131) (53 . 1.26109288701626) (43 . 1.2954) (44 . 0.9906) (45 . 17.7800355654672) (46 . 55.8800162060364) (79 . 2) (49 . 0.66672) (49 . -66.0053) (53 . 2.11934632937971) (43 . 1.4986) (44 . 1.6256) (45 . -20.3200052352645) (46 . 33.0199611599727) (79 . 2) (49 . 0.535813) (49 . -53.0455) (53 . 3.05845214934179) (43 . 1.2192) (44 . 2.0828) (45 . 27.9399780530544) (46 . -2.53997616272116) (79 . 2) (49 . 0.611713) (49 . -29.9739) (53 . 3.88156687787484) (43 . 0.6096) (44 . 2.1336) (45 . -30.4800009172397) (46 . -27.939963650637) (79 . 2) (49 . 0.791078) (49 . -78.3168) (53 . 2.42276309319266) (43 . 2.54) (44 . 1.5748) (45 . -17.7799886742247) (46 . 15.239976557124) (79 . 2) (49 . 0.270005) (49 . -26.7306) (53 . 2.99270210576066) (43 . 2.3368) (44 . 1.7526) (45 . 33.0199495955914) (46 . -5.0800128000457) (79 . 2) (49 . 0.513682) (49 . -50.8546) (53 . 3.92699081698724) (43 . 4000002.5) (44 . 1.8288) (45 . 0.0) (46 . -2.5399982687002) (79 . 2) (49 . 0.359209) (49 . -3.23289) (53 . 3.54648460544295) (43 . 1.651) (44 . 2.1336) (45 . 12.7000428255908) (46 . 5.08002227430627) (79 . 2) (49 . 0.193441) (49 . -19.1506) (53 . 5.09289519192898) (43 . 1.4732) (44 . 2.0574) (45 . -2.54000178189451) (46 . 7.62000490873186) (79 . 2) (49 . 0.273566) (49 . -13.4048) (53 . 0.54042025892902) (43 . 1.5748) (44 . 1.8034) (45 . 7.61999195480823) (46 . 5.08000395866055) (79 . 2) (49 . 0.44432) (49 . -14.3663) (53 . 2.81984295131389) (43 . 1.9558) (44 . 2.032) (45 . 5.08000231818098) (46 . -2.53999622246508) (79 . 2) (49 . 0.321287) (49 . -7.7109) (53 . 0.286050737755611) (43 . 0.0) (44 . 2.0574) (45 . 25.4000140139694) (46 . 7.6199841499678) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 1.22777280626644) (43 . 0.4318) (44 . 2.1844) (45 . -10.1599716886765) (46 . -27.939960488545) (79 . 2) (49 . 0.377599) (49 . -37.3822) (53 . 5.11728093223785) (43 . 1.9558) (44 . 5000002.5) (45 . -5.08002227430626) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 5.99713456942398) (43 . 2.1082) (44 . 2.1844) (45 . -25.4000140139694) (46 . 7.61998414996781) (79 . 2) (49 . 0.450088) (49 . -44.5588) (53 . 5.92441542613963) (43 . 0.0) (44 . 0.4826) (45 . -12.7000157642559) (46 . 5.07999383605014) (79 . 2) (49 . 0.434035) (49 . -21.2677) (53 . 5.14479604789554) (43 . 0.4064) (44 . 0.3302) (45 . -12.6999704036268) (46 . 27.9399870261567) (79 . 2) (49 . 0.363672) (49 . -36.0036) (53 . 1.16590437494174) (43 . 1.9812) (44 . 0.0) (45 . 5.08002227430627) (46 . 12.7000428255908) (79 . 2) (49 . 0.38688) (49 . -18.9572) (53 . 0.302884438391096) (43 . 2.1336) (44 . 0.3556) (45 . -33.02000178186) (46 . -10.1599846756056) (79 . 2) (49 . 0.425783) (49 . -42.1524) (53 . 1.21202644575494) (43 . 0.7366) (44 . 0.0) (45 . -5.07999383605015) (46 . -12.7000157642559) (79 . 2) (49 . 0.217018) (49 . -21.4848) (53 . 1.7681913198662) (43 . 4000002.5) (44 . 0.0) (45 . -2.53998746288735) (46 . 10.1599674609026) (79 . 2) (49 . 0.129515) (49 . -12.822) (53 . 2.89661474912136) (43 . 1.8034) (44 . 0.127) (45 . 7.62000535469717) (46 . -2.53999560412364) (79 . 2) (49 . 0.523634) (49 . -9.94905) (53 . 3.24646948834213) (43 . 1.2954) (44 . 0.254) (45 . 25.399962544428) (46 . 2.53999406854785) (79 . 2) (49 . 0.485267) (49 . -48.0414) (53 . 5.30039215071083) (43 . 1.5748) (44 . 1.5748) (45 . -2.54000087130723) (46 . 5.07999509923184) (79 . 2) (49 . 0.366324) (49 . -8.79178) (53 . 6.16375591712412) (43 . 1.778) (44 . 1.27) (45 . 43.1800178566434) (46 . -5.08002275165488) (79 . 2) (49 . 0.639557) (49 . -63.316) (53 . 1.06369789394495) (43 . 2.413) (44 . 1.1938) (45 . -10.1599763658291) (46 . -17.7799576108341) (79 . 2) (49 . 0.261508) (49 . -25.8894) (53 . 1.5707963267949) (43 . 2.54) (44 . 1.4224) (45 . -2.54) (46 . 2.54) (79 . 2) (49 . 0.1524) (49 . -2.3876) (53 . 2.09887012659531) (43 . 1.2446) (44 . 0.3302) (45 . 10.1599784668361) (46 . -17.7799910324776) (79 . 2) (49 . 0.352867) (49 . -34.9339) (53 . 0.837981443101533) (43 . 1.0668) (44 . 0.635) (45 . 20.320017265896) (46 . 22.8600280895126) (79 . 2) (49 . 0.683443) (49 . -33.4888) (53 . 0.0) (43 . 1.524) (44 . 1.143) (45 . 2.54) (46 . 2.54) (79 . 2) (49 . 0.6604) (49 . -1.8796) (53 . 5.67763983254165) (43 . 2.1844) (44 . 1.143) (45 . -25.3999559909537) (46 . 17.7800016904848) (79 . 2) (49 . 0.40161) (49 . -39.7593) (53 . 4.43408924983719) (43 . 2.5146) (44 . 0.9144) (45 . -2.54000647970147) (46 . -10.1600242032036) (79 . 2) (49 . 0.369829) (49 . -18.1217) (53 . 3.62410637859614) (43 . 2.413) (44 . 0.5588) (45 . -48.2599830490227) (46 . -25.4000159747234) (79 . 2) (49 . 0.602145) (49 . -59.6125) (53 . 3.06176303893282) (43 . 1.8796) (44 . 0.2794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (53 . 3.06176303893282) (43 . 1.8796) (44 . 0.2794) (45 . -33.0200076047475) (46 . 2.53998771121946) (79 . 2) (49 . 0.637029) (49 . -63.0658) (98 . 0))

OK... Wenn ich hier jetzt alle Varianten poste, wird der Post wohl 10km lang... Darum hier kurz meine neuen Erkenntnisse:

  • Anscheinend hängt BCAD bei den Schraffuren die komplette Musterdefinition mit ans Schraffurobjekt dran...
    Das kenne ich prinzipiell von Benutzerdefinierten Schraffuren.
    Ist das neu? Ist das evtl. ein Fehler (in unserer Musterdatei?, in BricsCAD?)
    Der Schraffurtyp ist "Vordefiniert" und auch eine ANSI31 sieht viel einfacher aber prinzipiell genauso aus.
  • in BCAD 18 ändern sich mit dem Befehl oben ALLE GK 43 und 44 (aber nicht auf den selben Wert).
    In BCAD 19 ändern sich NUR DIE ERSTEN GK43 und 44 auf den Wert, den ich in der Lisp ermittle.
    Anscheinend fängt BCAD 18 intern das ab und BCAD 19 nicht mehr :-(
    Vor allem ist komisch, dass in BCAD 19 in den Eigenschaften der letzten Schraffur einen Basispunkt von 4000002.5,5000002.5 (also eigentlich korrekt) angezeigt wird.

@runkelruebe:
Der Befehl -SCHRAFFEDIT gibt leider in BCAD nicht so viel her wie in ACAD:

Code:
-SCHRAFFEDIT
Schraffur Option eingeben [ENtassoz/Hinzufügen/Entfernen/Assoziiert]:


und er funktioniert auch nur mit jeweils einem Objekt (was mit Lisp nicht das Problem wäre).

Gruß
Stefan

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

Vino
Mitglied



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

Beiträge: 207
Registriert: 24.05.2005

Windows 10
BricsCAD V20-22

erstellt am: 22. Mai. 2019 17: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

Hallo zusammen,

Meine Funktion sieht jetzt so aus:

Code:
(defun c:schrbasis (/ counter olist obj vobj minExt maxExt mx my elist nlist)
  (setq counter 0)
  (if (setq olist (ssget '((0 . "HATCH"))))
    (repeat (sslength olist)
      (setq obj (ssname olist counter))
      (setq vobj (vlax-ename->vla-object obj))
      (vla-GetBoundingBox vobj 'minExt 'maxExt)
      (setq minExt (vlax-safearray->list minExt))
      (setq maxExt (vlax-safearray->list maxExt))
      (setq elist (entget obj))
      (setq nlist (list))
      (foreach gk elist
        (cond
          ((= (car gk) 43)
            (if (not mx)
              (setq mx (- (/ (+ (car minExt) (car maxExt)) 2.0) (cdr gk)))
            )
            (setq nlist (cons (cons 43 (+ (cdr gk) mx)) nlist))
          )
          ((= (car gk) 44)
            (if (not my)
              (setq my (- (/ (+ (cadr minExt) (cadr maxExt)) 2.0) (cdr gk)))
            )
            (setq nlist (cons (cons 44 (+ (cdr gk) my)) nlist))
          )
          ('T
            (setq nlist (cons gk nlist))
          )
        )
      )
      (entmod (reverse nlist))
      (setq counter (+ counter 1))
    )
  )
)

und funktioniert in BCAD 18 und 19.

Vielleicht kanns ja mal wer brauchen...

Danke an alle, die mitgedacht haben.
Problem für mich gelöst.

Gruß
Stefan

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