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 360, 3ds Max a s dalšími CAD 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 Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
Nefunkční LISP aplikace po přechodu na AutoCAD 19 |
Odpovědět | Stránka 12> archiv |
Autor | |
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Téma: Nefunkční LISP aplikace po přechodu na AutoCAD 19 Zasláno: 06.pro.2018 v 16:26 |
Zdravím a prosím o radu. Ve verzi 16 jsem používal jednoduchou aplikaci pro vkládání uzlových bodů do křivky dle zvoleného intervalu. Po přechodu na verzi 19 tato aplikace přestala fungovat. Přikládám zdrojový kód. Nevěděl by někdo, jak ho upravit na novou verzi? Děkuji. (Defun c:staniceni ()
(if (and (setq pline (car (entsel "\nVyber křivku:"))) (eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE") (setq int (getdist "\nVlož interval staničení:")) (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)) ) ) ) |
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 06.pro.2018 v 16:52 |
Funguje i ve verzi 2019. Možná doplňte definici lokálních symbolů a (vl-load-com).
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 06.pro.2018 v 23:20 |
Děkuji za reakci, ale bohužel se v tom nevyznám. Tu aplikaci jsem nepsal já, poskytl mi ji zde na fóru jeden uživatel na můj dotaz, já pouze editoval dialogy. Byl bych Vám vděčný, kdybyste mne nasměroval, kam do toho kódu patří "definice lokálních symbolů" a kam (vl-load-com), pokusím se s tím poprat... :/ Díky moc.
|
|
f.m.d.
|
|
pavelstyl
Zasloužilý člen Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2023, SolidEdgeE 2023 Stav: Offline Bodů: 223 |
Zasláno: 07.pro.2018 v 06:06 |
Asi nějak takto. Pavel Štyl (Defun c:staniceni (/ pline int in pt ppt) (vl-load-com)
(if (and (setq pline (car (entsel "\nVyber křivku:"))) (eq (cdr (assoc 0 (entget pline))) "LWPOLYLINE") (setq int (getdist "\nVlož interval staničení:")) (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)) ) ) ) |
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 07.pro.2018 v 06:06 |
Zkuste úplně na začátek přidat řádek:
(vl-load-com) Nebo ještě lépe použijte aplikaci VTXdist, která nabízí i tuto funkčnost. Viz: https://www.cadforum.cz/cadforum/pridani-vrcholu-krivky-po-stejne-dlouhych-usecich-tip10090 |
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 07.pro.2018 v 11:45 |
Díky vám oběma, pánové, ale bohužel nefunguje ani jedna z možností. U Staničení proběhne výběr křivky i zadání intervalu, ale uzlové body se nepřidají. U VTXdist se objeví pouze dialog "Select a polyline to divide/measure:" a ten po výběru křivky zmizí...
|
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 07.pro.2018 v 13:04 |
To je nějaké divné. Modifikujete opravdu křivku (LWPOLYLINE)? Zadáváte staničení v jednotkách odpovídajících reálnému rozměru oné křivky? Ve VTXdist není použit žádný dialog a pokud nevyberete křivku, vypíše se varování.
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 28.led.2019 v 14:43 |
Zdravím, pánové. Po delší době se vracím k problému nefunkční aplikace. Hledal jsem všude možně ale bez úspěchu. K otázce výše: ano, modifikuji křivku a zadávám staničení v jednotkách odpovídajících jejímu reálnému rozměru. VTXdist se ukončí po prvním kliknutí a to kamkoli, varování "not a lwpolyline !" se nezobrazí. Nemůže to být chyba v instalaci nebo v nastavení?
|
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 28.led.2019 v 14:56 |
Instalace u těchto LISP nástrojů není potřeba. Ta aplikace se "potichu" ukončí jen v případě, že kliknete někam "do prázdna". Vybíráte opravdu vybíratelnou entitu, v nezamčené hladině?
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 28.led.2019 v 16:16 |
Měl jsem na mysli instalaci a nastavení přímo AutoCADu 2019. A jinak dělám všechno, jak píšete. VTXdist se ukončí, ať kliknu kamkoliv - na křivku, na úsečku, do prázdna. Pokusím se zachytit obrazovku a pošlu.
|
|
f.m.d.
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 28.led.2019 v 17:45 |
Zde můj chabý pokus o demonstraci...
|
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 28.led.2019 v 22:18 |
Tam bohužel není vidět to nejdůležitější - příkazový řádek a výzvy nebo chyby, které se do něj vypisují. Když tak jednodušší na zachycení je možná Autodesk Screencast.
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 28.led.2019 v 22:51 |
Teď s CMD.
|
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 29.led.2019 v 07:09 |
Zkuste prosím napsat hlášení toho VTXdist. Je to v globálním USS?
Zkoušel jsem VTXdist horem dolem a žádný problém v násilném ukončování tam nevidím. Upravil Vladimír Michl - 29.led.2019 v 08:48 |
|
Ondřej Urban
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
CAD/BIM manager Přihlášen: 06.úno.2007 Lokalita: ČR (Pha) Používám: AutoCad Architecture 2023 Stav: Offline Bodů: 252 |
Zasláno: 29.led.2019 v 10:32 |
Zdravím,
pravda jedu na 2017, ale funguje oboje i s jiným souřadným systémem. Testováno jen systémem drag end drop - "staniceni.lsp" hozeno z průzkumníka na daný výkres a vyzkoušeno, OK. pěkný den Ondra
|
|
Ondřej Kurkan Urban
PERI, spol. s r.o. http://www.peri.cz WIN 10, 64GB, RTX A4500, 2x27" ACA 2023, ntb LENOVO P 16 G1 |
|
johny
TOP uživatel Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2022 Stav: Offline Bodů: 1671 |
Zasláno: 29.led.2019 v 12:20 |
Zkuste následovat po mě: https://autode.sk/2MKgsTf
Nakreslete KŘIVKU 150 jednotek VLIDE Nový Toggle Break Add Watch Load active edit window Activate Autocad Zadejte Staniceni A pak rozumnou rychlostí pořád klikejte Step Into, nebo mačkejte F8. Až budete vyzván, vyberete tu křivku a zadejte 100. Takle vytrasujete na čem vám to spadne. Pak postněte videa a váš testovací výkres. PS. A přístě až budete nahrávat něco s příkazovýcm řádkem tak prosím s více než jedním viditelným řádkem, kde to důležitý uteče a není vidět!!
|
|
Dostojevskij
Diskutér Přihlášen: 12.říj.2007 Lokalita: ČR (OS) Používám: AutoCAD2013 Stav: Offline Bodů: 23 |
Zasláno: 29.led.2019 v 17:03 |
Díky všem za reakce. Johnyho PS mne konečně nakoplo k tomu, co už jsem měl udělat dávno, a to rozšířit příkazový řádek. Pardon. Nuže toto jsme tam našel: Příkaz: VTXDIST
Select a polyline to divide/measure: ; chyba: no function definition: VLAX-ENAME->VLA-OBJECT Příkaz: Příkaz: STANICENI Vyber křivku: Vlož interval staničení:100 ; chyba: no function definition: VLAX-CURVE-GETPOINTATDIST |
|
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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21434 |
Zasláno: 29.led.2019 v 17:33 |
Vida, a je jasno :-)
Stačí přidat ten řádek (vl-load-com) avizovaný v 5. zprávě shora. |
|
Pro technickou podporu CAD
kontaktujte Helpdesk
Odpovědět | Stránka 12> archiv |
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 1,270 sekund.