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.

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?

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...

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

A nestačil by DĚLÚ ?

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

johny2014-11-04 15:11:28

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í.

[QUOTE=Seiner]1. Je vhodné předefinovávat příkaz DEMO?[/QUOTE]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.[QUOTE=Seiner]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í.[/QUOTE]Pro staničení lze doporučit [CMD]DĚLM[/CMD] (_MEASURE)... ale jak píšete, jak komu co vyhovuje.

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 Popř. [CMD]KŘIVPOLE[/CMD], popř. použít funkce AutoCADu Civil 3D.

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!

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