Hello,
I'm trying to translate a script into a lisp and have the following difficulty:
In my batch file, the command to run is as follows
*******************************************
@ECHO OFF
G:
if exist G:\plots\%1d\*.plt rmdir G:\plots\%1d /S /Q
if not exist G:\plots\%1d\*.plt mkdir G:\plots\%1d
echo Duplexdateien werden erzeugt.
echo .
echo Bitte warten.
@ECHO ON
cd \plots\%1v
for %%f in (*.plt) do dup_prn -dc %%f ..\%1\%%f ..\%1d\%%f
cd \plots\%1d
rem Automatische Umwandlung der plt in pdf
call plt2pdf %1
pause
*****************************************
My lisp looks like this:
%%%%%%%%%%%%%%%%%%%%%%%
(defun C:DUP()
(if (null (vl-file-directory-p (strcat "G:/plots/" ascdat "d")))
(vl-mkdir (strcat "G:/plots/" ascdat "d"))
(vl-rmdir (strcat "G:/plots/" ascdat "d"))
)
(print "Duplexdateien werden erzeugt.")
(terpri)
(print "Bitte warten.")
(princ)
(ACET-FILE-chDIR (strcat "G:/Plots/" ascdat "v"))
(startapp "cmd" "for" "%%f" "(*.plt)" "r:/B/Dup_prn/dup_prn.exe" "-dc" "%%f" "/%1/%%f" "/%1d/%%f")
(ACET-FILE-chDIR (strcat "G:/Plots/" ascdat "d"))
(startapp "r:/B/plt2pdf.bat" "%1" pause)
)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
I am aware that it can not work yet because it is not yet finished.
But I need urgent help from a professional.
Can someone help me please?
Many Greetings
CADMAN