Centre de gravité

[gile]

Salut à tous,

 

Je cherche à extraire automatiquement les coordonnées du centre de gravité d'une région (ou d'un solide) pour en attribuer la valeur à une variable LISP, dans le but de faire une petite routine qui placerait l'origine du SCU directement sur ce point.

 

Et ensuite, extraire les moments d'inertie de la région par rapport à son centre de gravité.

 

Merci d'avance...

[Tramber]

(vlax-safearray->list (vlax-variant-value (vlax-get-property ent2 'centroid)))

(vlax-safearray->list (vlax-variant-value (vlax-get-property ent2 'MomentOfInertia)))

 

N'oublie pas de faire

 

(setq ent2(vlax-ename->vla-object ent2)) si ton objet n'est pas VLA !

[gile]

Merci beaucoup Tramber, je pense que çà répond tout à fait à ce que je cherchais.

J'essaye çà .

 

Il faut vraiment que je me mette au VLA...

 

A plus.

[gile]

C'est super !

 

C'est exactement ce dont j'avais besoin et çà m'a permis de mettre mon nez dans Visual LISP et Active X, ce qui m'ouvre de nouveaux horizons.

 

J'ai pondu un truc qui peut servir, je l'ai mis dans ce forum.

 

A plus.

 

[Edité le 23/5/2005 par gile]