AUTOCAD LT2000

[man]

Est il possible de compter les blocs dans un dessin et exporter le resultat sur un tableau execl ?

[Ph.V]

 

Il est possible d'en afficher la liste: taper "-inserer" sur la ligne de commandes, choisir "?" dans les options, valider "*" pour lister les blocs, puis faire un copier/coller de cette liste dans excel.

Il faut bien faire attention à mettre le tiret qui correspond à la touche 6 du clavier devant inserer pour accéder à cette méthode, qui n'est autre que l'ancienne procédure d'insertion de blocs dans Autocad (avant l'arrivée de windows).

[Tramber]

Si tes blocs ont des attributs, OK

Si tes blocs n'ont pas d'attributs, Dommage

 

 

Outils -> Extraire les attributs, compte les blocs

Ne pas ouvrir le fichier généré autrement qu'en tant que fichier texte depuis Ouvrir dans XLS

[Tramber]

Sinon, il faut user de la commande FILTER et se faire des copier-coller à la main.

 

Filter -> Nom de bloc est assez puissant car il accepte les * et les ? pour filtrer les noms en 2ème niveau.

 

Pour les utilisateurs de bon niveau, sinon, il y a d'autres trucs.

[Oli553]

 

:cool: Sinon tu peut aller sur le site de DRC AUTO (www.drcauto.com) et télécharger la démo de Super Tools volume 1 ou aussi allez sur le site http://www.traceparts.com/fr et y télécharger la bibliothéque que tu souhaite (elec, plomberie...). Celle ci exporte vers Excel.

[man]

Est il possible de compter les blocs dans un dessin et exporter le resultat sur un tableau execl ?

 

 

Je me suis mal fait comprendre je voudrais compter le nombre de chaque blocs et non la totalité!

 

[Oli553]

Il est possible d'en afficher la liste: taper "-inserer" sur la ligne de commandes, choisir "?" dans les options, valider "*" pour lister les blocs, puis faire un copier/coller de cette liste dans excel.

Il faut bien faire attention à mettre le tiret qui correspond à la touche 6 du clavier devant inserer pour accéder à cette méthode, qui n'est autre que l'ancienne procédure d'insertion de blocs dans Autocad (avant l'arrivée de windows).

 

Oui mais cela ne donne apparement pas le détail du nombre /type de bloc.

[Oli553]

T'as été plus rapide.

Le 2e lien que je te donne reste le plus efficace, rapide, et facile (et pas cher) pour réaliser ce que tu veut.

[man]

Est il possible de compter les blocs dans un dessin et exporter le resultat sur un tableau execl ?

 

Ok, merci bien pour ces réponses mais ca me conviens pas vraiment.

Je connais la commande "comptbloc" sous Autodesk Architectural Desktop; j'aurais voulu une commande identique dans le principe mais pouvant "coller ou exporter" sous un tableau execl le compte des blocs par types de blocs et sur plusieurs colonnes execl.

[Tramber]

J'insiste mais il faut faire des blocs avec attributs.

ATTEXTR est parfait pour ce que tu cherches. Parfait pour EXCEL

[Oli553]

;) J'insiste aussi et je repete que le logiciel de trace software le fait trés bien si tu as une version LT (apparement vu le titre du sujet, et si oui tu aurais du le mettre dans le forum LT200/2002) :P

[Oli553]

Si tu veux en savoir plus va voir le sujet "applicatif electrique" dans le forum Autocad LT2004

[Patrick_35]

On peut compter des blocs grace à la commande _filter aussi bien sur une LT que sur une version complète

 

@+

[Oli553]

Et comment s'en sert t'on?

Merci d'avance

[Patrick_35]

Tu lance la commande déplacer par exemple, pendant la sélection, tu lance la commande '_filter (en transparent), tu clic sur ajouter un objet sélectionné, tu choisis un bloc dans ton dessin et dans la liste, tu ne garde que les éléments dont tu as besoin (objet=bloc, nom du bloc="toto", le calque éventuellement...).

Tu applique ton filtre et tu revient dans ta sélection. Tu tape tout dans ta sélection+entrée et tu vois que le filtre ne laisse passer que ce tu as choisi précédemment. Tu valide encore une fois, et cette fois-ci tu a le nombre d’objet sélectionnés. Ton décompte est fait, il ne reste plus qu ‘à faire esc. pour ne pas les bouger

 

@+

 

[Oli553]

Merci pour la réponse.

mais je crois que Man veut pouvoir l'exporter dans Excel, est ce possible?

[Tramber]

Comme dit + haut, FILTER-> Nom de bloc accepte de sous-filtrer avec un modèle qui accepte:

* remplace plusieurs caractères

? remplace un seul caractère

[Patrick_35]

Exporter le décompte sur excel, à moins de gérer plusieurs milliers de blocs, autant le faire en manuel, c'est bien plus simple, sinon par un prog de préference en vba

 

@+

[Tramber]

:mad2:

 

Mettre des attributs à ses blocs.

 

:casstet:

 

C'est quand même le mieux.

 

:question:

 

Quand pensez-vous ?

[Patrick_35]

Mettre des attributs à tes blocs, Tramber, pourquoi pas, mais pour faire quoi ?

 

@+

[Tramber]

1. Pour les programmes, ca donne de l'intelligence à l'objet. En Autolisp, on y accède super facilement.

2. Pour les extractions vers EXCEL (même 1 attribut invisible à valeur constante) car seuls les blocs avec attributs sont extractibles.

3. L'extraction d'attribut sur 2002 (non LT) et sur 2004 est très puissante.

[Oli553]

Oui pour quoi?

 

Et puis, pour répondre à patrick-35, j'ai au minimum une 50aine de bloc différent sur mes plans.

Les faires 1 à 1 risque d'etre long et en oublié 1 est vite arrivé.

:cool:

[Oli553]

Comme dit + haut, FILTER-> Nom de bloc accepte de sous-filtrer avec un modèle qui accepte:

* remplace plusieurs caractères

? remplace un seul caractère

 

Sa me décompte bien tous les blocs mais sa ne me dit pas qu'il ya N fois le même bloc et sa ne fait pas de liste.

maintenant peut etre ai-je oublié une commande.

Et je ne vois pas comment exporter vers Excel?

[Patrick_35]

Pour Tramber, pour les attributs, sur 2004, j'attend d'évoluer et la solution que tu propose reste à étudier, mais why not...

 

Pour Oli553, je pense qu'on fait le même métier, voici un lisp que je me sert régulièrement, ça n'empêche pas le décompte des inters/pc à la main à cause des plaques

Tu peut créer un fichier texte à ouvrir depuis Excel en txt

 

@+

 

;;;=================================================================

;;;

;;; LEGENDE.LSP V1.30

;;;

;;; Copyright © Patrick_35

;;;

;;;=================================================================

 

 

(defun c:leg(/ s)

 

 

;;;-----------------------------------------------------------------

;;;

;;; Gestion des erreurs

;;;

;;;-----------------------------------------------------------------

 

 

(defun *errleg* (msg)

(if (/= msg "Function cancelled")

(if (= msg "quit / exit abort")

(princ)

(princ (strcat "\nErreur : " msg))

)

(princ)

)

(setq *error* s)

(princ)

)

 

 

;;;-----------------------------------------------------------------

;;;

;;; Création de la legende

;;;

;;;-----------------------------------------------------------------

 

 

(defun faire_legende(/ a d f i n r ttt)

 

(setq n (tblnext "block" 14))

(if (/= n nil)

(progn

(setq d (getvar "dwgname"))

(initget "Oui Non")

(setq r (getkword "\nVoulez-vous écrire la legende dans un fichier Oui / : "))

(if (= r "Oui")

(progn

(setq f (open (strcat d ".leg") "w"))

(princ (strcat "\nEcriture du fichier " (strcat d ".LEG") " sur le disque."))

)

)

(while (/= n nil)

(if (/= (zerop (logand 53 (cdr (assoc 70 n)))) nil)

(progn

(setq a (cdr (assoc 2 n)))

(setq i (ssget "_x" (list (cons 2 a))))

(if (/= i nil)

(progn

(setq i (itoa (sslength i)))

(while (< (strlen a) 8)

(setq a (strcat a " "))

)

(while (< (strlen i) 4)

(setq i (strcat " " i))

)

(setq ttt (strcat "Nombre de bloc(s) " (chr 34) a (chr 34) " -----> " i))

(if (= r "Oui")

(progn

(write-line ttt f)

(princ ".")

)

(princ (strcat "\n" ttt))

)

)

)

)

)

(setq n (tblnext "block"))

)

(if (= r "Oui")

(progn

(close f)

(princ "Terminé")

)

)

)

(alert "\nAucun bloc dans le dessin")

)

)

 

 

;;;-----------------------------------------------------------------

;;;

;;; Lancement

;;;

;;;-----------------------------------------------------------------

 

 

(setq s *error*)

(setq *error* *errleg*)

(faire_legende)

(setq *error* s)

(princ)

)

 

(setq nom_lisp "LEG")

(if (/= app nil)

(if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp)

(princ (strcat "..." nom_lisp " chargé."))

(princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))

(princ (strcat "\n" nom_lisp ".LSP Chargé......Tapez " nom_lisp " pour l'éxecuter.")))

(setq nom_lisp nil)

(princ)

 

[nath2b]

euh... moi si j'ai des blocs j'utilise aussi ATTEXTR (avant j'ai créer un fichier txt d'extraction d'attributs ou de x, y ) j'exporte mes données en SDF puis je rexeporte vers excel non?