SUPRESSION PRESENTATIONS

[lili2006]

Bonjour à toutes et tous,

 

Il me semble que Patrick_35 avait fait un lisp sur cette demande mais impossible de mettre la main dessus !!

 

J'aurai besoin de traiter un répertoire,...

 

Merci d'avance,

[Patrick_35]

Salut

 

Avec ONG, mais je n'ai pas fait de lisp pour traiter un répertoire

 

@+

[lili2006]

Re,

 

Avec ONG

 

Je n'y avait pas pensé !!

 

Est-il possible de le lancer depuis un script et ensuite utiliser SAS de Eric ?

 

je n'ai pas fait de lisp pour traiter un répertoire

 

Il me semblait avoir vu passer ça,....

 

Merci encore,

[Patrick_35]

Est-il possible de le lancer depuis un script et ensuite utiliser SAS de Eric ?

Non

 

@+

[lili2006]

Re,

 

Merci Patrick_35,

[Patrick_35]

Salut

 

(defun c:dla(/ dbx dirbox lay lst fic rep)
 
 (defun dirbox(msg / cdl rep)
   (if (setq cdl (vlax-create-object "Shell.Application"))
     (progn
(and (setq rep (vlax-invoke cdl 'browseforfolder 0 msg 512 ""))
     (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path))
)
(vlax-release-object cdl)
     )
   )
   rep
 )

 (vl-load-com)
 (and  (setq rep (dirbox "Selectionnez un répertoire"))
(setq lst (vl-directory-files rep "*.dwg" 1))
   (foreach fic lst
     (setq dbx (vla-open (vla-get-documents (vlax-get-acad-object)) (strcat rep "/" fic)))
     (princ (strcat "\n Travail sur " fic))(princ)
     (vlax-for lay (vla-get-layouts dbx)
(vl-catch-all-apply 'vla-delete (list lay))
     )
     (princ " ...Sauvegarde")(princ)
     (vla-close dbx :vlax-true)
     (princ " ...OK")(princ)
   )
 )
 (princ)
)

 

@+

[lili2006]

Re,

 

Un grand merci Patrick !

 

Marche imepc!!! :D

[Eric]

Est-il possible de le lancer depuis un script et ensuite utiliser SAS de Eric ?

 

 

Non

 

Hello

 

J'ai pas testé mais pourquoi non ?

[Patrick_35]

Salut

 

A cause de la boite de dialogue

 

@+

[Eric]

A ben dans ce cas la oui, forcément