---

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

---

@RoyCAD
Wie kommst Du darauf das hier irgendjemand 'nen Code optimiert der nicht mal lauffähig ist... :dream
Pack was lauffähiges hier rein und es erbarmt sich vielleicht einer.
SO bestimmt keiner.

------------------
Ciao,
Marc

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Opti.txt

  Jetzt muss beim jedem funktionieren!!!!!!!!!!!!!!!!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

da es ja zum großenteil um Rechtecke geht:
guck dir mal
(command "_rectang" PUNKT "_d" Breite Hoehe)
an

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo RoyCAD,

geh mal auf die Autodesk-Seiten. Unter Produkte->AutoCAD2006->Training Dort gibt es eine 5-teilige Serie (von mir)zur Einführung in AutoLISP. Die Serie befasst sich mit der Programmierung eines Tools zum Zeichnen von Rechtecken.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP