importer un style de cotation

[zebulon_]

Bonjour,

 

ce que je cherche à faire, c'est d'importer dans le fichier courant un style de cote à partir d'un autre fichier, pas forcément ouvert. Un peu ce qu'on peut faire avec designcenter, mais en vlisp ?

 

Pour l'instant, je bricole en insérant un bloc contenant une cote qui est sur le style en question. c'est pas très propre, mais ça marche.

(defun create_dimstyle (ECH)  ;; ECH contient 50 pour le 50ème etc...
 (setq dimname (strcat "CADSYS-COT-" ECH))
 (if (not (tblsearch "DIMSTYLE" dimname))
   (progn
     (setq NOMFIC (findfile "CADSYS-COT.DWG")) ;; le fichier contenant le style de cote cadsys-cot-1
     (command "_insert" NOMFIC '(0 0 0) "1" "" "0")
     (command "_erase" (entlast) "")
     (command "_purge" "_bl" "CADSYS-COT" "_n")
     (command "_dim1" "_restore" "CADSYS-COT-1")
     (command "_dim1" "DIMSCALE" ECH)
     (command "_dim1" "_save" dimname)
   )
 )
 (command "_dim1" "_restore" dimname)  
) 

 

Zebulon_

 

[Edité le 14/12/2005 par zebulon_]