création de legende auto

[BastienF]

Bonjour tout le monde,

 

Voila,

 

je voudrais créer une légende automatique (le bloc, nom du bloc, et quantité)

 

ma version Autocad 2008

 

merci pour vos réponse futur...

 

 

[lili2006]

Bonjour à toutes et tous,

 

Bienvenue BastienF,

 

Tramber (un membre très actif de ce forum) avait créé un lisp qui correspond parfaitement à ta demande =>

 

 ;; TABLOBLO (Tramber)
;; Crée un tableau qui liste les blocs insérés (sélectionnés ou toute la collection)

(defun c:tabloblo
(/ libloc liidbloc ss col liref ptins tableVL cont row)
(vl-load-com)
(or *acdoc*
(setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(prompt "\nSélectionnez les blocs à lister ou ")
(or (setq ss (ssget '((0 . "INSERT"))))
(setq ss (ssget "_X" '((0 . "INSERT")))
col T
)
)
(if ss
(progn
(vlax-for x
(setq
ss (vla-get-ActiveSelectionSet *acdoc*)
)
(or (vlax-property-available-p x 'Path)
(setq liref
(cons
(if (vlax-property-available-p x 'EffectiveName)
(vla-get-EffectiveName x)
(vla-get-Name x)
)
liref
)
)
)
)
(vla-delete ss)
)
)
(if col
(vlax-for i (vla-get-Blocks *acdoc*)
(if (and (not (wcmatch (setq name (vla-get-Name i)) "`**,*|*"))
(= :vlax-false (vla-get-IsXref i))
)
(setq libloc (append libloc (list (vla-get-name i)))
liidbloc (append liidbloc (list (vla-get-ObjectID i)))
)
)
)
(setq libloc (remove_doubles liref)
liidbloc (mapcar
'(lambda (x)
(vla-get-ObjectID
(vla-item
(vla-get-Blocks *acdoc*)
x
)
)
)
libloc
)
)
)
(initget 1)
(setq ptins (trans (getpoint "\nPoint d'insertion: ") 1 0))
(setq tableVL (vla-addtable
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
(vlax-3d-point ptins)
(+ 2 (length libloc))
3
20 ; Hauteur cellule
80 ; Largeur cellule
)
)
(vla-put-VertCellMargin tableVL 4.0) ; Marge verticale
(vla-put-TitleSuppressed tableVL :vlax-false)
(vla-put-HeaderSuppressed tableVL :vlax-false)
(vla-setText tableVL 0 0 "Blocs") ; Titre
(vla-setText tableVL 1 0 "Nom") ; Titre colonne 1
(vla-setText tableVL 1 1 "Nombre") ; Titre colonne 2
(vla-setText tableVL 1 2 "Symbole") ; Titre colonne 3
(setq cont -1
row 1
)
(repeat (- (vla-get-Rows tableVL) 2)
(vla-settext
tableVL
(setq row (1+ row))
0
(nth (setq cont (1+ cont)) libloc)
)
(vla-settext
tableVL
row
1
(length (vl-remove-if-not
'(lambda (n) (= n (nth cont libloc)))
liref
)
)
)
(vla-SetBlockTableRecordId
tableVL
row
2
(nth cont liidbloc)
:vlax-true
)
(vla-setcellalignment tableVL row 0 5)
(vla-setcellalignment tableVL row 1 5)
)
(princ)
)

;;; REMOVE_DOUBLES - Suprime tous les doublons d'une liste

(defun REMOVE_DOUBLES (lst)
(if lst
(cons (car lst) (REMOVE_DOUBLES (vl-remove (car lst) lst)))
)
) 

 

PS : Je me suis permis de déplacer ton post dans le bon forum (2004 => 2008) qui correspond à ta version d'AutoCAD

[benoitlacroix]

bonjour à tous

 

:D alors là, encore une fois, on reconnais les maitres

merci pour cette astuce , c'est un vrai gain de temps. J'en suis tout étourdi de bonheur

c'est grâce à vous , O seigneur de l'autocad, que nous, petits gens, pouvons utiliser notre logiciel préféré comme il se doit

 

merci pour tous

 

 

:exclam:

ps: est- il possible d'apporter une petite modification , si ce n'est pas trop demander.

voila pour avoir le nombre exacte il faut sélectionner tous les bloc d'une manière ou d'une autre. je voudrais comptabilisé tous les blocs avec une sélection sur un bloc.

exemple: sur un plan j'ai 20 bloc type A je dois donc sélection les 20 bloc pour avoir le compte exacte, maintenant si je sélectionne que 1 bloc pourrais-je avoir le nombre total de bloc du plan?

 

a bientôt sur CADxp

[BastienF]

Salut, lili2006, et merci pour ta réponse, mais étant très novice en matière de macros ou lips ou je ne sais trop quoi...

 

je ne sais pas ou mettre cette belle liste...

:o

[Steven]

ps: est- il possible d'apporter une petite modification , si ce n'est pas trop demander.

voila pour avoir le nombre exacte il faut sélectionner tous les bloc d'une manière ou d'une autre. je voudrais comptabilisé tous les blocs avec une sélection sur un bloc.

exemple: sur un plan j'ai 20 bloc type A je dois donc sélection les 20 bloc pour avoir le compte exacte, maintenant si je sélectionne que 1 bloc pourrais-je avoir le nombre total de bloc du plan?

 

Salut benoitlacroix, les tableaux d' AutoCAD (Menu déroulant: Dessin > tableau) détectent les objets dans les blocs.

 

http://www.easy-upload.net/vignettes.php?v=20091110104927

[lili2006]

Bonjour à toutes et tous,

 

BastienF

 

je ne sais pas ou mettre cette belle liste...

 

Cf les explications de (gile) ici,...

[BastienF]

Merci bcp....

 

Mais en cherchant bien j'ai réussi a la mettre la lips ;)

[BastienF]

Re-Salut

 

C est encore moi :P

 

J adore cette Légende Automatique, mais est ce possible que les blocs apparaisse à la

 

même échelle que les blocs de mon dessin ??

[lili2006]

Re,

 

mais est ce possible que les blocs apparaisse à la

 

même échelle

 

J'vois pas trop l'intérêt personnellement, mais bon,...

 

Alors là, il faut s'adresser à un lispeur,..

 

Origine du lisp : Tramber

 

Il me semble que (gile) l'a également retravaillé ,...

[BastienF]

L'intérêt en faite c est que je veux que les blocs de ma légende corresponde exactement

 

a mon plan,

 

J'ai un chef très méticuleux je dois dire ...

 

Ok je vais voir ça avec le dis Lispeur.

 

[lili2006]

Re,

 

Rectif => Pas besoin de Lisp :

 

OUI, il y a possibilité =>

 

Double clic dans la cellule, décochez "Ajustement automatique", puis remettre l'échelle à 1,...

 

http://free0.hiboox.com/images/4609/55193724888efcbfccd37298652bef75.jpg

 

 

PS: Tu peux même insérer un fichier en passant par "parcourir",...ou un bloc interne à ton dessin,

[BastienF]

Ok merci pour l'info !!

 

C'est un gains de temps impressionnant :D

[BastienF]

ps: est- il possible d'apporter une petite modification , si ce n'est pas trop demander.

voila pour avoir le nombre exacte il faut sélectionner tous les bloc d'une manière ou d'une autre. je voudrais comptabilisé tous les blocs avec une sélection sur un bloc.

exemple: sur un plan j'ai 20 bloc type A je dois donc sélection les 20 bloc pour avoir le compte exacte, maintenant si je sélectionne que 1 bloc pourrais-je avoir le nombre total de bloc du plan?

 

Salut benoitlacroix, les tableaux d' AutoCAD (Menu déroulant: Dessin > tableau) détectent les objets dans les blocs.

 

http://www.easy-upload.net/vignettes.php?v=20091110104927

 

 

salut Steven, je ne trouve pas ce tableau ou tu le spécifie ... :(

[Lord Dexter]

Bonjour,

 

Je suis BastienF

 

Je reviens quelques années après sur ce post,

 

Je suis sur AutoCAD 2010 maintenant.

 

Voila mon problème,

 

J'ai créer un bloc dynamique, et j'aimerai faire un quantitatif sur plan comme

 

avec la légende automatique "tabloblo", il me met le nombre exacte de bloc mais qu’un seul symbole ,

 

hors ils sont différents sur plan.

 

Avez vous une solution ?

 

Merci d'avance.

[Steven]

Bonjour BastienF1.

Les Tableaux AutoCAD peuvent quantifier les blocs dynamiques et tu peux mettre à jour ton tableau suivant les modifications que tu y apportes. Suppression ou ajout de blocs.

 

http://data.imagup.com/11/1137323816.png

[lili2006]

Bonjour à toutes et tous,

 

 

 

Steven, ne serais-ce pas une commande Architecture plutôt ?

 

[didier]

Coucou

 

non, non, c'est bel et bien dans les tableaux d'AutoCAD

 

Amicalement

[lili2006]

Re,

 

Merci pour la confirmation Didier,

 

J'avais un doute car sur mon civil3D 2011 =>

 

http://dl.dropbox.com/u/27221064/AutoCAD/MENU%20INSERTION.jpg

[Steven]

la commande clavier est _table

 

Tiens, en voyant ton menu déroulant, je ne voit pas Design Center.

C'est un peu couillon de la part d'Autodesk de ne pas mettre les commandes communes des différents AutoCAD dans les mêmes menu déroulant...

A moins que tu te sois fait tes propres menus déroulants.

[lili2006]

Re,

 

Non non ! Moi aussi j'ai été étonné !!:huh:

 

Je n'ai que cette version sous le coude pour le moment mais je sais que les tableaux existe depuis ma vieille v2008,...

 

D’où l'image ci-dessus !

 

Et il me semble que c'est encore différent sur le MAP 3D 2012,...:blink:

 

PS: Le DC, ainsi que toutes les palettes sont regroupées dans le menu "Outils => Palettes",...

Modifié le 30 novembre 2011 par lili2006

[fabcad]

Bonsoir,

 

Une routine AutoLISP crée par Lee Mac fait ce genre de legende :

 

Table de blocs par Lee Mac

 

çà répond peut-être à ta demande.

 

Bonne soirée,

 

Fabcad

[rebcao]

Bonjour,

 

Je sais le sujet est un peut ancien, mais ça reste plus que jamais d'actualité !

 

J'ai finalisé une application LEGENDE AUTOMATIQUE (téléchargeable) couplée avec EXCEL et prévu pour toutes les versions complètes et LT (de préférence à partir de 2007 - LT 2007)

 

 

 

 

Christian