Angelo2449
Guest
Hallo alle,
in diesem Code, der Befehl >, wenn < nicht funktioniert, wie es tatsächlich sollte, anstatt den aktuellen Fall zu wählen, übergibt sie alle!
die Variable > typedrone < wird genau als "zoom ", "pro" und "manuell" bewertet.
Vielleicht beobachte ich es auch, offensichtlich ist die Lösung da, unter der Nase!
Danke.
in diesem Code, der Befehl >, wenn < nicht funktioniert, wie es tatsächlich sollte, anstatt den aktuellen Fall zu wählen, übergibt sie alle!
die Variable > typedrone < wird genau als "zoom ", "pro" und "manuell" bewertet.
Vielleicht beobachte ich es auch, offensichtlich ist die Lösung da, unter der Nase!
Danke.
Code:
, @quadro
(defunct picture (/ tipodrone pa pb pd x2 y2 beta alpha range x1 y2 y2 xb yb xc xd yd)
(Runapp "c:\\autocadsupporto\\\libertytre\\\\\\\\\sceltadrone.tkn" :vlax-true)
(setq tipodrone (getcliptext)
(falls)
(Progn)
(Runapp "c:\\autocadsupporto\\libertytre\\\\interrupted function.exe "c:\\\\autocadsupport\\\\\\\\\\\interrupted function.tkn" :vlax-true)
(vl-exit-with-error "aus dem Programm herausfahren")
;
;
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ tipodrone)
(princ)
(princ "\n")
wenn (= Typdrone "Zoom")
(Progn)
(setq pa (getpoint "\nclicca il primo punto - zoom (vertice alto a sinistra))))
(setq pb (getpoint "\nclicca il secondo punto - zoom (vertice alto a right))))
;
Ende
wenn (= Typdrone "pro")
(Progn)
(setq pa (getpoint "\nclicca il primo punto - pro (vertice alto a sinistra))))
(setq pb (getpoint "\nclicca il secondo punto - pro (vertice alto a right))))
;
Ende
wenn (= "manuell" Typdrone)
(Progn)
(setq pa (getpoint "\nclicca il primo punto - Manual (vertice alto a sinistra))))
(setq pb (getpoint "\nclicca the second point - manual (low right turn))))
;
Ende
(seq alpha (angle pa pb))
(setq beta (- pi alpha)
(Setq x2 (* 45.00 (cos alpha)))
(setq y2 (* 45.00)
(setq y1 (* 32.00 (cos beta)))
(Setq x1 (* 32.00)
(setq xd (+ (car pa) x1))
(setq yd (+ (cadr pa) y1)
(setq pd)
(setq xc (+ (car pd) x2))
(setq yc (+ (cadr pd) y2)
(setq pc)
(setq xb (+ (car pa) x2))
(setq yb (+ (cadr pa) y2)
(setq pb (list xb yb))
(Befehl "_pline" pa pb pc pd pa ")
;