Uno dei metodi che risolve la situazione, è il seguente:
(defun c:st_el ()
(vl-load-com)
(setq percorso (getstring "immetti percorso: "))
(setq lista_dwg (vl-directory-files percorso "*.dwg" 1))
(foreach disegno lista_dwg
(setq nn (vla-open (vla-get-Documents (vlax-get-acad-object))
(strcat percorso "\\" disegno)
)
)
(vla-close nn :vlax-true)
)
)
Poi crei un lisp con i comandi che desideri:
(defun C:PIPPO ()
(command "_zoom" "e" "_plot" .....)
)
Carichi questo file con il comando APPLOAD --> gruppo di avvio e successivamente fai partire il lisp ST_EL. In ogni file aperto della cartella dei disegni partiranno i comandi specificati in PIPPO.LSP.
Ricordati alla fine di rimuovere il file PIPPO.LSP dal gruppo di avvio, altrimenti ogni file aperto subirà lo stesso trattamento.
Il metodo non è il massimo dal punto di vista estetico ma funziona.
