Vytisknout stránku | Zavřít okno

Spojení čar oblouky

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD web, prohlížečů, DWG a DXF, Design Review, Navisworks, nadstavby, Drive a cloud Autodesk
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=35910
Datum vytištění: 01.čvc.2026 v 20:32


Téma: Spojení čar oblouky
Odeslal: zdrk
Předmět: Spojení čar oblouky
Datum odeslání: 01.dub.2026 v 10:08
Existuje nějak apka nebo funkce, která by jednoduše spojila dvě úsečky vlnou?


Odpovědi:
Odeslal: Vladimír Michl
Datum odeslání: 01.dub.2026 v 11:32
Asi něco takového, ale ty směrové úhly oblouků je potřeba ověřit:

;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)
 ))
)


-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: Vladimír Michl
Datum odeslání: 01.dub.2026 v 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).

-------------
Vladimír Michl (moderátor)
ARKANCE CZ - https://arkance.world - arkance.world
(podpora viz emea.support.arkance.world)

Odeslal: johny
Datum odeslání: 02.dub.2026 v 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)

Odeslal: zdrk
Datum odeslání: 17.dub.2026 v 20:40
Děkuji, tak nějak jsem to chtěl.


Vytisknout stránku | Zavřít okno