ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Děkujeme za účast na konferenci CADfórum 2025 - archiv s prezentacemi byl rozeslán účatníkům
Přes 119.500 registrovaných u nás, celkem 1.103.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a proměnné prostředí AutoCADu.
Autodesk Fusion 360 - cloudový CAD/CAM/CAE - v CZ
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD diskuze, rady, výměna zkušeností

CAD Fórum - Homepage 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
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoNefunkční LISP aplikace po přechodu na AutoCAD 19
 Odpovědět Odpovědět Stránka  12> archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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! Thumbs Up
f.m.d.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
johny Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 24.led.2006
Lokalita: ČR (JM)
Používám:
C3D 2024
Stav: Offline
Bodů: 1749
 Přímý odkaz na tuto zprávu 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!!
Zpět nahoru
Ondřej Urban Zobrazit panel
CAD/BIM manager
CAD/BIM manager
Avatar

Přihlášen: 06.úno.2007
Lokalita: ČR (Pha)
Používám:
AutoCad Architecture 2023
Stav: Offline
Bodů: 271
 Přímý odkaz na tuto zprávu 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
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu Zasláno: 28.led.2019 v 22:51
Teď s CMD.
f.m.d.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu Zasláno: 28.led.2019 v 17:45
Zde můj chabý pokus o demonstraci...
f.m.d.
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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ě?
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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í.
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
Dostojevskij Zobrazit panel
Diskutér
Diskutér

Přihlášen: 12.říj.2007
Lokalita: ČR (OS)
Používám:
AutoCAD2013
Stav: Offline
Bodů: 23
 Přímý odkaz na tuto zprávu 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.
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
ARKANCE

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Implementujeme řešení Autodesk
Stav: Offline
Bodů: 22018
 Přímý odkaz na tuto zprávu 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
Vladimír Michl (moderátor)
ARKANCE CZ - arkance.world
(podpora viz helpdesk.arkance-systems.cz)
Zpět nahoru
pavelstyl Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 06.říj.2004
Lokalita: Czech Republic
Používám:
AutoCAD Mech 2025, SolidEdgeE 2025
Stav: Offline
Bodů: 229
 Přímý odkaz na tuto zprávu 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))
    )
  )
)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 5753:VIPModul FEM/MKP nefunguje po instalaci Inventoru Professional 2008.
Tip 10404:Nefunkční ukládání ve vodařském rozšíření Hydrographs.
Tip 1322:Chyba "INTERNAL ERROR: EREGEN 9 19"
Tip 9521:Prázdná paleta Vlastnosti po odinstalaci Autodesk 360.
Tip 11512:Do kdy si mohu ponechat starou trvalou licenci při přechodu na Subscription (M2S)?
Tip 6796:VIPObnovení chybějících příkazů AutoCADu v ADT/Architecture.


 Odpovědět Odpovědět Stránka  12> archiv

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,680 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img