Děkujeme za účast na konferenci CADfórum 2025 - podívejte se na reportáž
Přes 120.000 registrovaných u nás, celkem 1.107.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Kalkulátor,
vylepšený Převodník jednotek a
proměnné prostředí AutoCADu.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností
Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion, 3ds Max, Vault a s dalšími CAD/BIM/PDM aplikacemi.
Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy ARKANCE (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
|
Odpovědět
|
archiv |
| Autor | ||
Dostojevskij
Diskutér
Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Téma: Hromadné vkládání vrcholů křivkyZasláno: 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.
|
||
![]() |
||
OPlavek
Zasloužilý člen
Přihlášen: 16.pro.2004 Lokalita: ČR (KV) Používám: Autocad,Revit Stav: Offline Bodů: 149 |
Zasláno: 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?
|
||
![]() |
||
Dostojevskij
Diskutér
Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 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.
|
||
![]() |
||
Mantlík
TOP uživatel
Přihlášen: 01.říj.2004 Lokalita: ČR (Pha) Používám: ACAD/Map/Civil R10-> 2022 Stav: Offline Bodů: 2578 |
Zasláno: 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
|
||
![]() |
||
Seiner
CAD/BIM manager
Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
Zasláno: 04.lis.2014 v 13:45 |
|
|
A nestačil by DĚLÚ ?
|
||
|
Vítězslav Seiner
Chrudim |
||
![]() |
||
johny
TOP uživatel
Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1749 |
Zasláno: 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))
)
)
)Upravil johny - 04.lis.2014 v 15:11 |
||
![]() |
||
Seiner
CAD/BIM manager
Přihlášen: 01.říj.2004 Lokalita: ČR (PA) Používám: Mechanical 2017, Inventor 2017 a starší Stav: Offline Bodů: 1662 |
Zasláno: 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 |
||
![]() |
||
johny
TOP uživatel
Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1749 |
Zasláno: 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
DĚLM (_MEASURE)... ale jak píšete, jak komu co vyhovuje.
|
||
![]() |
||
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor
ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 22041 |
Zasláno: 04.lis.2014 v 16:15 |
|
![]() |
||
Dostojevskij
Diskutér
Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 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.
|
||
![]() |
||
Vladimír Michl
Profil člena
Odeslat soukromou zprávu
Najít příspěvky člena
Navštívit stránky člena
Přidat do seznamu známých
Moderátor
ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 22041 |
Zasláno: 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).
|
||
![]() |
||
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět
|
|
| Přejít na fórum | Oprávnění fóra ![]() Nemůžete vytvářet nová témata v tomto fóru Nemůžete odpovídat na témata v tomto fóru Nemůžete vymazávat vaše příspěvky v tomto fóru Nemůžete upravovat vaše příspěvky v tomto fóru Nemůžete vytvářet ankety v tomto fóru Nemůžete hlasovat v anketách v tomto fóru |
Stránka byla vygenerována za 0,422 sekund.




Hromadné vkládání vrcholů křivky
Možnosti tématu


Seiner napsal(a):
