Verwendung des Befehls "rotieren"

[Angelo2449]

Hallo alle,
Ich kann den Befehl "rotieren" in dieser Lispe nicht vollenden:

 ;; @georef

(defun c:georef (/ imagepointuno imagepuntodue dwgpuntouno dwgpuntodue dist1 dist2 Winkel)

(Leitlinien)

(Setvar "osmode" 16384)

(setq image nil)
(sing)
(= Bild nil)
(setq-Bild (entsel "\nselect the image to georeferencing : ")
)

(setq ed1 (entget)
(setq en1 (cdr -1 ed1)
(Auszug en1 3)

;;---------------------------------------------------------------------------------------------------------------------------------------------------------

(setq imageuno nil)

(sing)
(= imagepointuno nil)
(Princ "\nprimo Punkt des Bildes (Grundpunkt für Georeferencing) : ")
(setq image puntouno (getpoint)
)

(Satzbild puntodue nil)

(sing)
(= imagepuntodue nil)
(princ "\nsecond point of the image: "
(setq image puntodue (getpoint)
)

(Sectq dwgpointuno nil)

(sing)
=
(princ "\nprimo georeferential point of relief (setting) : ")
(setq dwgpuntouno (getpoint)
)

(Sectq dwgpuntodue nil)

(sing)
(= dwgpuntodue nil)
(princ "\nsecond georeferential point of the relief: "
(setq dwgpuntodue (getpoint)
)

(setq dist1 (distanz imagepuntouno imagepuntodue)
(setq dist2 (distanz dwgpuntouno dwgpuntodue))
(seq Winkel (winkel imagepointuno imagepuntodue)

(Befehl "_scale" Bild "_r" dist1 dist2)
(Befehl "_move" Bild "imageuno dwgpuntouno)
(schlafen)
(Befehl "_draworder" Bild zurück)

(Alert "Skala und Georeferenzierung des Bildes aufgetreten")

(Erkennung setq "000300")

)

;;---------------------------------------------------------------------------------------------------------------------------------------------------------

immer bittet mich, den Befehl abzuschließen, offensichtlich fehlt ein Zwischenprodukt ok.
Danke.

 

[rpor66]

nach dem Bild haben Sie immer die Auswahl mit doppelten Zitaten bestätigt, rotieren die gleiche Regel; der Winkel, den Sie es in dezimalen Grad ausdrücken müssen, die Winkelfunktion gibt Winkel in Strahlungen zurück.