Centre d'une polyligne fermée

[fauxsuisse]

Bonjour tout le monde.

 

Voilà je suis à la recherche d'un petit lisp pour me trouver le centre d'une polyligne fermée.

 

Actuellement je transforme la polyligne en région puis j'utilise la commade PROPMECA puis sélectionne la région, là une liste m'affiche les coordonnée de cette pièce et on retrouve le centre de gravité x;y d'ont je reprend ces valeurs pour placer une croix.

 

J'aurai bien aimé avoir un lisp qui m'automatiserait ceci, car je trouve que ça fait beaucoup ne manip pour chaque fois trouver le centre.

[Patrick_35]

Salut

 

Pour faire au plus simple

 

(defun cenpoly(ent / doc reg res)
 (vl-load-com)
 (setq doc (vla-get-activedocument (vlax-get-acad-object)))
 (and (eq (type ent) 'ENAME) (setq ent (vlax-ename->vla-object ent)))
 (and (eq (vla-get-objectname ent) "AcDbPolyline")
      (eq (vla-get-closed ent) :vlax-true)
   (setq reg (vlax-invoke (if (eq (getvar "cvport") 1)
		     (vla-get-paperspace doc)
		     (vla-get-modelspace doc)
		   )
		   'addregion
		   (list ent)
      )
res (trans (vlax-get (car reg) 'centroid) 1 0)
   )
   (vla-delete (car reg))
 )
 res
)

 

(cenpoly (car (entsel)))

 

@+

[FormaBois]

Salut,

ce sujet pourrait-il t'intéresser ?

[(gile)]

Salut,

 

La routine Pline-Centroid (ici) utilise la géométrie plutôt que de passer par une région (ce procédé est environ 3 fois plus rapide).

[fauxsuisse]

Un rand merci de vos efforts ça marche. :D

 

Voilà de mouveau un bon gain de temps.

 

Merci encore et je vous souhaite un bon Weekend