| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Flächeninhalt 3D-Fläche (988 mal gelesen)
|
accs
Mitglied
   Beiträge: 9
Registriert: 11.07.2003
|
erstellt am: 14. Nov. 2003 11:41  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Cad-User, weiss jemand, wie man den Flächeninhalt einer Regel- oer kantendefinierten 3D-Fläche bestimmen kann? Bei "Eigenschaften" und "Liste" wird darüber nichts angezeigt. Vielleicht gibt´s auch ein lsp? Grüsse, Accs Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scj
Mitglied
Beiträge: 554
Registriert: 09.08.2001
|
erstellt am: 14. Nov. 2003 12:53 <-- editieren / zitieren --> Unities abgeben: Nur für accs 
|
StephanJP
Mitglied
CAD-Admin
Beiträge: 829
Registriert: 09.11.2000 AutoCAD ,MAP 3D, Civil 3D, P&ID, VehicleTracking alles bis 2022, BBSoft, Win 10 Enterprise, Canon PlotClient
Canon TX2000, TX3000
|
erstellt am: 14. Nov. 2003 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für accs
|
StephanJP
Mitglied
CAD-Admin
Beiträge: 829
Registriert: 09.11.2000
|
erstellt am: 14. Nov. 2003 14:20 <-- editieren / zitieren --> Unities abgeben: Nur für accs
dann war da noch mal eben... (defun c:flvrerm () ;Fläche von Regionen ermitteln
(setq as (ssget '((0 . "REGION"))))
(setq flaeche 0.0 n 0)
(setq en (ssname as n))
(while en
(command "_area" "_o" en)
(setq flaeche (+ flaeche (getvar "area")))
(setq n (1+ n) en (ssname as n))
)
(setq pt (getpoint "\nTexteinfügepunkt wählen: "))
(entmake (list '(0 . "TEXT")
(cons 10 pt)
'(8 . "Flaeche von Regionen")'(40 . 2.5)
(cons 1 (strcat "Die Gesamtfläche der gewählten Regionen beträgt " (rtos flaeche 2 2) " qm!"))
)
)
(princ (strcat "Die Gesamtfläche der gewählten Regionen beträgt " (rtos flaeche 2 2) " qm!"))
) ------------------
gruß
Stephan Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
