[Résolu] Petit problème entre insérer un bloc et une XRef

[DenisHen]

Bonjour à la communauté.

 

Voilà, j'ai écris un petit code qui insert un bloc puis le décompose... Le voici :

(defun c:Axians_FDP (/)
 (setq old_osmd 	(getvar "osmode")
       old_abase    (getvar "angbase")
       old_adir 	(getvar "angdir")
       old_aunits   (getvar "aunits")
       old_cmdecho  (getvar "cmdecho")
       old_AttDia   (getvar "attdia")
       old_AttReq   (getvar "attreq")
       old_layer    (getvar "clayer")
       old_Insunits (getvar "insunits")
 ) ;_ Fin de setq
 (setvar "osmode" 1)
 (setvar "angbase" 0)
 (setvar "angdir" 0)
 (setvar "cmdecho" 0)
 (setvar "aunits" 2)
 (setvar "ATTDIA" 0)
 (setvar "ATTREQ" 0)
 (setvar "angbase" (/ pi 2))
 (setvar "angdir" 1)
 (setvar "clayer" "0")
 (setvar "insunits" 4)
 (command "-unites" "2" "2" "3" "2" "0,0" "@0,1" "O")
 (command "pdmode" "32")
 (command "pdsize" ".1")
 (command "PLINEGEN" "1")
 (command "-couleur" "ducalque")
 (command "filedia" "0")
;;;Insertion du DWG
 (setq app  (vlax-get-acad-object)
       cdoc (vla-get-activedocument app)
 ) ;_ Fin de setq
 (vla-purgeall cdoc)
 (setq fichier (getfiled "Sélection du plan DWG issu de MicroStation"
                         (strcat (vl-filename-directory (vla-get-fullname cdoc)) "/")
                         "dwg"
                         4
               ) ;_ Fin de getfiled
 ) ;_ Fin de setq
 (command "-inserer" fichier "0,0" "1" "1" "")
 (command "_explode" (entlast))
)

Mon problème est que l'insertion se fait bien, la décomposition aussi, mais ce même fichier se retrouve également en référence externe...?

 

Si quelqu'un a une astuce ou une idée, je suis preneur...

 

Denis...

[DenisHen]

Pfff....

 

Au temps pour moi... Un collègue avait attaché une XRef à ce fichier pendant que le programmais...

 

Désolé... :(