Hab mal wieder ein Problem
Ich muss Bilder einlesen und diese dann georeferenzieren. Wollte mir ein Hilfsmittel basteln damit es schneller geht. Aber leider geht des nicht. Er fragt mach einer "Entgegengesetzte Ecke angeben" wobei ich gar nicht weiß warum er danach überhaupt noch fragt.
Zitat:
Objekte wählen: 0 gefunden
Objekte wählen: nil
Entgegengesetzte Ecke angeben:
Ungültige Fensterspezifikation.
Objekte wählen: Entgegengesetzte Ecke angeben:
und mein prog ist des hier:
Zitat:
(defun c:ss ( / ); skalierung und schieben(setq ob (entsel "bitmap"))
(setq bp (getpoint "basispkt"))
(setq sp1 (getpoint "1sollpunkt")) ; sollpunkt
(setq sp2 (getpoint "2sollpunkt"))
(setq ip1 (getpoint "1istpunkt")) ; istpunkt
(setq ip2 (getpoint "2istpunkt"))
(setq ls (sqrt (+ (* (- (nth 0 sp1) (nth 0 sp2))(- (nth 0 sp1) (nth 0 sp2))) (* (-(nth 1 sp1) (nth 1 sp2))(-(nth 1 sp1) (nth 1 sp2))))))
(setq li (sqrt (+ (* (- (nth 0 ip1) (nth 0 ip2))(- (nth 0 ip1) (nth 0 ip2))) (* (-(nth 1 ip1) (nth 1 ip2))(-(nth 1 ip1) (nth 1 ip2))))))
(setq sc (/ ls li))
(command "_scale" ob "" bp sc)
(command "_move" ob ip1 sp1) ;von istpunkt nach sollpunkt
)
ach ja Sterei ist mein Name im Web
vielen Dank im voraus und bitte seid nachsichtig und antwortet nicht zu kompliziert für einen Neuling
So hab mal noch einen Bug beseitigt
sollte beim Phytagoras 2 verschiedene Punkte verwenden
[Diese Nachricht wurde von sterei am 27. Okt. 2005 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP