• Dieses Forum ist die maschinengenerierte Übersetzung von www.cad3d.it/forum1 - der italienischen Design-Community. Einige Begriffe sind nicht korrekt übersetzt.

Retard Programmausführung

  • Ersteller Ersteller Angelo2449
  • Erstellt am Erstellt am

Angelo2449

Guest
Hallo alle,
Ich schreibe ein Animationsprogramm, mein Problem bekommt eine gewisse Verzögerung beim Laufen.
Eine Verzögerung muss unabhängig von der Geschwindigkeit des Prozessors sein und sollte daher an die Zeit gebunden werden.
Ich hänge eine kleine Lippe an, die, zeichnen eine Linie, wählen sie und definieren den Drehpunkt, das Rad eines Winkels von 5°.
Ich habe die Verzögerung von etwa einer Sekunde, ein einfaches externes Programm, das dafür verantwortlich ist.
wie konnte ich das gleiche Ergebnis mit der einzigen Lispe bekommen?
Danke.
Code:
 (defun c:ruotalinea (/ lineax perno copyx angx cont a)

(setq lineax (entsel "select line"))
(setq pin (getpoint "clicks the rotation point"))
(setq cont 0)

(Repeat 10)
(setq cont (1+ cont))

(runapp "c:\\autocadsupporto\\libertytre\ritardo.exe "c:\\autocadsupporto\\libertytre\\ritardo.tkn" :vlax-true)

(Befehl "_copy" lineax "" Stift ")
(setq copyx (entlast)

(setq angx (* cont -5))
(Befehl "_rotate" copyx "" angx pin)
;

;
 
in dieser Lippe (nicht meine... aber ich erinnere mich nicht, wo ich sie genommen und mit dem Autor entschuldigt habe!) wird die Verwendung einer progressiven Bar gezeigt. Zeit zu verbringen, verwenden Sie eine einfache Wiederholung.
 

Anhänge

Hallo alle,
Ich schreibe ein Animationsprogramm, mein Problem bekommt eine gewisse Verzögerung beim Laufen.
Eine Verzögerung muss unabhängig von der Geschwindigkeit des Prozessors sein und sollte daher an die Zeit gebunden werden.
Ich hänge eine kleine Lippe an, die, zeichnen eine Linie, wählen sie und definieren den Drehpunkt, das Rad eines Winkels von 5°.
Ich habe die Verzögerung von etwa einer Sekunde, ein einfaches externes Programm, das dafür verantwortlich ist.
wie konnte ich das gleiche Ergebnis mit der einzigen Lispe bekommen?
Danke.
Code:
 (defun c:ruotalinea (/ lineax perno copyx angx cont a)

(setq lineax (entsel "select line"))
(setq pin (getpoint "clicks the rotation point"))
(setq cont 0)

(Repeat 10)
(setq cont (1+ cont))

(runapp "c:\\autocadsupporto\\libertytre\ritardo.exe "c:\\autocadsupporto\\libertytre\\ritardo.tkn" :vlax-true)

(Befehl "_copy" lineax "" Stift ")
(setq copyx (entlast)

(setq angx (* cont -5))
(Befehl "_rotate" copyx "" angx pin)
;

;
Code:
(Befehl "_delay" 1000) 1 zweite Verzögerung
 

Statistik des Forums

Themen
58.521
Beiträge
499.056
Mitglieder
104.110
Neuestes Mitglied
ChristianR

Zurzeit aktive Besucher

Keine Mitglieder online.
Zurück
Oben