Betriebskosten

[Angelo2449]

Hallo alle,
Ich schrieb diesen Code:

 (defun pn2 (/corr1 hpn ....................................................................................................................................................................
...
...
(falls = Zeiten "1")
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(sevenq mal "2")
(setq fp1 (open "c:\\\\autocadsupport\\\\varie\datipuntonascosto.dat" "w"))
(writing line hvtxt fp1)
(writ-line-Zeiten fp1)
(writ-line Höhendifferenz Punktnascostotxt fp1)
(Schließe fp)
(runapp "c:\\autocadsupporto\\libertytre\dronevolte1.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte1.tkn" :vlax-true)

(seq Antwort (getcliptext)
(princ "\n")
(princ)
(princ reply)
(princ "\n")
(falls)
(pn)
;
;
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(runapp "c:\\autocadsupporto\\libertytre\dronevolte2.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte2.tkn" :vlax-true)
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\datidrone.dat"))
(wenn (= control1 "c:\\autocadsupport\\\\\\\datidrone.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datidrone.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\quotepuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\'quotepuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\quotepuntonascosto.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\\\datipuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\datipuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datipuntonascosto.dat")
;
;
;

das Verfahren > dronevolte1.exe < gibt nach der Ausführung tatsächlich "ja" als Antwort < > pn2 < zum zweiten Mal nicht teil.
Ich habe auch mit anderen Verfahren versucht, anstatt > pn2 < aber kein Teil.
Warum?
Vielen Dank.

 

[rpor66]

der relative Code manchmal=2 Ich würde es in der Bedingung heiraten, ohne pn2 in einer rekursiven Weise zu erinnern:

(defun pn2 (/corr1 corr2 hpn .................................................................. )
(falls = Zeiten "1")
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(sevenq mal "2")
(setq fp1 (open "c:\\\\autocadsupport\\\\varie\datipuntonascosto.dat" "w"))
(writing line hvtxt fp1)
(writ-line-Zeiten fp1)
(writ-line Höhendifferenz Punktnascostotxt fp1)
(Schließe fp)
(runapp "c:\\autocadsupporto\\libertytre\dronevolte1.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte1.tkn" :vlax-true)

(seq Antwort (getcliptext)
(princ "\n")
(princ)
(princ reply)
(princ "\n")
(falls)
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(runapp "c:\\autocadsupporto\\libertytre\dronevolte2.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte2.tkn" :vlax-true)
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\datidrone.dat"))
(wenn (= control1 "c:\\autocadsupport\\\\\\\datidrone.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datidrone.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\quotepuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\'quotepuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\quotepuntonascosto.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\\\datipuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\datipuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datipuntonascosto.dat")
;
;
;
;
;
)

 

[Angelo2449]

Ich habe deine Version angewendet, aber es funktioniert nicht.
Meine Absicht ist, > pn2 < bei > antwort < = "ja" neu zu starten.
Danke.

 

[Angelo2449]

Ich versuchte, das Programm zu ändern, indem ich eine Routine namens > pn3 < (hier nicht vorhanden) gleich > pn2 <, versuchen, es auf die Antwort "ja" zu starten, aber nichts passiert, keine Fehlermeldung gegeben wird!

 (falls = Zeiten "1")
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(sevenq mal "2")
(setq fp1 (open "c:\\\\autocadsupport\\\\varie\datipuntonascosto.dat" "w"))
(writing line hvtxt fp1)
(writ-line-Zeiten fp1)
(writ-line Höhendifferenz Punktnascostotxt fp1)
(Schließe fp)
(runapp "c:\\autocadsupporto\\libertytre\dronevolte1.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte1.tkn" :vlax-true)

(seq Antwort (getcliptext)
(princ "\n")
(princ)
(princ reply)
(princ "\n")
(falls)
(pn)
;
;
(Progn)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ mal)
(princ "\n")
(runapp "c:\\autocadsupporto\\libertytre\dronevolte2.exe "c:\\\\autocadsupporto\libertytre\\\dronevolte2.tkn" :vlax-true)
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\datidrone.dat"))
(wenn (= control1 "c:\\autocadsupport\\\\\\\datidrone.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datidrone.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\quotepuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\'quotepuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\quotepuntonascosto.dat")
;
;;---------------------------------------------------------------------------------------------------------------------------------------------------------
(seq control1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\\\\\\\\\datipuntonascosto.dat"))
(wenn (= control1 "c:\\\autocadsupport\\\\\\\datipuntonascosto.dat")
(vl-file-delete "c:\\autocadsupport\\varie\datipuntonascosto.dat")
;
;
;

 

[rpor66]

bedeutet nicht, dass wenn die Antwort "ja" nicht die dronevolte2.exe-Datei startet?
Sind Sie sicher, dass die Antwort "ja", haben Sie versucht, die Länge der Saite zu überprüfen?

 

[Angelo2449]

Nach vielen Änderungen reagiert das Programm schließlich auf die Antwort "ja" sagt mir jetzt, dass es keine Funktion > pn3> gibt, aber es ist schon eine andere Sache!
Ich weiß.

 

[Angelo2449]

Okay, jetzt ist das Problem ein anderes!
die Funktion > pn3 < es gibt keine Fehler.
Beginn der Funktion > pn2 < beim Start > pn3 < Empfang
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
; Fehler: keine Funktionsdefinition: pn3
Es ist unbewaffnet!
Danke.

 

[Angelo2449]

Ich habe das Problem auf einfache, aber funktionale Weise gelöst.
Ich habe die Funktion > pn3 < innerhalb eines einzigen Programms geschaffen, so daß > pn2 < pn3 < pn3 < pn3 < pn2 < pn2 < s > pn3 < pn3 < pn3 < pn3 < pn2 < pn2 < s > pn3 < pn3 < pn3 < s < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < <
alles funktioniert perfekt.
Vielen Dank.