| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für BricsCAD |
| |
| Partnerstand rund um Geospatial-Themen, eine Pressemitteilung
|
Autor
|
Thema: Flächenberechnung (4528 mal gelesen)
|
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 15. Mai. 2013 14:02 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich hab da ein Problem mit der Darstellung von Flächen... Wenn ich eine Fläche anlege, diese mit einer Schraffur ausfülle, dann auf die Schraffur klicke, dann wird mir bei den Eigenschaften diese Fläche angezeigt. Wie kann ich diese Fläche (das Ergebnis) jetzt in meine Zeichnung einfließen lassen ohne diese händisch selbst eintragen zu müssen? Bei zwei drei Flächen spielt das ja keine Rolle... ich zeichne aber gerade Querschnitte (120 Stk...) da wäre es sinnvoll wenn das einfacher gehen würde... jemand nen Tipp? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scj Mitglied
Beiträge: 555 Registriert: 09.08.2001
|
erstellt am: 15. Mai. 2013 18:00 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
|
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 16. Mai. 2013 07:57 <-- editieren / zitieren --> Unities abgeben:
Hallo, danke erst mal. ich sehe dass es das sein könnte... aber... ich bin kein programierer... was mach ich mit diesem quellcode den ich downgeloadet hab jetzt? wo muss ich den einsetzen? wie arbeite ich damit? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scj Mitglied
Beiträge: 555 Registriert: 09.08.2001
|
erstellt am: 16. Mai. 2013 10:31 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
|
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 16. Mai. 2013 16:35 <-- editieren / zitieren --> Unities abgeben:
hallo, danke dir für den tipp. also den quellcode konnte ich jetzt als lisp einspielen. allerdings klappt das mit der berechnung nicht wirklich... : appload Laden von C:\Dokumente und Einstellungen\zeljko.covran.DATASRV\Desktop\FLA-NEU.LSP : (LOAD "C:/Dokumente und Einstellungen/zeljko.covran.DATASRV/Desktop/FLA-NEU.LSP") Programm ausführen mit >FLA-NEU< : fla-neu Raumpolygon zeigen: ; ----- LISP : Call Stack ----- ; [0]...C:FLA-NEU <<-- ; ; ----- Error around expression ----- (VLE-ENTGET 70 TT) ; ; error : bad argument type <NIL> ; expected ENTITYNAME at [VLE-ENTGET] : fla-neu Raumpolygon zeigen:Nichts oder Falsch gewählt. : _regennil Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T.Moses Mitglied
Beiträge: 82 Registriert: 16.03.2005 Win10, Core i9-9900k @5.0 GHz, 32 GB Ram, NVidia GT1030
|
erstellt am: 16. Mai. 2013 21:20 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
Bei mir klappt es problemlos ... Es müssen LWPOYLINE Objekte sein ... mit "alten" Polylinien geht es nicht; am Besten, PLINETYPE=2 einstellen, dann werden alte Polylinien in neue konvertiert (wenn möglich), und neu erstellte sind automatisch LWPOYLINEs (Ausnahme : Polylinien mit Spline/Curve-Glättung sind immer "alte" Polylinien) Viele Grüsse ! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 17. Mai. 2013 07:44 <-- editieren / zitieren --> Unities abgeben:
|
T.Moses Mitglied
Beiträge: 82 Registriert: 16.03.2005 Win10, Core i9-9900k @5.0 GHz, 32 GB Ram, NVidia GT1030
|
erstellt am: 17. Mai. 2013 11:02 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
|
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 17. Mai. 2013 13:11 <-- editieren / zitieren --> Unities abgeben:
geht immer noch nicht... : PLINETYPE Neuer aktueller Wert für PLINETYPE (0 to 2) <2>: Eine Integer (Ganzzahl) ist erforderlich. Bitte versuchen Sie es nochmal. Neuer aktueller Wert für PLINETYPE (0 to 2) <2>: 2 : : : _pline EINGABETASTE für letzten Punkt/Folgen/<Beginn der Polylinie>: Kreisbogen/Abstand/Folgen/Halbbreite/Breite/<Nächster Punkt>: @2<0 Kreisbogen/Abstand/Folgen/Halbbreite/Breite/Zurück/<Nächster Punkt>: @2<90 Kreisbogen/Schließen/Abstand/Folgen/Halbbreite/Breite/Zurück/<Nächster Punkt>: @2<180 Kreisbogen/Schließen/Abstand/Folgen/Halbbreite/Breite/Zurück/<Nächster Punkt>: Kreisbogen/Schließen/Abstand/Folgen/Halbbreite/Breite/Zurück/<Nächster Punkt>: : fla-neu Raumpolygon zeigen:Nichts oder Falsch gewählt. : _regennil : Gegenüberliegende Ecke: : Abbrechen : : : _hatch Objekte wählen: Objekte im Satz: 1 Objekte wählen: : : Gegenüberliegende Ecke: : <3 gefunden> : : _erase : : : _qsave zum verständnis, ich arbeite mit der maus sehr viel und hole mir in meinen querschnitten ca. 20 punke die ich mit einer polylinie nachfahre. also klicke ich oben in der befehlszeile auf das symbol polylinie... dieses symbol sollte doch dann aktualisiert sein und mit dem neuen PLINETYPE=2 funktionieren oder nicht? in der Befehlszeile schreibt er ja dass die umstellung stattgefunden hat... aber wenn ich mit dem symbol arbeite macht er immer noch die alte linienart...
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
T.Moses Mitglied
Beiträge: 82 Registriert: 16.03.2005 Win10, Core i9-9900k @5.0 GHz, 32 GB Ram, NVidia GT1030
|
erstellt am: 17. Mai. 2013 14:21 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
|
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 17. Mai. 2013 14:25 <-- editieren / zitieren --> Unities abgeben:
|
T.Moses Mitglied
Beiträge: 82 Registriert: 16.03.2005 Win10, Core i9-9900k @5.0 GHz, 32 GB Ram, NVidia GT1030
|
erstellt am: 17. Mai. 2013 14:33 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
Aaah - ich denke, ich hab's Die Polylinien müssen "geschlossen" sein, per Status, letzter Punkt == erster Punkt reicht nicht ... Ich denke, da sollte CAD-Wiesel das Programm verbessern, auch "offene" Polylinien haben eine Fläche, wenn gerade Verbindung vom letzten zum ersten Punkt angenommen wird ... Also momentan - Polylinien schliessen [Diese Nachricht wurde von T.Moses am 17. Mai. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 17. Mai. 2013 15:25 <-- editieren / zitieren --> Unities abgeben:
ich frag jetzt mal wieder dumm wenn ich den letzten punkt mit meinem ersten punkt verbinde galt das für mich als geschlossen. wenn du jetzt schreibst die wäre nicht geschlossen wie schließe ich sie dann "per status"? ich arbeite seit 3 jahren mit dem bricscad und komm mir grad vor wie ein vollkommener anfänger Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
zicera Mitglied Bauzeichner
Beiträge: 10 Registriert: 15.05.2013
|
erstellt am: 17. Mai. 2013 15:31 <-- editieren / zitieren --> Unities abgeben:
|
T.Moses Mitglied
Beiträge: 82 Registriert: 16.03.2005 Win10, Core i9-9900k @5.0 GHz, 32 GB Ram, NVidia GT1030
|
erstellt am: 17. Mai. 2013 15:38 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
Statt als letzten Punkt den ersten nochmal einzugeben (auch mit Objektfang), besser die Option "Schliessen" (oder "_close") benutzen ... sieht man auch, wenn der PropertiesManager offen ist, und man die Polylinie auswählt : da steht dann als Status "Offen", kann auch dort "Geschlossen" werden. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 23. Mai. 2013 12:09 <-- editieren / zitieren --> Unities abgeben: Nur für zicera
Hier mal etwas neueres, was laufen sollte: Aber Achtung: bei allen offnen Polylinien werden die Flächenwerte berechnet, indem eine gerade Verbindung zwischen den Endpunkten angenommen wird. Code: (defun c:fla_vl ( / flasatz) (vl-load-com) (prompt"\nZu berechnende Flächenpolygone wählen: ") (if (setq flasatz(ssget '((0 . "*POLYLINE")))) (repeat(sslength flasatz) (if;(setq elem(car(entsel))) (vlax-property-available-p(vlax-ename->vla-object (ssname flasatz 0)) 'Area) (entmake (LIST '(0 . "TEXT") (cons 8 (getvar "clayer")) (assoc 10(entget (ssname flasatz 0))) (cons 40 (getvar "textsize")) '(50 . 0) (CONS 1 (strcat (rtos (vlax-get-property (vlax-ename->vla-object (ssname flasatz 0)) 'area) 2 2) " qm")) ) ;_ ende von LIST ) ;_ end of entmake ) (setq flasatz(ssdel(ssname flasatz 0)flasatz)) ) ) (princ) )
------------------ Gruß CADwiesel Besucht uns im CHAT
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |