---

2015-12-1110-37-38.png

Hallo!
Ich hatte schon mal irgendwas gehabt, um Bögen in einer Polylinie in mehrzahlige Geradensegmente umzuwandeln. KannŽs nur nicht finden

So richtig glücklich bin ich mit dem Tool nicht (unten), weil Bogensegmente mit grossen Radien quasi nur Bogenanfang- und ende als Gerade umwandeln, ich möchte diese mehr verdichten, damit sie nahezu die Bogenlinie nachstellen

Code:

---

(defun c:zz()
  (vl-load-com)
  (Or doc (setq doc (vla-get-ActiveDocument (vlax-get-acad-object))))
  (while (and (setq lw (entsel "\ n Select arc segment in a polyline."))
          (= (Cdr (assoc 0 (entget (car lw)))) "LWPOLYLINE")
      ); _ And
  (Progn
    (Vla-StartUndoMark doc)
    (Vla-SetBulge
    (vlax-ename->vla-object (car lw))
    (Fix (vlax-curve-getParamAtPoint
          (Car lw)
          (Vlax-curve-getClosestPointTo (car lw) (cadr lw))
          ); _ Vlax-curve-getParamAtPoint
    ); _ Fix
    0.
    ); _ Vla-SetBulge
    (Vla-EndUndoMark doc)
  ); _ Progn
  (Princ "\ n It is select nothing or object not a polyline.")
  ); _ If
); _ Defun

---

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

gefunden!
http://www.cadtutor.net/forum/showthread.php?67157-Convert-polyline-with-arc-to-polyline-with-straight-lines.

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Code
Bild
und schon der weiterführende Gedanke

Top

Aber keine Frage?
In Abhängigkeit der Bogenlänge würde ich die gewünschte Anzahl an Segementen berechnen,
dabei ein Minimum nicht unterschreiten.
Dann die Koordinaten der AnzahlN Punkte auf dem Bogen ermitteln,
Polylinie ändern.. und neu erstellen - wie auch immer.

Aber wie immer, wenn man nur ein paar Sekunden googelt ist man schneller wie die Frage zu formulieren..
http://ww3.cad.de/foren/ubb/Forum145/HTML/000581.shtml

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

---

Danke!
Intressante Beiträge
Schönes WE

------------------
Gruss Dirk
Blog | Adolf Spende | Infra-Feed | ÅF AB

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

---

Dazu gibt es ja jetzt ganz frisch
- das Weihnachtsgeschenk von Archtools und
- was im Appstore:

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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