CALCUL DE SURFACES , VOLUMES......

[HANNA]

COMMENT JE PEUX CALCULER LA SURFACE OU LE VOLUME EN ENTRANT DES PARAMETRES TELSQUE L:longueur H : hauteur ..................?

 

 

CORDIALEMENT

[didier]

bonjour

il existe plusieurs possibilités

1, l'objet exisite

commande "AIRE"

cliquer tous les sommets et lire le résultat sur la ligne de commande

ou bien c'est une polyligne close et choisir l'option "OBjet" de la commande "AIRE"

idem pour lire le résultat

2, l'objet n'existe pas

commande "CAL"

et taper les opérations à effectuer

exemple : CAL (valid) longueur * Largeur * Hauteur (Valid)

sur la ligne de commande apparaît le résultat souhaité

3, faire une demande pleine de douceur sur CADxp

pour connaître les personnes ayant déjà réfléchi au problème

et qui ont écrit des programmes en Lisp ou VBA.

amicalement

 

[fresher]

Salut Didier ,

n'existe t'il apas un moyen de faire apparaître la valeur de la surface d'un objet directement sur le dessin ,à un endroit precis,plutôt que de la lire sur les lignes de commandes.

Merci

 

[didier]

hello

si bien sûr que si :D

dans AutoCad, quasiment tout est possible,

lorsque la commande n'existe pas, c'est le cas pour les surfaces,

il faut programmer. j'ai quelque chose si tu veux ...

:P

[fresher]

Salut Didier,

ce programme m'interesse au plus au point parce que jusqu'alors j' etais obligé d'utiliser le Mtext pour ecrire sur mon dessin les valeurs de surfaces que j'obtenais avec la commande aire.

Comment je fais pour avoir le programme?

Merci d'avance.

[mesylva]

hello

si bien sûr que si :D

dans AutoCad, quasiment tout est possible,

lorsque la commande n'existe pas, c'est le cas pour les surfaces,

il faut programmer. j'ai quelque chose si tu veux ...

:P

 

 

Comment programmerais-tu Didier mon problème de volume de bourse ?

[lecrabe]

Bonjour

 

Voici une solution que l'on peut améliorer ...

 

Ce programme va écrire en TEXTE AutoCAD la surface

d'un cercle, polyligne, lwpolyligne, rectangle

avec une hauteur et un angle fournis par l'opérateur.

 

Sur le site de Dominique, il exista la MEME routine qui traite le PERIMETRE.

 

La routine originale provient de Dominique VAQUAND

Téléchargement gratuit avec d'autres routines

et je vous conseille absolument d'aller visiter son site ...

http://dominique.vaquand.free.fr

 

 

; SURF.LSP

; --------------------------------

; ECRITURE DE L'AIRE D'UNE SURFACE

; Dominique Vaquand

; http://dominique.vaquand.free.fr

; --------------------------------

 

(defun c:surf ()

 

(setvar "cmdecho" 0)

 

(princ "\nSélectionnez un Cercle, Polyligne ou Polygone: ")

 

(setq objet (car (entsel)))

 

(if (or

(= (cdr (assoc 0 (entget objet))) "CIRCLE")

(= (cdr (assoc 0 (entget objet))) "POLYLINE")

(= (cdr (assoc 0 (entget objet))) "LWPOLYLINE")

)

 

 

(progn

 

(setq htxt (cdr (assoc 40 (tblsearch "STYLE" (getvar "textstyle")))))

 

(if (= htxt nil)

(setq htxt 0.0)

)

 

(command "aire" "e" objet)

 

(setq pt1 (getpoint "Position du texte: "))

 

(if (= htxt 0.0)

(setq h_txt (getdist "Hauteur du texte: " pt1))

)

 

(setq ang (angtos (getangle "Angle du texte: " pt1) (getvar "aunits")))

 

 

(if (/= htxt 0.0)

(command "texte" pt1 ang (strcat (rtos (getvar "area") 2 (getvar "luprec")) " M2"))

(command "texte" pt1 h_txt ang (strcat (rtos (getvar "area") 2 (getvar "luprec"))" M2"))

)

 

) ; progn

(princ "\nCe n'est pas un objet Cercle, Polyligne ou Polygone")

) ; if

 

(princ)

 

) ; defun

 

(princ "\n==> SURF")

(princ)

 

 

J'en profite pour saluer Dominique ...

Crabuleusement

 

[Invité Patrick]

Signalons pour ceux qui passeraient à la version 2005 qu'on peut directement afficher la surface d'un polygone de façon dynamique dans un Mtext. Plus de programmation requise dans ce cas.

[lecrabe]

 

Bonjour Patrick

 

Et si le dessin est fait en cm ou mm,

est ce que l'on peut appliquer un facteur de multiplication

ou plutôt de division pour obtenir la surface en m2 ???

 

Je dois avouer (A ma grande honte) que je n'ai pas assez étudié cette nouvelle fonctionnalité de AutoCAD 2005 qui je crois n'est pas DISPO dans AutoCAD LT 2005 ???

 

Crabuleusement

 

PS: Je fête mon 300 ème message = Youpee

 

Quoique n'oublions pas que quelqu'"un a fêté son 1000 ème msg récemment !

 

 

[Invité Patrick]

Non on ne peut pas... du moins je n'ai trouvé aucune astuce pour le faire, ni personne d'autre d'ailleurs pour l'instant.

 

J'avais pourtant signalé cette impossiblité comme un gros problème dès la sortie de la beta 3... (début février me semble-t-il?). Cela signifie, et j'en ai parlé à plusieurs reprises sur CADxp, qu'un architecte ne pourra pas afficher les surfaces de ses locaux en mètres carrés s'il ne dessine pas son bâtiment en mètres... Bravo Autodesk! :mad:

 

Impossibilité d'autant plus scandaleuse qu'il est possible d'afficher une surface en pieds carrés si le contour est dessiné en pouces... Il est des endroits sur terre où les règlements internationaux et dans ce cas le Système International de Mesure ne sont pas respectés, mais cela, on le savait n'est-ce pas? ;)

[ribbit]

Quoique n'oublions pas que quelqu'"un a fêté son 1000 ème msg récemment !

 

Joyeux anniversaire en retard (c'était tramber il me semble) !!

 

Et voir patrick qui a posté récemment son 2000ème message !!!!!!!!! :exclam: :exclam: :exclam:

[Tramber]

Oh, je reviens bientôt de mes vacances et je relis un peu les messages pour voir un peu de quoi il en a retourné !

 

Je suis déjà à 1140 environ, ca va vite quand on est super bavard !

 

Merci infiniment Ribbit, ca me fait plaisir.

 

 

 

....et honte à Autodesk.

 

j'ai pas AutoCAD non LT sous la main, mais si Fresher, ca peut être très facile.

mais ca peut peut-être se faire en language script, je tente pour voir et je reviens.

[Tramber]

^C^Caire o \

 

A glisser dans un bouton, ensuite, on retrouve la valeur en tapant AREA, qui est devenue une variable, je suis sur qu'on peut la restituer sous forme de texte sans utiliser le LISP, en passant par le DIESEL (mais je suis hotneusement nul en DIESEL et promets de m'y mettre un jour)

 

en tout cas, en lisp le bouton suivant contiendrait le code, ca devrait marcher :

 

(setq aa (getvar "AREA"))
(command "Texte" pause "" "" aa "")