Autolisp, dessine le centre d'un solide ou d'une région...

[fabang]

Je ne suis pas là depuis quelques années. Je pose mon problème.
sur le filet j'ai trouvé ce lis qui choisit un solide ou une région, dessine un cercle "rouge" dans la position de son centre.
jusqu'ici tout va bien, mon problème vient du fait que je dois choisir plus solide ensemble, mais le petit programme me fait choisir un solide à la fois.
Je me réfère à quelqu'un qui peut modifier le lisp et étendre la sélection non pas à un seul objet mais à plus d'objets.
ci-dessous je couvre tout le programme, qui peut peut-être revenir utile à quelqu'un.
Au revoir et merci :


;cog3d - dessine le centre d'un solide ou d'une région
;
(défun c:cog3d ( / ent coords objent-vl)
(vl-load-com)
(setvar "cmdecho" 0)
(alors qu'il n'y a pas (setq objent (car (entsel "\nselect solide 3d ou région: ")))
)
(alors qu'il n'y a pas de membre (cdr) (assoc 0 (entget objent))) (3dsolid) (région))
(chant)
(strcat "\n [Bleep] non valide - " ent)
)
(alors qu'il n'y a pas (setq objent (car (entsel "\nselect solide 3d ou région: ")))
)
)
(setq objent-vl (vlax-ename->vla-object objent))
(setq coords (vlax-get objent-vl "centroid")
(commande "cercle" coords (/ (getvar "viewsize") 50); dessine-le
(commande "_.chprop" "_l" "_col" "1"")
(principaux (strcat "\nbaricentro:\nx=" (rtos(car coords) " y=" (rtos(cadr coords)) " z=" (rtos(cadr coords))))
(setvar "cmdecho" 1)
(principes)
)
(princ "commande cadstudio cog3d chargée")
(principes)