Qu utilisez vous pour vos métrés ?

[rebcao]

Ce petit coucou pour relancer le sujet des métrés...

Christian

[Vincent P.]

Salut,

Moi je tourne sous Covadis, donc les métrés sortent avec souvent.
En fonction des situations, je peut utiliser ScanDXF qui avec un export Excel permet de générer des tableaux croisé dynamique.

Et si j'ai des blocs particuliers à attributs à métrer, ATTOUT que je manipule sous Excel pour sortir les info requises.

Mais la discutions vas tourné comme pour les bonnes pratiques, ca dépend pas mal de ton domaine de métier et de ta manière de dessiner!

[lili2006]

Bonjour à toutes et tous,

 

En natif, on arrive à faire pas mal de chose déjà avec l'extraction des données,..

[Curlygoth]

J'ai créé un programme maison pour extraire les données et les envoyer dans des excels

pré-remplir des documents Word (docuement administratif) , Powerpoint (présentation du projet)

et suivant l'importance l'envoie par mail des ces documents avec relecture

[lecrabe]

Hello

J utilise souvent cette excellente routine "TSUR_PL_LAY" de notre Grand Maitre Gilles

qui envoie sur l ecran texte la Surface des Objets par Calque + le Total general ...

ET BIEN SUR elle fonctionne sur AutoCAD LT 2024 !

La Sante, Bye, lecrabe

 

 
;; 
;; Routine: TSUR_PL_LAY par GC pour les *POLYLINE (vs 1.00)
;; 
;; v1.01A : + CIRCLE , MPOLYGON , REGION , ELLIPSE  (Micro-Micro-Modif par Patrice B.) -- 
;; 
;; Total des surfaces par CALQUE 
;; 
;; 2 lignes avec (vla-get-area ent ... 
;; 
;; ATTENTION: la routine PLANTE si on selectionne des Polylignes de type: 3D Maillage / 3D Mesh
;; Car la propriete vla-get-area ou vla-get-length n'existe pas pour ces Entites ... 
;; 
;; RAPPEL: vla-get-length NON Disponible pour les Cercles !
;; 
;; --- Interrogation Entite/Objet en Lisp --- 
;; (entget (car (entsel)) '("*"))
;; 
 
(vl-load-com) 
 
(defun c:TSUR_PL_LAY (/ ent ele lst sel res tot filtre) 

(prompt "\nTSUR_PL_LAY traite: *POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE \n") 

  (setq filtre 'layer) ; Layer pour les calques, Color pour les couleurs, Linetype pour les types de lignes 
;; ConstantWidth : Non Fonctionnel 

  (and (ssget (list (cons 0 "*POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE"))) 

    (progn
      (vlax-for ent (setq sel (vla-get-activeselectionset (vla-get-activedocument (vlax-get-acad-object))))
        (if (setq ele (assoc (vlax-get ent filtre) lst))
          (setq lst (subst (list (car ele) (cons (vla-get-area ent) (cadr ele))) ele lst))
          (setq lst (cons (list (vlax-get ent filtre) (list (vla-get-area ent))) lst))
        )
      )
      (vla-delete sel)
      (setq tot 0)
      (mapcar '(lambda(x)
                (setq tot (+ tot (setq res (apply '+ (cadr x))))) 

                (princ "\nTotal Surface *POLYLINE,CIRCLE,MPOLYGON,REGION,ELLIPSE du "        ) 

                (princ filtre)
                (princ " --> ")
                (princ (car x))
                (princ (strcat " : " (rtos res)))
              )
              (vl-sort lst '(lambda(a B)(< (car a) (car B))))
      ) 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;; (padLeft (rtos (car item) 2 2) 6) 
      (princ (strcat "\nTotal : " (rtos tot))) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

    )
  )
  (princ)
) 

 

[drault]

Le 10/05/2023 à 11:23, Curlygoth a dit :

J'ai créé un programme maison pour extraire les données et les envoyer dans des excels

pré-remplir des documents Word (docuement administratif) , Powerpoint (présentation du projet)

et suivant l'importance l'envoie par mail des ces documents avec relecture

@CurlygothEn quel langage ?

As tu des screen ou video pour voir ?

merci

[Curlygoth]

Vba 🙂

Je pars au canada, j'ai plus autocad mais j'ai ça :

 

Pour word ou PowerPoint c'est le même principe

Tu insers des objets a des positions dans ton document 😉

Cette vidéo est ancienne les cartouche de génère plus vite et beaucoup plus dynamique