|
Autor
|
Thema: Polylinien glätten (6870 mal gelesen)
|
flaschenpost
Mitglied
   Beiträge: 500
Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 14. Apr. 2005 11:42    Unities abgeben:          
Hallo Schachtelmacher,es gibt die Möglichkeit, anstatt Anzahl Teilstücke die gewünschte Teillänge anzugeben. Die wird dann in Abhängigkeit von der Länge der Polylinie etwas modifiziert, da es gleiche Teilungen ohne Rest werden. Der Vorteil wäre gleiche Teilung bei unterschiedlich langen Linien. (defun c:redpts (/ owahl anzt teil_l pnae plit p1 p2 n nr)
(print "Polylinien wählen")
(setq owahl (ssget '((0 . "LWPOLYLINE"))))
(setq teil_l (getreal "\nLänge der Teilstücke: "))
(setq nr 0)
(repeat (sslength owahl)
(command "_.area" "_O" (ssname owahl nr))
(setq anzt (/ (getvar "PERIMETER") teil_l))
(if (< anzt 2)
(setq anzt 2)
(progn
(if (> (- anzt (fix anzt)) 0.5)
(setq anzt (1+ (fix anzt)))
(setq anzt (fix anzt))
)
)
)
(command "_.divide" (ssname owahl nr) anzt "")
(setq p1 (cdr (assoc 10 (entget(ssname owahl nr)) )))
(setq p2 (cdr (assoc 10 (reverse (entget(ssname owahl nr))) )))
(setq plist nil)
(repeat (1- anzt)
(setq pnae (cdr (assoc 10 (entget(ssname (ssget "L") 0)))) )
(setq plist (cons pnae plist))
(entdel(ssname (ssget "L") 0))
(print pnae)
)
(setq n -1)
(command "_pline" p1)
(repeat (1- anzt)
(setq n (1+ n))
(command (nth n plist))
)
(command p2)
(command "")
(setq nr (1+ nr))
);repeat
) Gruß Carsten
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Beiträge: 3207
Registriert: 30.11.2003 ACAD MECHANICAL POWERPACK 2004
auf WINXP
|
erstellt am: 16. Apr. 2005 11:50 Unities abgeben:
So, wie versprochen (mit neuem Ansatz) :
Funktion im Anhang reduziert -wenn möglich- die Anzahl der Stützpunkte bei den ausgewählten/auszuwählenden Polylinien. Die abgefragte Korridorbreite gibt den maximalen Abstand der upgedaten Kurve zur ursprünglichen Kurve an.
Viel Spaß beim testen.Edit : Anhang-Update
------------------
 - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
[Diese Nachricht wurde von CADmium am 19. Apr. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scj
Mitglied
Beiträge: 274
Registriert: 09.08.2001
|
erstellt am: 19. Apr. 2005 19:52 Unities abgeben:
Hallo!
Ich habe das VertexReduce mal für das beiliegende Beispiel ausprobiert und erhielt keine ganz korrekte Lösung.
(Mein Kanal2d-Projekt lieferte die Anlage 2.)
Woran liegt's?
Ich nehme mal an, unsere Ansätze sind ähnlich:
Geradengleichung aus 2 Punkten PA und PE
.Untersuchung, ob irgendein Zwischen-Punkt zwischen PA und PE weiter als die halbe Kanalbreite von PA-->PE entfernt ist
.Wenn ja: PA wird PE
.Wenn nein: nächster Punkt wird PA
usw.
Mit besten Grüßen aus der Rhön
Jochen www.black-cad.de
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium
Moderator
Beiträge: 3207
Registriert: 30.11.2003 ACAD MECHANICAL POWERPACK 2004
auf WINXP
|
erstellt am: 19. Apr. 2005 22:18 Unities abgeben:
@scj : hab ich auch schon bemerkt, liegt an meiner fehlerhaften Nutzung der Property Coordinates, ist aber bereits berichtigt. Ansonsten verfolge ich einen etwas anderen Ansatz, der auch bei gekrümmten Kurven greift, auch wenn das vielleicht zu Lasten des Laufzeitverhaltens geht.
Bei Interesse können wir das gerne mal intern ausdiskutieren.Update : Siehe etwas weiter oben! ------------------
- 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 |
Autodesk
UBBFriend: Senden Sie diese Seite per eMail an einen Freund!
| 
Dieses Thema ist 2 Seiten lang: 1 2 
