Hallo
Kann man dieser Code bearbeiten, weil jetzt ist das eine Endlose Geschichte.
Ich denke es ist doch möglich das Ding viel kürzer zu schreiben.
Für ein Beispiel werde ich sehr dankbar.
Mit freundlichen Grüßen
RoyCAD
(setq bock_seit_an1 (polar (setq startbock_an (getpoint "\n Startpunkt " )) 0.0 (- (+ (+ (+(-(* b1 (sqrt 2.0))9.95 )2.9) (* b2 (sqrt 2.0))) (+ (* Breite_3 (sqrt 2.0)) 4.0)) 5.4) ))
(setq bock_seit_an2 (polar bock_seit_an1 w45 (* 5.4 (sqrt 2.0))))
(setq bock_seit_an3 (polar bock_seit_an2 pi (+ (+ (+(-(* b1 (sqrt 2.0))9.95 )2.9) (* b2 (sqrt 2.0))) (+ (* Breite_3 (sqrt 2.0)) 4.0))))
(setq bock_seit_an4 (polar bock_seit_an3 w270 5.4))
(command "plinie" startbock_an bock_seit_an1 bock_seit_an2 bock_seit_an3 "s")
(setq bock_seit_an5 (polar startbock_an w90 66.8))
(setq bock_seit_an6 (polar bock_seit_an5 pi 2.7))
(setq bock_seit_an7 (polar bock_seit_an6 w270 66.8))
(command "plinie" startbock_an bock_seit_an5 bock_seit_an6 bock_seit_an7 "s")
(setq bock_seit_an8 (polar bock_seit_an6 w90 3.4))
(setq bock_seit_an9 (polar bock_seit_an8 0.0 (+(+(-(* b1 (sqrt 2.0))9.95 )2.9)2.7)))
(setq bock_seit_an10 (polar bock_seit_an9 w270 3.4))
(command "plinie" bock_seit_an6 bock_seit_an8 bock_seit_an9 bock_seit_an10 "s")
(setq bock_seit_an11 (polar bock_seit_an10 w270 61.4))
(setq bock_seit_an12 (polar bock_seit_an11 pi 3.4))
(setq bock_seit_an13 (polar bock_seit_an12 w90 61.4))
(command "plinie" bock_seit_an10 bock_seit_an11 bock_seit_an12 bock_seit_an13 "s")
(setq bock_seit_an14 (polar bock_seit_an12 pi (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(setq bock_seit_an15 (polar bock_seit_an14 w90 3.4))
(setq bock_seit_an16 (polar bock_seit_an15 0.0 (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(command "plinie" bock_seit_an12 bock_seit_an14 bock_seit_an15 bock_seit_an16 "s")
(setq bock_seit_an17 (polar bock_seit_an14 pi 3.4))
(setq bock_seit_an18 (polar bock_seit_an17 w90 61.4))
(setq bock_seit_an19 (polar bock_seit_an18 0.0 3.4))
(command "plinie" bock_seit_an14 bock_seit_an17 bock_seit_an18 bock_seit_an19 "s")
(setq bock_seit_an20 (polar bock_seit_an19 0.0 (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(setq bock_seit_an21 (polar bock_seit_an20 w270 5.4))
(setq bock_seit_an22 (polar bock_seit_an21 pi (-(+(-(* b1 (sqrt 2.0))9.95 )2.9)6.8)))
(command "plinie" bock_seit_an19 bock_seit_an20 bock_seit_an21 bock_seit_an22 "s")
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP