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: 02.úno.2019 v 17:27 |
Nuže, pánové, všem vám díky za reakce. Problém konečně vyřešen díky poslednímu odkazu pana Michla, jemuž tímto děkuji obzvláště za ochotu a trpělivost. Bylo to v registrech - doplnil jsem chybějící klíče a vše funguje. 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 Systems Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Dodáváme produkty Autodesk Stav: Offline Bodů: 21488 |
Zasláno: 29.led.2019 v 17:52 |
Pak tedy ještě zkuste postupy dle:
https://www.cadforum.cz/cadforum/chyba-no-function-definition-vlax-ename-vla-object-tip12122 |
|
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:50 |
Ale ten sem tam přidal hned, jak jste mi to napsal! (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)) ) ) ) |
|
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ů: 21488 |
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. |
|
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.
|
|
johny
TOP uživatel Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2022 Stav: Offline Bodů: 1682 |
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!!
|
|
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ů: 255 |
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 |
|
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ů: 21488 |
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 |
|
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ů: 21488 |
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 17:45 |
Zde můj chabý pokus o demonstraci...
|
|
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 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.
|
|
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ů: 21488 |
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 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ů: 21488 |
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: 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ů: 21488 |
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 |
|
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)) ) ) ) |
|
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,629 sekund.