Sélectionner plusieurs objets fermés devrait afficher leur surface totale

AutoCAD Idées AutoCAD
1

Sélectionner plusieurs objets fermés devrait afficher leur surface totale dans la fenêtre Propriétés… plutôt que de ne rien afficher, ce serait plus utile.

[!Note]
Notez que si vous votez « Pour » au sondage ci-dessous, vous devez cliquer sur l’icône Vote en haut à gauche pour faire remonter cette idée dans la liste des plus appréciées. Merci pour votre participation !

  • Pour
  • Contre
  • sans opinion
0 votant
3

C’est pas déjà le cas ? :grinning_face_with_smiling_eyes:

4

À ma connaissance non

7

Bonjour,
Je vous propose un petit lisp qui traite tout les objets sélectionnés, (ignore ceux qui n’on pas d’aire).

;;; stot, calcul de la surface totale des objets sélectionnés ayant une aire 
;;; (Arc, Circle, Ellipse, Hatch, LWPolyline, Polyline, Region, Spline).
(defun c:stot ( / stot n sel)
  (setq stot 0.0 n 0)
  (while (not (setq sel (ssget)))
    (princ "\n -> Sélectionnez les objets."))
  ; Boucle sur les objets sélectionnés
  (while (ssname sel n)
    ; On ignore les objets qui n'ont pas de méthode Area
    (vl-catch-all-apply '(lambda nil 
      ; On additionne la surface de l'objet courant                     
      (setq stot (+ stot (vla-get-Area (vlax-ename->vla-object (ssname sel n)))))))
    (setq n (1+ n)))
  ; Affichage du résultat
  (princ (strcat "\n -> Surface totale : " (rtos stot 2 2)))
  (princ)
)
1 « J'aime »
8

Merci @Fraiddd j’ai juste rajouté « lisp » au début de ton code car le LISP n’avait pas été détecté (en principe il l’est), voir Comment formatter du code?

9

Il me semble que Covadis® affiche directement la surface totale des objets sélectionnés dans le panneau des propriétés (pour ceux qui l’utilisent évidemment :grin:)

3 « J'aime »