Zobrazit plnou verzi příspěvku: Spojení čar oblouky

zdrk
01.04.2026, 10:08
Existuje nějak apka nebo funkce, která by jednoduše spojila dvě úsečky vlnou?

Vladimír Michl
01.04.2026, 11:32
Asi něco takového, ale ty směrové úhly oblouků je potřeba ověřit:[CODE];Connect two lines with a wave;CADforum, 2026(defun C:WaveLink  ( / e1 e2 at1 at2 ent1 ent2 pt1 pt2 mid osm) (if (and  (setq e1 (nentsel "\nSelect the first line near endpoint: ")) ; (e pt)  (setq e2 (nentsel "\nSelect the second line near endpoint: "))  (setq ent1 (car e1)  ent2 (car e2)  pt1 (osnap (cadr e1) "_END")  pt2 (osnap (cadr e2) "_END")) ; endpoints  (setq at1 (osnap (cadr e1) "_NEA")  at2 (osnap (cadr e2) "_NEA"))  ; picked at lines  (setq mid (list (/ (+(car pt1)(car pt2)) 2.0)(/ (+(cadr pt1)(cadr pt2)) 2.0)))     )(progn   (setq osm (getvar "OSMODE")) (setvar "OSMODE" 0)   (command "_UCS" "_W")   (command "_ARC" pt1 "_E" mid "_Di" (angtos (angle at1 pt1) 0 12))   (command "_ARC" pt2 "_E" mid "_Di" (angtos (angle at2 pt2) 0 12))   (setvar "OSMODE" osm) )))[/CODE]
Vladimír Michl2026-04-01 12:47:03

Vladimír Michl
01.04.2026, 13:18
V sekci Download je rozšířená verze. Zdá se, že funguje ve všech situacích (i nerovnoběžné linie, i křivky).

johny
02.04.2026, 10:57
Příkaz [CMD]PROLNI[/CMD] (_BLEND) nevyhovuje? Na různé plynulé přechody je to super. Kdyby byl zájem, mohu i nasdílet zefektivňující utilitku (konverze do pline, přebírání hladiny)

zdrk
17.04.2026, 20:40
Děkuji, tak nějak jsem to chtěl.