FICHIER BLOQUE

[malone]

Bonjour,

je travaille sur un fichier ou j'ai regroupé tous mes blocs ,

mon fichier c'est sauvegardé et fermé sur l'éditeur de bloc : quand j'ouvre le fichier, je me retrouve dans l'éditeur de bloc, j’appuie  sur fermer le bloc, de fait je ne récupère pas les autres blocs créé dans le fichier.

Pouvez vous me dire comment je peux récupérer les données.

Merci.

Cordialement.

[Erased]

Salut,

je ne comprends pas pourquoi la fermeture de l'éditeur de bloc entraine la suppression des autres blocs déjà enregistrés dans ton affaire. Peux-tu partager ton fichier s'il te plait ?

[malone]

il y a 40 minutes, malone a dit :

Bonjour,

je travaille sur un fichier ou j'ai regroupé tous mes blocs ,

mon fichier c'est sauvegardé et fermé sur l'éditeur de bloc : quand j'ouvre le fichier, je me retrouve dans l'éditeur de bloc, j’appuie  sur fermer le bloc, de fait je ne récupère pas les autres blocs créé dans le fichier.

Pouvez vous me dire comment je peux récupérer les données.

Merci.

Cordialement.

 

BIBLIO_AlterEgo.dwg

[malone]

Voici le fichier qui pose probleme

BIBLIO_AlterEgo.dwg

[Erased]

Le fichier s'est ouvert normalement avec tous les blocs.

 

Joint le fichier ré-enregistré.

BIBLIO_AlterEgo.dwg

[didier]

Bonjour @malone

J'ai testé le fichier que tu as envoyé.
Effectivement, il y a un petit souci, car il a été fermé avec l'éditeur de bloc ouvert et donc il demande d'ouvrir cet éditeur de bloc.
La solution est de lancer RECUPERER, d'aller chercher sur le disque le dessin là où il est et valider.

AutoCAD va mouliner en testant les entités pour finir par délivrer un message rassurant et permettre au dessin de s'ouvrir complètement normalement.

Amicalement

 

[malone]

Bonjour,

merci Didier pour ton retour.

j'ai essayé la fonction Recuperer: je n'ai recuperer que les 3 blocs qui se trouvaient dans l'editeur de bloc.

En fait le fichier contient des centaines de blocs que je ne parvient à retrouver. Lorsque je vais dans le designcenter ils sont repérés, mais pas visible dans le dit fichier.

avez vous une solution pour peut etre retranscrire les blocs visible sur le designcenter et le remettre sur le fichier?

Merci à vous.

En vous souhaitant une bonne année.

[malone]

Bonjour Erased,

le fichier que tu m'as renvoyé ne contient qu'un seul bloc.

Or ce fichier, à la base contient des centaines de blocs que je voudrais retrouver dans le fichier.

Merci a toi.

[benoitlacroix]

Bonjour @malone et bonjour à toutes et à tous

Je suis d'accord avec @didier il y a quelque chose de bizarre dans ton fichier que je n'explique pas. Par contre, je peux t'expliquer comment retrouver tous tes blocs dans ton fichier, tu tapes la commande Inserer ou Inserclassique et tu va retrouver tous tes blocs.

@+

 

[bonuscad]

Il y a 4 heures, benoitlacroix a dit :

tu tapes la commande Inserer ou Inserclassique et tu va retrouver tous tes blocs

Bien d'accord

Mais ce fichier est constitué de blocs qui ont été récupéré de plein de manières (xrefs liés) et de différentes sources (même chinoise)

Au total j'en trouve 621

J'ai ouvert le fichier et exécuté ceci

(defun xplore (l / ent )
  (while (setq ent (entnext (cdar l)))
    (setq l (entget ent))
    (if (eq (cdr (assoc 0 l)) "INSERT")
      (xplore (entget (cdr (assoc -2 (tblsearch "BLOCK" (cdr (assoc 2 l)))))))
    )
    (if (eq (cdr (assoc 0 l)) "ATTDEF")
      (write-line (strcat "Etiquette = " (cdr (assoc 2 l)) " ; Valeur = " (cdr (assoc 1 l))) f_open)
    )
  )
)
(defun c:block_summary ( / first_blk l_blk n_blk js)
  (setq
    tmp (vl-filename-mktemp "list_blocks.txt")
    f_open (open tmp "w")
  )
  (setq first_blk (tblnext "BLOCK" T))
  (cond
    (first_blk
      (setq l_blk (list first_blk))
      (while (setq n_blk (tblnext "BLOCK"))
        (setq l_blk (cons n_blk l_blk))
      )
      (foreach n l_blk
        (setq js (ssget "_X" (list (cons 0 "INSERT") (assoc 2 n))))
        (write-line (strcat "BLOC : " (cdr (assoc 2 n)) " " (itoa (if js (sslength js) 0)) " insertion(s)") f_open)
        (cond
          ((< (cdr (assoc 70 n)) 4)
            (setq dxf_lst (entget (cdr (assoc -2 n))))
            (xplore dxf_lst)
          )
          (T (princ " -> XREF. Définition ignorée"))
        )
        (print)
      )
    )
    (T
      (princ "\nPas de blocs définis!")
    )
  )
  (close f_open)
  (startapp "notepad" tmp)
  (prin1)
)

Les noms comportant par exemple des "\U+5F00\U+653E\U+529E\U+516C09" correspondent aux caractères chinois...