Batch script tool

Gestart door Anonymous, za 17 04 2004, 14:26:58

Vorige topic - Volgende topic

Joop

Op een of andere manier werkt de kleur niet goed. :(
De tekst tussen [ en ] niet intypen.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

DanAi

Hallo Joop,

Hoe werkt dit dan?
Moet ik deze aanpassing doen in de BaBe.lsp file?
D.w.z. elke keer als ik een DXF batch wil doen dat ik deze aanpassing moet doorvoeren.
Of althans, een Babe.lsp file gebruiken waar deze aanpassing in staat. En telkens weer switchen als ik weer dwg files wil batchen.
Is er geen ander alternatief? B.v. dat je in het programma BaBe dit kan selecteren?
Ik moet voor een opdrachtgever namelijk bestanden in zowel dxf als dwg aanleveren i.v.m. met de aansturing van hun productie proces.
Daar komt nog eens bij dat de dxf-files in Autocad 12-versie aangeleverd moeten worden.

Joop

Deze wijziging moet je aan brengen (eenmalig) in de BaBe.lsp.
NIET in de lisp routine die je gebruikt voor het bewerken van de tekeningen.
Met de BaBe.lsp maak je het script aan en moet je dus de tekeningen selecteren.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

DanAi

Hallo Joop,

Ik heb geprobeerd om de wijziging door te voeren.
Maar wanneer ik BaBe in autocad activeer krijg ik wel een scherm te zien waar ik files zou kunnen selecteren ware het niet
dat er geen files te zien zijn.
Wat doe ik verkeerd?

gr. DanAi

Joop

ik heb een foutje gemaakt. :(

Met de volgende code zou het moeten lukken.

;;;*=====================================================================
;;; Select files to be processed =
;;;*=====================================================================
(defun SelectFiles (/ SelectedFiles AmountOfFiles)
  (setq SelectedFiles
(dos_getfilem
   "Select Drawings"
   "O:\\AM-workflow\\DOCUMENT\\"
   "Drawing files (*.dwg)|*.dwg|Drawing exchange files (*.dxf)|*.dxf||"
) ;_ end of dos_getfilem
Path (car SelectedFiles)
SelectedFiles
(cdr SelectedFiles)
AmountOfFiles
(vl-list-length SelectedFiles)
SelectedFilesSorted
(acad_strlsort SelectedFiles)
path (ChangeBackslash path)
  ) ;_ end of setq
) ;_ end of defun


Vervang het deel in BaBe.lsp met het bovenstaande.

Succes.
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".

Joop

PS,

Je moet dan wel even in het vensterje "bestandstypen:" het juiste bestandsformaat kiezen.

Joop
Een gelovig volger van
"de Sacrale Kunst van Luiheid",
zijn leider "Lisp" en acoliet "Script".