message insertion de X-refs

[leduj]

Bonjour,

 

J'ai des messages d'erreurs "Sélectionner fichier forme" quand j'insère des x-rèfs. Est-ce qu'il y a un moyen d'enlever ces messages d'erreurs. Et je suis toujours obliger de mettre annuler.

 

Merci d'avance.

[lili2006]

Bonsoir à toutes et tous,

 

(gile) à écris ceci pour résoudre le pb =>

 

;;; RFORM (gile)

;;; Remplace les fichier de forme shx introuvables par ltypeshp.shx



(defun c:rform  (/ name font ext)

 (vl-load-com)

 (or *acdoc*

     (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object)))

 )

 (vlax-for ts (vla-get-TextStyles *acdoc*)

   (setq name (vla-get-Name ts)

  font (vla-get-FontFile ts)

   )

   (if	(and

         (= 1 (logand 1 (cdr (assoc 70 (tblsearch "STYLE" name)))))

         (setq ext (vl-filename-extension font))

  (= (strcase ext) ".SHX")

  (not (findfile font))

)

     (vla-put-FontFile ts "ltypeshp.shx")

   )

 )

 (princ)

)