Extraire des blocs

[grand_sapin]

Bonjour,

 

j'ai un dessin "gabarit" où sont répertoriés tous les blocs de la "charte graphique" à utiliser.

J'aimerai les extraire tous afin de pouvoir créer une commande pour les insérer un par un.

Je me vois mal faire un WBLOC pour chacun d'eux.

Y a-t-il un moyen plus rapide d'effectuer cela ?

 

D'avance Merci

Sapin

[lecrabe]

Hello

 

J'ai une vieille routine WBLOCKM qui marche tres bien !

Tu crees un dossier/catalogue du genre "C:\TRAVAIL"

et tu lui indiques CE dossier a la question "DS> Target Folder:" !

 

lecrabe

 

; ----------------------------------------------------------------------
;          (Wblocks all local block definitions to target path)
;            Copyright (C) 2000 DotSoft, All Rights Reserved
;                   Website: http://www.dotsoft.com
; ----------------------------------------------------------------------
; DISCLAIMER:  DotSoft Disclaims any and all liability for any damages
; arising out of the use or operation, or inability to use the software.
; FURTHERMORE, User agrees to hold DotSoft harmless from such claims.
; DotSoft makes no warranty, either expressed or implied, as to the
; fitness of this product for a particular purpose.  All materials are
; to be considered ‘as-is’, and use of this software should be
; considered as AT YOUR OWN RISK.
; ----------------------------------------------------------------------

(defun c:wblockm ()
 (setq cmdecho (getvar "CMDECHO"))
 (setvar "CMDECHO" 0)
 ;
 (if (not dos_getdir)
   (setq path (getstring "\nDS> Target Folder: " T))
   (setq path (dos_getdir "Target Folder" (getvar "DWGPREFIX")))
 )
 (if (/= path nil)
   (progn
     (if (= (substr path (strlen path) 1) "\\")
       (setq path (substr path 1 (1- (strlen path))))
     ) 
     (princ "\nDS> Building List of Blocks ... ")
     (setq lst nil)
     (setq itm (tblnext "BLOCK" T))
     (while (/= itm nil)
       (setq nam (cdr (assoc 2 itm)))
       (setq pass T)
       (if (/= (cdr (assoc 1 itm)) nil)
         (setq pass nil)
         (progn
           (setq ctr 1)
           (repeat (strlen nam)
             (setq chk (substr nam ctr 1))
             (if (or (= chk "*")(= chk "|"))
               (setq pass nil)
             )
             (setq ctr (1+ ctr))
           )
         )
       )
       (if (= pass T)
         (setq lst (cons nam lst))
       )
       (setq itm (tblnext "BLOCK"))
     )
     (setq lst (acad_strlsort lst))
     (princ "Done.")
     ;
     (foreach blk lst
       (setq fn (strcat path (chr 92) blk))
       (if (findfile (strcat fn ".dwg"))
         (command "_.WBLOCK" fn "_Y" blk)
         (command "_.WBLOCK" fn blk)
       )
     )
   )
 )
 ;
 (setvar "CMDECHO" cmdecho)
 (princ)
)

[grand_sapin]

Merci Crabounet

 

Et sinon, j'imagine que c'est un réglage, mais j'ai ce message à chaque création de bloc, peut-on le faire disparaître ?

(c'est un petit peu chiant...)

 

 

 

 

Sapin

[philsogood]

Hello

Je peux dire une connerie?

pourquoi tu ne vas aps chercher ces blocs à partir de Designcenter en sélectionnant ton fichier...

c'est sûr que si t'as 753 blocs ya un peu de cliquer-glisser...

Phil

[grand_sapin]

T'as tout pigé !

 

mais tu exagères, j'en ai que 634 !

[lecrabe]

Hello

 

Euh NON, car ce cretin de MAP (ou CIVIL) pose sans arret la question "Voulez-vous ..."

sur cette fameuse commande WBLOC / WBLOCK ...

donc tu restes sur la lettre "O" du clavier !

 

Sorry, lecrabe

[grand_sapin]

Super classe !

c'est ce que j'ai fait !

Sapin, bloqué sur la touche "o"

[bryce]

Bonjour,

 

Sur Autodesk Exchange, il y a un plugin gratuit appelé AutoWblock (par DotSoft), qui fonctionne bien.

[lecrabe]

Hello

 

NON teste mais je crains que cela ne change pas grand chose !?

car quand tu fais un manuellement une commande WBLOC / WBLOCK

automatiquement MAP (ou CIVIL) te pose cette question debile qui ne sert a rien

"Inclure les Informations MAP ..."

En plus que tu repondes Oui ou Non, cela ne change RIEN au resultat !

 

AU fait, c IDEM avec EXPERT = 5

 

lecrabe