exploser des cotes ....

[Fraid]

Bonjours,

 

j'ai besoin, pour exporter beaucoup de fichier (+250) vers CorelDraw

 

-d'exploser les cotes

-d'exploser les mtextes

-de vider le calque 0

-d'appliquer un facteur d'echelle de 0.01 a l'ensemble du dessin

-de deplacer le point bas/gauche de l'ensemble au 0,0

 

evidement il faut que cela soit fait ce matin :(

 

Help me......

 

merci

 

 

[Edité le 11/9/2007 par Fraid]

[(gile)]

Salut,

 

Un petit LISP vite fait qui devrait faire ce que tu veux.

 

(defun c:exportcoreldraw (/ echo ss n)
 (setq echo (getvar "cmdecho"))
 (setvar "cmdecho" 0)
 (if (setq ss (ssget "_X" '((0 . "DIMENSION,MTEXT"))))
   (repeat (setq n (sslength ss))
     (command "_.explode" (ssname ss (setq n (1- n))))
   )
 )
 (if (setq ss (ssget "_X" '((8 . "0"))))
   (command "_.erase" ss "")
 )
 (if (setq ss (ssget "_X" '((410 . "Model"))))
   (command "_.move"
     ss
     ""
     (getvar "extmin")
     '(0 0 0)
     "_.scale"
     ss
     ""
     '(0 0 0)
     0.01
   )
 )
 (setvar "cmdecho" echo)
 (princ)
) 

[Fraid]

merci gilles

 

je bloquais de le depart car je mettais cote a la place de dimension

:P