modifier plusieurs attributs en une seule fois

[onizuka]

Salut,

 

J'ai un fichier DWG, un levé topo en fait, composé de bloc avec attributs, dont les valeurs des attributs sont "135 96", c'est à dire, un espace au lieu d'un point (135.96) :

http://img80.imageshack.us/img80/5927/blocattribut.png

 

Comment remplacer tout ces espaces par un point, d'un seul coup ?

 

Merci d'avance les cadxpiens

[(gile)]

Salut,

 

Tu peux essayer ça :

(defun c:toto (/ doc ss)
 (vl-load-com)
 (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (if (ssget "_X" '((0 . "INSERT") (2 . "POINT")))
   (progn
     (vlax-for	blk (setq
	      ss (vla-get-ActiveSelectionSet
		   (vla-get-ActiveDocument (vlax-get-acad-object))
		 )
	    )
(foreach att (vlax-invoke blk 'GetAttributes)
  (if (= (vla-get-TagString att) "ELEVATION")
    (vla-put-TextString
      att
      (vl-string-subst "." " " (vla-get-Textstring att))
    )
  )
)
     )
     (vla-delete ss)
   )
 )
 (princ)
)

[Patrick_35]

Salut

 

Ou encore en faisant un rechercher/remplacer avec une sélection; un espace par un point.

 

@+

[onizuka]

yes merci. J'ai essayé une première fois la fonction rechercher, ça n'a pas fonctionné. Mais en réessayant à l'instant, c'est bon...J'ai du faire une fausse manipulation.

 

Merci en tous cas.

[RhymOne]

Attention tous les textes ayant un espace sera rempacé....

Faire une copie sous avant et ne garder que les blocs ou il peut il ya avoir des dégats.....

 

Une question immagineons j'ai un calque toto que dans une présentation je gèle ce calque.

Je fait un recherche/remplacer toto par tata....

le calque est toujours gelé ????