Trouver le volume avec autocad 2000

[mesylva]

Comment calculer un banc d'emrunt avec des surfaces au 15 mètre ?

 

Voir le jpg et le DWF ci-dessous

 

 

Il faut trouver le volume avec ces 8 surfaces.

 

J'ai trouvé la surface de chacune c'est facile. Ce qui l'est moins c'est le volume

 

 

voici la quatité que j'ai calculé avec la formule du prismatoïde 2 112 419,051

 

 

La formule du prismatoïde s'énonce ainsi:

 

V= h(S1 +4 Sm + S2) /6

 

où s1 et s2 : surfaces des deux bases

sm : surface de la section médiane

h: distance horizontale entre les sections s1 et s2.

 

[Edité par mesylva]

[mikL44]

???????????????????????

reformule

[mesylva]

 

 

Oui je m'excuse les pots ...Je voulais joindre un fichier mais c'est impossible a ce que je peu voir.

 

j'ai supprimé le message mais ça ne fontionne pas d'après ce que je peu voir.

[mesylva]

 

 

 

Donne moi ton adresse je vais t'envoyer le fichier DWG ... une image vaut mille mots

[Patrick_35]

Transmet ton image au webmaster qui l'inclura dans le message

 

@+

[Invité Patrick]

Voici l'image transmise par mesylva:

 

images/articles/sujetXForum-2964.jpg

 

et le fichier DWF à télécharger.

[didier]

hello

c'est quoi le problème,

il y a différents profils, formés de polylignes closes

un distance d'application entre chaque profil

et il faut multiplier la surface de chaque polyligne close

par la distance d'application.

si c'est bien ça, c'est facile à lisper.

n'empêche que ton message initial

est bon pour le BEST OF des messages charabiesques.

tiens nous au courant si tu ne t'en dépatouilles pas tout seul.

un clavier charitable te viendra en aide

amicalement

 

[lecrabe]

 

Hello

 

Je suis d'accord avec Didier cela semble simple à programmer ...

et ton 1er post était un MUST en matière de NON Clarté !!!

 

Mais petite question: c'est quoi ces polylignes ?

 

1) Le vide sanitaire sous un batiment

 

2) un vide à remblayer

 

3) Une grotte souterraine / Une poche de pétrole

(Trop rectangulaire à mon avis)

 

???

 

Crabuleusement

 

[didier]

coucou

mais non LeCrabe, tu ne cherches pas dans la bonne direction,

pour ma part, je pense que c'est le graphe des ses actions

cotées en bourse, et qu'il veut connaitre le Volume des transactions.

c'est fou ce qu'on peut rigoler sur ce site, non ?

ciao

 

[mesylva]

 

 

Bon , je vois que j'ai amusé la galerie.. Ah, Ha comme on dit au Qébec Familiprix ...

 

 

Passons au chose sérieuse.

 

Voilà , tout ce que je voudrais savoir c'est comment trouver le volumes de ces surfaces

avec autocad .. surement in lisp à vous de juger.

[mesylva]

 

Didier voilà .. je t'explique c'est un peu comme un banc d'emprunt de sable.

 

Tu fais ton relevé avant avec des sections au 15 mêtres .. ensuite quand l'excavation ou le remblais est fini tu refais ton relevé. Ce qui serait pratique pour moi c'est de savoir la quantité de matériel qui à été soit ajouté ou enlevé.

 

[lecrabe]

ReBonjour

 

J'avais donc plus ou moins trouvé : vide à remblayer ...

 

Et donc il te faut un programme qui te donne la surface

de chacune des N polylignes closes sélectionnées

et la multiplie par la largeur de la tranche (15 mètres par exemple).

 

Crabuleusement

 

[mesylva]

 

Oui, c'est bien cela . peut être que les mots ne seront pas pareils.

Au Québec Canada .. c'est un banc d'emprunt

 

Merci

 

[didier]

bonjour à Mesylva,

tu sais je suis taquin, mais pas méchamment,

c'est juste que j'aime les mots et jouer avec.

envoie moi un message privé,

je te filerai mon adresse mail,

pour que tu puisses m'envoyer un exemple de fichier dwg

avec tes polylignes, ça me permettra de te faire un petit lisp perso

pour mesurer tes volumes.

amicalement

 

[lecrabe]

 

Hello

 

Tiens, tiens, Didier travaille dans l'amitié franco-canadienne ...

 

SVP tu ne triches pas, il est interdit d'utiliser ton COVADIS !!!

 

Un peu cher bien sur, pour résoudre ce petit problème !!!

 

Crabuleusement

 

[didier]

hello

alors là, LeCrabe,

tu retournes le couteau dans la plaie sans le savoir,

en ce jour, Covadis et moi, c'est loin de l'entente cordiale,

j'ai découvert des bugs du niveau de la première année

du CAP d'opérateur Géomètre, ils sont en train de le résoudre,

donc je n'en parle pas, craignant la diffamation.

tout ça pour dire que je n'utilise JAMAIS Covadis

pour aider les CadXpiens.

je suis en train de me taper des calculs à la main,

à cause des lacunes de Covadis,

je peus trouver un quart d'heure pour filer un coup de main

au producteur de sirop d'érable.

ciao

 

[lecrabe]

ReBonjour Didier - C'était de l'humour bien sur ...

 

Je me disais que tu allais écrire une routine en AutoLisp pour résoudre le problème ...

Et peut être vérifier que le résultat était identique avec COVADIS ...

Voir même recalculer "à la main", on n'est jamais trop prudent ...

 

Surtout pas les temps qui courent ....

 

J'avais entendu parler de certains problemes avec COVADIS (par exemple en voirie urbaine) où les pentes / angles sont très faibles en général ...

 

Mais tu as sans doute trouvé un autre problème ?

Heureusement que des Pros comme toi, remontent les problèmes aux Brestois !!!

 

Crabuleusement

 

[didier]

je te serre la pince,

ben non mon garçon,

je ne veux pas être diffamatoire,

donc je n'en dirai pas plus,

je connaîs les bugs dont tu parles, je suis d'accord

que c'est "limite" et on parle de bug.

Là où j'ai mis le doigt c'est bien plus "basique",

c'est d'autant plus intolérable,

en plus, ils travaillent pas le samedi, autrement dit :

sors ta calculette et démerde toi !

ah lala ! on vit une époque épique.

ciao

 

 

[mesylva]

 

Enchanté , Didier, je me lève, je vois que le problème t'interresse. Tu es toi aussi Géomètre. Comment je t'envoie mon adresse @mail ?

[didier]

bonjour,

bien dormi ?

je t'envoie la mienne,

tu vas voir apparaître un message

sur ta page d'acceuil de CadXp,

comme quoi tu as un message privé

dedans tu trouveras mon mail,

utilises le pour m'envoyer un dwg exemple de tes polylignes

amicalement

 

[lecrabe]

Hello Didier & Mesylva

 

N'hésitez pas à me faire savoir le résultat de vos essais !!!

 

J'ai modifié la routine AutoLisp d'un copain (Fanatique d'AutoCAD et d'IntelliCAD)...

 

ATTENTION, elle travaille sur TOUS les objets AutoCADs de type:

PLINE / LWPLINE (closes ou NON), Rectangles, Splines, Ellipses, Cercles, Anneaux.

 

Que j'utilise très souvent pour cumuler les surfaces et périmètres

de tous les objets clos (en principe) de ma sélection.

 

Je l'ai testée et validée sur AutoCAD 2002 mais je suis persuadé qu'elle fonctionne

sur tous les AutoCADs: R14, 2000, 2000i, 2002, 2004, 2005 & IntelliCAD.

 

Je vous conseille d'aller visiter le site d'IntelliCAD version FRANCAISE

http://www.cad-europe.com/

qui est particulièrement performant en version FRANCAISE et non pas US/English.

 

La routine ci-dessous provient de l'un des développeurs d'IntelliCAD FRANCAIS.

 

 

;;; 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)

 

 

- Voilà, à la question de la Largeur de la Tranche, si vous répondez "1" (UN)

alors les 2 totaux de Surface & Volume seront égaux.

 

- Si vous répondez "15" , on suppose que toutes les tranches font 15 de large !

 

N'hésitez à me faire plein de reproche (Je ne suis pas un AutoLispien)

et donc je suis sur qu'on aurait pu faire beaucoup mieux ...

 

D'autre part je n'avais pas le dessin exemple de Mesylva,

donc j'ai un peu travaillé dans le vide ...

 

Que ne ferait on pas pour nos amis Canadiens ou Canadiennes ...

 

Crabuleusement

 

[extrusion]

Hello didier, tu me fais un peu peur avec tes histoires de bugs...

J'ai déjà remarqué des différences de résultats sur des calculs de polygo avec topstation.

 

Tu pourrais peut etre diffamer en message privé, histoire de me permettre de vérifier...

Je préférerai dormir sur mes 2 oreilles !

[mesylva]

Heil ! ça marche , Didier m'en à procurer un bon aussi.

 

 

Bravo le Crabe t'es un as ..

 

Pour le moment je l'ai copié, coller dans la commande d'autocad, mais j'aimerais savoir comment le mettre en Lisp. Pour avoir plus de facilité à le loader.

 

Merci

[lecrabe]

Hello

 

Donc si j'ai bien compris, tu as maintenant 2 routines opérationnelles.

 

C'est quand même FOU / DELIRANT de voir qu'un logiciel comme AutoCAD

n'est capable pas en STANDARD d'effectuer cette opération !!!

 

RAPPEL: Cette routine peut être utilisée pour totaliser les Surfaces et Périmètres des objets AutoCAD concernés et tapant directement à la question relative à la largeur de la tranche (En fait Largeur = 1).

 

:) Super les Français aident les Canadiens :D

 

Fais un copier/coller de la routine dans le "notepad.exe" (Blocnote)

et tu sauvegardes le fichier ("ZVOL.LSP" ou autre nom)

dans le catalogue (N'importe où, en fait) où est installé

ton AutoCAD (en dessous de "x:\Program Files").

 

Puis tu lances ton AutoCAD (Anglais, n'est-il pas ?):

- Tools (Outils)

- Load Application (Charger une application)

- Icone de la valise (En bas, à droite)

 

Et tu ajoutes le fichier en question ("ZVOL.LSP")

à la valise de démarrage d'AutoCAD en parcourant ton disque dur ...

 

Ainsi ce Lisp sera toujours chargé et DISPO au lancement d'AutoCAD.

Il suffira de taper au clavier: ZVOL

Sinon "derrière" un joli icône: ^C^CZVOL

 

ATTENTION, cette routine fonctionne sur TOUS les objets AutoCADs de type:

PLINE / LWPLINE (closes ou NON), Rectangles, Splines, Ellipses, Cercles, Anneaux.

 

Crabuleusement

 

[didier]

bonsoir ou bonjour à Mesylva,

on sait jamais avec leur décalage horaire :casstet:

tiens moi au courant

car j'ai amélioré le Lisp, maintenant je tiens compte

de la différence de "hauteur" des polylignes.

dès qu'il est bouclé, que tu me dis que ça fonctionne correctement

dans TOUS LES CAS DE FIGURES

j'en ferai profiter le forum Lisp.

amicalement