| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: 3D-Poly in Spline konvertieren, Spline durch Scheitelpunkte 3D-Poly (1857 mal gelesen)
|
ktww Mitglied
Beiträge: 429 Registriert: 10.08.2009
|
erstellt am: 03. Jul. 2014 11:06 <-- editieren / zitieren --> Unities abgeben:
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 |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 03. Jul. 2014 11:23 <-- editieren / zitieren --> Unities abgeben: Nur für ktww
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 03. Jul. 2014 11:35 <-- editieren / zitieren --> Unities abgeben: Nur für ktww
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 |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Civil 3D, MAP 3D, ACADM, ACA Inventor Prof. 2025, AIP 4-2025 Win 11
|
erstellt am: 03. Jul. 2014 11:56 <-- editieren / zitieren --> Unities abgeben: Nur für ktww
|
ktww Mitglied
Beiträge: 429 Registriert: 10.08.2009
|
erstellt am: 03. Jul. 2014 12:17 <-- editieren / zitieren --> Unities abgeben:
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 |