Lire la définition d\'un bloc

[pros2i]

Bonjour,

 

J'ai un dessin créé par Méchanical 2010.

Lorsque je l'ouvre en Autocad 2010, les rugosités créées par Méchanical sont transformées en blocs.

Je cherche un lisp qui me permettrai d'afficher la liste des rugosités avec les valeurs des rugosités, pour cela je dois lire le contenu du bloc mais je ne sais pas faire.

 

Merci

 

Pat

[(gile)]

Salut,

 

Ne connaissant pas Mechanical, je ne suis pas certain de bien comprendre la demande.

Peux tu préciser et mettre en ligne un fichier contenant ces mystérieux blocs ?

 

En attendant, tu peux copier cette expression en ligne de commande pour lire les données DXF de la définition de bloc (remplacer "Nom DuBloc" par le nom du bloc)

((lambda ()
  (mapcar 'print (entget (tblobjname "block" "Nom DuBloc")))
  (textscr)
  (princ)
)
)

 

Ou celle-ci pour lister les composants du bloc

((lambda (blk / nent)
  (while (setq	nent (entnext (cond (nent) (blk))))
    (print (cdr (assoc 0 (entget nent))))
  )
  (textscr)
  (princ)
)
 (tblobjname "block" "Nom DuBloc")
)

[pros2i]

Bonjour Gile

 

Ce qui m'intéressait de connaître, c'est le texte dans MTEXT et éventuellement de modifier le texte.

 

J'y suis arrivé grâce à ton 2ème code avec des modifications.

 

 ((lambda (blk / nent)
  (while (setq nent (entnext (cond (nent)
                                   (blk)
                             )
                    )
         )
    (print (cdr (assoc 0 (entget nent))))
    (if (= (cdr (assoc 0 (entget nent))) "MTEXT")
      (progn
        (print (cdr (assoc 1 (entget nent))))
        (setq entite (entget nent))
        (setq entite (subst (cons 1 "tot") (assoc 1 entite) entite))
        (entmod entite)
      )
    )
  )
  (textscr)
  (princ)
)
 (tblobjname "block" "NomDuBloc")
)

 

 

Merci

 

Pat