---

3D-Poly in Spline konvertieren, Spline durch Scheitelpunkte 3D-Poly

Hallo Form!
Habe folgendes Problem. Ich möchte eine bestehende 3D-Polylinie in einen Spline konvertieren, aber so, dass der Spline direkt durch die Scheitelpunkte der 3D-Polylinie geht.
Grund ist, dass ich eine segmentförmige Vermessung eines Baches habe, die ich ausrunden will, allerdings soll die ausgerundete Kurve durch die Vermessungspunkte gehen.
Versucht hab ich bis jetzt:
-> Eigenschaftsfenster -> Angleichen/Glätten 
    >> Spline geht nicht durch Scheitelpunkte der 3D-Poly
-> Befehl Spline (Verfahren "Anpassen"), -> Objekt wählen
    >> Fehlermeldung "Nur an Splines angeglichene
      Polylinien können in Splines umgewandelt werden." geht nicht
Zeichne ich den Spline neu passt das Ergebnis. Da ich aber viele 3D-Polylinien habe möcht ich das nicht 
Mir kommt vor als ob es eine einfache Lösung geben müsste, sehe sie aber nicht. Hoffe es kann mir wer weiterhelfen
Schöne Grüße

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

---

Die Möglichkeit bietet Acad nicht, nimm ein Lisp zur Hilfe was dies in etwa schafft (wie genau das ist habe ich nicht weiter geprüft)
KLICK (PL2SPL oder 3PL2SPL, das mußt du wissen)

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

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

---

quick&dirty

(defun C:PL2SPL(/ 3DPL2SPL PL AWS)
  (defun PL2SPL(PL / COORDS POINTS)
    (if(and(setq PL(vlax-ename->vla-object PL))
          (=(strcase(vla-get-Objectname PL))"ACDB3DPOLYLINE")
          (setq COORDS(vlax-safearray->list(vlax-variant-value(vla-get-coordinates PL))))
      )
      (progn
        (repeat (/(length COORDS)3)
          (setq POINTS(cons(list(car COORDS)(cadr COORDS)(caddr COORDS))POINTS))
          (setq COORDS (cdddr COORDS))
        )
        (setq POINTS(reverse POINTS))
        (command "_spline")
        (while POINTS (command (car POINTS))(setq POINTS(cdr POINTS)))
        (command "" "" "")       
      )
    )   
)
;(if(setq PL(car(entsel "\nPolylinie wählen: ")))(PL2SPL PL))
  (if(setq AWS(ssget '((0 . "POLYLINE"))))
    (mapcar
      '(lambda(X)(if (=(type(cadr X))'Ename)(progn(PL2SPL (cadr X))(entdel (cadr X)))))
      (ssnamex AWS)
    )
  ) 
(princ)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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

---

C:PL2SPL
von hier
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/3D-polyline-to-polyline-to-spline-with-max-1mm-tolerance/td-p/4444897

zeichnet den Spline nach Polylinienpunkten nach (und kann sogar Zusatzstützpunkte einfügen).
Wer keine Zusatzstützpunkte möchte, muss
(setq lg (* 0.05
auf
(setq lg (* 1.0
ändern.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

Super... Danke für die schnelle Hilfe!

cadffm + CAD-Huebner:
Danke für den Hinweis... Programm funktionert und mit dem Tip von CAD-Huebner kann ich auch die Genauigkeit und Anzahl der Zwischenpunkte einstellen.

CADmium:
Dir auch Dank für die Mühe. Wenn ich das Programm aufrufe bekomm ich aber folgende Fehlermeldung in der Befehlszeile:
  Befehl: PL2SPL
  Objekte wählen: 1 gefunden
  Objekte wählen:
  _spline
  Ersten Punkt angeben oder [Objekt]: ; Fehler:  Ausnahmebedingung aufgetreten: 0xC0000005 (Zugriffsverletzung)
  ; Warnung: Unwind übersprungen bei Ausnahmebedingung
  ; Fehler:  Ausnahmebedingung aufgetreten: 0xC0000005 (Zugriffsverletzung)
Da die anderen Hinweise aber schon zum Ziel geführt haben brauch ich dich nicht weiter bemühen.

Vielen Dank für Eure Antworten ..   

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