Hromadné vkládání vrcholů křivky
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 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=20158
Datum vytištění: 26.dub.2026 v 09:04
Téma: Hromadné vkládání vrcholů křivky
Odeslal: Dostojevskij
Předmět: Hromadné vkládání vrcholů křivky
Datum odeslání: 04.lis.2014 v 08:46
|
Zdravím a rád bych se zeptal, zda je možno přidat stávající křivce vrcholy dle zadaných parametrů, např. počet či délka úseků. Používám na to utilitku DivBreak, jenže ta křivku rozdělí na samostatné segmenty, které potom musím zpětně pospojovat. Díky za případné tipy. ------------- f.m.d. |
Odpovědi:
Odeslal: OPlavek
Datum odeslání: 04.lis.2014 v 10:48
| Jak to myslíte? Neumím si představit co potřebujete. Potřebujete načítat souřadnice nebo nějaký předpis s relativní vzdáleností nového vrcholu? |
Odeslal: Dostojevskij
Datum odeslání: 04.lis.2014 v 13:29
|
Mám například křivku představující osu projektované komunikace v JTSK. Její staničení je po kilometru, ale já potřebuji souřadnice staničení po 50-ti metrech, tj. souřadnice vrcholů křivky, které lze vyexportovat. Jak jsem již psal, používám utilitu DivBreak, kde lze zadat počet nebo délku úseků, ale následné spojování výsledných segmentů je složité. Jednoduše řečeno - jak vložit do křivky o dvou vrcholech (začátek a konec) další vrcholy po x metrech... ------------- f.m.d. |
Odeslal: Mantlík
Datum odeslání: 04.lis.2014 v 13:37
|
To ale spíš myslíte body na křivce po určené vzdálenosti a nikoliv vrcholy křivky, ne? (předpokládám, že nechcete křivku lámat po 50m ...) Myslím, že na to byl tip i s lispem, pohledejte ------------- J. Mantlík |
Odeslal: Seiner
Datum odeslání: 04.lis.2014 v 13:45
|
A nestačil by DĚLÚ ? ------------- Vítězslav Seiner Chrudim |
Odeslal: johny
Datum odeslání: 04.lis.2014 v 14:29
|
http://www.cadtutor.net/forum/showthread.php?78178-Distribute-vertices-along-a-polyline-with-a-specific-length-interval
Pozn. kód uložit jako *.lsp, v autocadu načíst _appload, příkaz spustit VRXLEN (Defun c:vrxlen ()
(if (and (setq pline (car (entsel "\nSelect Polyline:")))
(eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE")
(setq int (getdist "\nEnter Interval:"))
(setq in int)
)
(while (Setq pt (vlax-curve-getPointAtDist pline int))
(setq ppt (vlax-curve-getparamatpoint pline pt))
(vlax-invoke
(vlax-ename->vla-object pline)
'AddVertex
(1+ (fix ppt))
(list (car pt) (Cadr pt))
)
(setq int (+ int in))
)
)
) |
Odeslal: Seiner
Datum odeslání: 04.lis.2014 v 14:45
|
1. Je vhodné předefinovávat příkaz DEMO? 2. IMHO stejnou práci udělá DĚLÚ, vložení staničního bloku a extrakce souřadnic. Ale to je, jak se komu líbí. ------------- Vítězslav Seiner Chrudim |
Odeslal: johny
Datum odeslání: 04.lis.2014 v 15:32
Není. Název byl autorem kódu volen obecný, určitě by se měl konkretizovat. Protože jsem ten kód převzal, nechtel jsem do něj původně zasahovat. Díky za upozornění na kolizi s českým příkazem DEMO... kód v předchozím příspěvku jsem upravil a jeho jméno změnil na VRXLEN.
Pro staničení lze doporučit [CMD]DĚLM[/CMD] (_MEASURE)... ale jak píšete, jak komu co vyhovuje.
|
Seiner napsal(a):Odeslal: Vladimír Michl
Datum odeslání: 04.lis.2014 v 16:15
|
Ideální pro výkaz by asi byla kombinace příkazů [CMD]DĚLM[/CMD] (s volbou Blok) a [CMD]EXTRDATA[/CMD]: http://www.cadforum.cz/cadforum/qaID.asp?tip=2284 - http://www.cadforum.cz/cadforum/qaID.asp?tip=2284 Popř. [CMD]KŘIVPOLE[/CMD], popř. použít funkce AutoCADu Civil 3D. ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |
Odeslal: Dostojevskij
Datum odeslání: 08.lis.2014 v 13:28
|
Děkuji všem za tipy, obzvláště johnymu. Kód uložen, načten a funguje perfektně. To je přesně to, co jsem potřeboval. Díky! ------------- f.m.d. |
Odeslal: Vladimír Michl
Datum odeslání: 08.lis.2014 v 17:24
|
Na stránce Download je rovněž uložena starší utilita VtxDist, která umí přidávat vrcholy metodou "divide" i "measure" (délkou i počtem). ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |