SOMME ET CALCUL DE DEBITS

[vince3d]

;) Depuis le forum Autocad 2004 on m’as vivement conseiller de poster mon message ici.

Je travail dans un BE fluides à Strasbourg, et nous travaillons sur un gros projet (90 000m2 environ) et la ça se complique: Nous avons des débits d’air pour chaque pièces or nous avons des débits intermédiaires sur le réseau de ventilation qui alimente ces pièces , si un débit de pièces change il faut ressaisir tous les débits intermédiaires et cela sur plusieurs niveaux ;c’est long et fastidieux et on est pas à l’abris d’une erreur. Existe t il un moyen dans autocad 2004 (par les attributs peut-être ???) de pouvoir modifier automatiquement la valeur de mes débits intermédiaires quand je change la valeur de mes débits de pièces ?

Plus de détails :

Je veux mettre à jour des textes qui sont sur un calque précis. J’ai des débits je les appelles QV1 QV2 QV3 QV4…etc. ces débits se rejoigne sur un tronçon de gaines et ou je met un rappel de débits en texte QVT1 avec QVT1=QV1+QV2+QV3+QV4 . Or si je change QV2 ou QV3 alors QVT1 change aussi Je cherche un moyen ou QVT1 s’incrémenterai automatiquement si QV2 ou QV3 change. En effet sur un même réseaux j’ai jusqu'à QV200 et QVT50 et sur des niveaux différends.

Attend vos réponses avec impatiente même si li n’y a pas de solution.

Merci

Vince 3D ;)

[Patrick_35]

Salut

J’ai bien une idée pour résoudre ton problème mais se serait en lisp

Tu pourrais faire par exemple un bloc contenant tes cinq attributs et de faire une addition tout simple

Les attributs seraient positionnées par exemple à l'aide des grips sur ton plan

 

@+

[Tramber]

Ca c'est un bon départ.

 

Les attrib, c'est une facon intelligente, hein ?

 

Bien vu, une fonction mettrait ca à jour facilement.

 

Y en a (comme moi) qui parle pour ne rien programmer :P !

[Patrick_35]

Un lisp à la va-vite. Le total se fait sur le premier attribut du bloc sélectionné en addionnant les attributs qui suivent

(defun c:tot(/ ent ent_tot n sel total)
 (setq sel (entsel "\nSélectionnez un bloc de référence : "))
 (if sel
   (progn
     (setq sel (entget (car sel)))
     (if (cdr (assoc 66 sel))
       (progn
         (setq total 0 ent (entget (entnext (cdr (assoc -1 sel)))))
         (while (/= (cdr (assoc 0 ent)) "SEQEND")
           (setq total (1+ total))
           (setq ent (entget (entnext (cdr (assoc -1 ent)))))
         )
         (if (> total 1)
           (progn
             (setq n 0 sel (ssget "_x" (list (assoc 2 sel))))
             (while (ssname sel n)
               (setq total 0 ent_tot (entget (entnext (cdr (assoc -1 (entget (ssname sel n)))))))
               (setq ent (entget (entnext (cdr (assoc -1 ent_tot)))))
               (while (/= (cdr (assoc 0 ent)) "SEQEND")
                 (setq total (+ total (atof (cdr (assoc 1 ent)))))
                 (setq ent (entget (entnext (cdr (assoc -1 ent)))))
               )
               (setq ent_tot (subst (cons 1 (rtos total)) (assoc 1 ent_tot) ent_tot))
               (entmod ent_tot)
               (entupd (cdr (assoc -1 ent_tot)))
               (setq n (1+ n))
             )
             (princ (strcat "\n" (itoa n) " bloc(s) modifié(s)"))
           )
           (alert "Bloc avec un seul attribut.Addition inutile.")
         )
       )
       (alert "Bloc sans attributs.")
     )
   )
 )
 (princ)
)

@+

[vince3d]

Merci pour ton appli je part en vacance 2 semaines et à mon retour je la test au plus vite

Tshaw

Vince 3d ;)