| |
| 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, eine Pressemitteilung
|
Autor
|
Thema: Basispunkt einer Schraffur setzen (998 / mal gelesen)
|
Vino Mitglied
Beiträge: 229 Registriert: 24.05.2005 Windows 10 BricsCAD Pro V23
|
erstellt am: 22. Mai. 2019 13:49 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 1144 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 / zitieren --> Unities abgeben: Nur für Vino
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
Beiträge: 8086 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 / zitieren --> Unities abgeben: Nur für Vino
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
Beiträge: 229 Registriert: 24.05.2005 Windows 10 BricsCAD Pro V23
|
erstellt am: 22. Mai. 2019 15:37 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 8086 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 / zitieren --> Unities abgeben: Nur für Vino
Und nachträglich ändern geht in BCAD auch nicht? ACAD kann's sogar mit Mehrfachauswahl... Auszug aus ACAD:
Code: Befehl: _-HATCHEDIT 2 gefundenSchraffuroption 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
Beiträge: 229 Registriert: 24.05.2005 Windows 10 BricsCAD Pro V23
|
erstellt am: 22. Mai. 2019 16:20 <-- editieren / zitieren --> Unities abgeben:
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
Beiträge: 229 Registriert: 24.05.2005 Windows 10 BricsCAD Pro V23
|
erstellt am: 22. Mai. 2019 17:08 <-- editieren / zitieren --> Unities abgeben:
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 |