Calcul d\'aire...

[jalna]

Vous connaissez

Spécifiez le premier coin ou [Objet/Addition/Soustraction]:

Moi j'aimerais un calcul d'aire par sélection (c'est a dire sélectionner plusieurs polylignes...)

Pour l'instant j'en fais des régions et apres calcul par objet!!

Pas top...

Une idée??

:P Merci

[BIM G CO]

plusieurs polylignes (on suppose fermées bien entendu)

 

_AREA
Spécifiez le premier coin ou [Objet/Addition/Soustraction]: a

Spécifiez le premier coin ou [Objet/Soustraction]: ob

(mode ADDITION) Choix des objets:
Aire = 1.2033, Longueur = 4.4055
Aire totale = 1.2033

(mode ADDITION) Choix des objets:
Aire = 0.3236, Périmètre = 2.5442
Aire totale =  [surligneur] 1.5269[/surligneur]

 

il est où le problème?

 

[Eric]

Ouais ça pourrais être mieux

 

Pour une aire par sélection tu peux aussi faire hachures en décochant "créer des hachures séparés" et tu demandes les propriétés de la hachure et tu as l'aire totale

 

Bon c'est pas le top non plus mais c'est une solution

[MNT]

Bonjour,

 

sujet déja traité

 

regarde ici : http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=2683#pid6805

 

@+

[jalna]

:D Merci MNT

C'est exactement cela!!

 

[lecrabe]

 

Bonsoir

 

Voici une routine que j'avais proposé (il y a longtemps):

 

Elle donne la surface et le périmètre et traite les éléments suivants:

Cercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline. :D

Il suffit de modifier le debut de la routine suivant tes besoins.

 

La question sur la "largeur de la tranche" peut etre utilisée pour passer un facteur du type:

0.0001 (pour par exemple convertir des cm2 en m2 !) :)

 

 

;;; AIRE_OBJ.LSP for AUTOCAD R13, R14, R15 (OUPS ! 2000) - 04/2000

;;;

;;; THE AUTHOR PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.

;;; THE AUTHOR SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF

;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE.

;;; THE AUTHOR DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM

;;; WILL BE UNINTERRUPTED OR ERROR FREE.

;;;___________________________________________________________________

;;;

;;; Modification par Lecrabe en ZVOL avec la question de la TRANCHE

;;; Et ajout des entites suivantes: +SPLINE, +ELLIPSE

 

(defun c:zvol ()

 

(setvar "cmdecho" 0)

(setq

ctent 0

ob_peri 0

ob_area 0

 

ob_area2 0

vol_area 0

h_tranche 1

 

)

 

 

(setq h_tranche (getreal "Largeur de la tranche: " ))

 

 

(setq ent (ssget '((-4 . "

 

(0 . "SPLINE")

(0 . "ELLIPSE")

 

(0 . "CIRCLE")

(0 . "LWPOLYLINE")

 

(0 . "POLYLINE")

 

(-4 . "OR>" )

)

) )

 

(if ent

(progn

(while

(

(setq selent (ssname ent ctent))

(command "_.area" "_ob" selent )

 

(setq ob_peri (+ ob_peri (getvar "perimeter")))

(setq ob_area (+ ob_area (getvar "area")))

 

(setq ob_area2 (getvar "area"))

(setq ob_area2 (* h_tranche ob_area2))

(setq vol_area (+ vol_area ob_area2))

 

(setq ctent (1+ ctent))

)

)

(prompt "\n*** Rien de Valable ")

)

(setvar "cmdecho" 1)

 

(princ "\nCercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline")

(princ "\nTOTAL Surface: ") (princ ob_area)

(princ " - TOTAL Volume : ") (princ vol_area)

(princ "\nTOTAL Perimetre: ") (princ ob_peri)

(princ " - TOTAL Objet: ") (princ ctent)

(princ "\n")

 

;; **** Eventuellement commentez les lignes suivantes ***

;; (alert "Traitement: Cercle, Polyligne, Rectangle, Anneau, Polygone, Ellipse, Spline")

 

(princ)

)

 

(princ)

(princ "\n==> ZVOL ")

(princ)

 

 

Le Decapode "surfant"

 

 

[lecrabe]

 

ReBonsoir

 

Attention la question sur la largeur de la tranche ne modifie pas

le résultat sur le total des périmètres ! :casstet:

 

Le Decapode