Zobrazit plnou verzi příspěvku: Spojení čar oblouky
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).
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)
Děkuji, tak nějak jsem to chtěl.