---

Hallo,

kennt jemand ein Tool oder Code-Schnippsel, um Bögen in Polylinien, die > 180° sind, zu teilen?

Gruß
Theodor

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

---

Ein Tool zum Einfügen von zusätzlichen Stützpunkten , setzt den Punkt auf den dem Klickpunkt am nächsten liegenden Kurvensegmentpunkt mit Übernahme des Bulgefaktors.... ließe sich sicher auf "Bögen > 180° halbieren" automatisieren...

------------------
  - 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

---

ARCTOPOL.lsp

Versuchs mal damit.
Beste Grüße
Jochen

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

---

Hallo Jochen,

zuerst Danke, dann meine Frage: wo soll die Variablen "aufloe" gesetzt werden?

Viele Grüße

Theodor

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

---

ARCTOPOL.lsp

'tschuldigung
hab's nur aus meinem PEDIT3D rauskopiert und nicht nochmal kontrolliert.
Die Variable "aufl" steuert die Auflösung für einen Öffnungswinkel von 90° im Bogen, d.h.
mit winkel = ew-aw
90°<winkel<180° => aufl=zweimal aufl
180°<winkel<270° => aufl=dreimal aufl
270°<winkel<360° => aufl=viermal aufl
Gute Nacht!
Jochen

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

---

Hallo Jochen,

da ich nur Bögen teilen muss, bei denen der Winkel > 180° ist, konnte ich alles sehr vereinfachen.
Es sieht jetzt so aus:
;;------------------------------
(defun C:A2 (/ BO)

(setq BO (car (entsel "\nZeige Bogen: ")))
(command "_point" (BO_MP BO)); das ist nur ein Kontrollpunkt
)
(defun BO_MP (B / SS RA CP SP AW EW SW PT)

(setq SS (entget B))
(setq RA (cdr (assoc 40 SS))
      CP (cdr (assoc 10 SS))
      AW (cdr (assoc 50 SS))
      EW (cdr (assoc 51 SS))
)
(if (< EW AW)
  (setq EW (+ (* 2 pi) EW))
)
(if (> (- EW AW) (* 0.5 pi))
  (setq SW (abs (/ (- EW AW) 2))
        PT (polar CP (+ AW SW) RA)
  )
)

PT
)
(princ)
;;----------------------------

Stichwort 3-d Polylinien, schau mal hier:
http://www.lehrer.uni-karlsruhe.de/~za685/neues.htm
werden 3-d Punkte erfasst.

Nochmals vielen Dank

Theodor

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

---

Hallo Thomas,

ein Tool das Bögen > 180° teilt, wenn man das Bogensegment der Polylinie anwählt, habe ich bereits gemacht.
Es geht um die Koordinaten-Ausgabe für NC-Daten.

Hallo Jochen,

nun habe ich den Code auch für Polylinien und LWPolylinien gemacht:

;;--- Geteilte Koordinatenausgabe bei Polylinien-Bögen > 180° -----
(if (> WI pi)
(setq MIDP  (polar P1 (angle P1 P2) (/ (distance P1 P2) 2.0))
      MIDP_A (polar MIDP (- (angle P1 MIDP) (/ pi 2)) (* (distance P1 MIDP) (abs BULGE)))
      FLAG_180 t
)
) 
;;----------------------------------------------------

Viele Grüße
Theodor

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