Aire et Total des Aires des Hachures

[lecrabe]

Hello

 

Suite a une demande "interne" voici 3 routines interessantes :

 

HAREA.lsp de notre "indispensable" Gilles (gile)

qui affiche dans l'ecran texte la surface/aire d'UNE hachure AutoCAD

 

 

;;
;; Par GC le 09/12/2009
;; Surface/Aire d'un objet Hachure/Hatch d'AutoCAD
;;

(defun c:harea (/ h)
 (vl-load-com)
 (if
   (and
     (setq h (car (entsel "\nSelectionnez une Hachure: ")))
     (= (vla-get-ObjectName (setq h (vlax-ename->vla-object h))) "AcDbHatch")
   )
    (if (vlax-property-available-p h 'Area)
      (princ (strcat "\nAire : " (rtos (vla-get-Area h))))
      (princ "\nPropriété Aire non accessible !")
    )
 )
 (princ)
)

 

Ensuite en provenance des Newsgroup Autodesk

la somme/total des Surfaces de N hachures :

Routine: TotHatch

 

 

;; http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Sum-of-Hatch-Lisp-routine/td-p/3021852#.UOVXJqyHPFw
;; Somme/Total des Surfaces de Hachures AutoCAD
;; Nom original de la Routine : Test
;; Nouveau Nom  de la Routine : TotHatch

(defun c:TotHatch (/ area ss)
 (vl-load-com)
 (setq area 0)
 (if (setq ss (ssget ":L" '((0 . "HATCH"))))
   ((lambda (i / sset obj-area)
      (while
        (setq sset (ssname ss (setq i (1+ i))))
         (setq obj-area (vla-get-area (vlax-ename->vla-object sset)))
         (setq area (+ obj-area area))
        )
         (alert (strcat "The Sum/Total of selected Hatches is : "
                        " "
                        (rtos area 2)
                )
         )
    )
     -1
   )
   (alert "No Hatches found ")
 )
 (princ)
)

 

 

Et enfin une autre routine "connexe" de Gilles (gile)

qui reconstruit les Contours des Hachures

 

Restriction: le calque des hachures ne doit pas etre verrouille !

 

 

;;
;; par GC le Lundi 22 Mars 2010
;; Recreer les contours a partir de hachures 
;;

(defun c:ReBound (/ n ss ent)
 (if (and (setq n -1) (setq ss (ssget '((0 . "HATCH")))))
   (while (setq ent (ssname ss (setq n (1+ n))))
     ( command  "_hatchedit"  ent  "_boundary"  "_polyline"  "_yes" )
   )
 )
 (princ)
)

 

Voilu, voili, voilo ...

 

Toutes ces routines ont ete retestees sur AutoCAD 2013 !

 

lecrabe "decapodesquement votre devoue serviteur"

[grand_sapin]

Bonjour et merci pour ces outils

 

juste une question , comment se fait-il que certaines hachures ne possède plus la surface dans leur propriétés ? y a-t-il une manip type CONVERT comme pour les poly 2D à faire ?

 

Sapin

[crashray]

J'avais besoin de faire un total de surface de Hachure qui se trouve dans un calque. J'ai essayé la routine TotHatch, ça marche pour certaines mais j'ai quelquefois l'erreur :

Choix des objets:  ; erreur: Erreur Automation Entrée incorrecte

 

Sinon ça sert à quoi de reconstruire les contours ?

 

Pour faire mes hachures, je fais une polyligne fermé qui sert de contour et j'utilise la commande hachure en sélectionnant la polyligne comme objet.

[x_all]

Quand une hachure a été définie par polygone, et que ce polygone est un peu bizare (point doubles retour en arrière pour faire une zone vide ..) la propriétée aire du contour est bonne, mais celle de la hachure bugge...

 

Peut etre pour ça qu'il recrée un contour propre...

[jcouaknine]

Bonjour,

Et merci beaucoup lecrabe