Již 10.000+ CAD tipů.
Přes 118.500 registrovaných u nás, celkem 1.095.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor.
Kompletní příkazy AutoCADu a proměnné AutoCADu 2026.
Diskuzní fórum, poradna
?CAD diskuze, rady, výměna zkušeností

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 | |
michal.s ![]() Nováček ![]() ![]() Přihlášen: 08.kvě.2014 Lokalita: ČR (Pha) Používám: AutoCad2020, Inventor2020,.. Stav: Offline Bodů: 6 |
![]() Zasláno: 23.led.2018 v 22:24 |
Zdravím,
mohl by někdo poradit jak se dostanu v LISPu k vypsání například vrcholů obdélníku. Umím ho vybrat a vypsat přes "print" celý obsah entity a pak přes "cdr+assoc" vypíšu první tečka-dvojici (10) kde je první vrchol.. ale jak se dostanu k dalším (ostatním třem) vrcholům v entitě, které mají taky tečka-dvojici 10? To mi není jasné ![]() díky za tipy! m.
|
|
![]() |
|
johny ![]() TOP uživatel ![]() Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1741 |
![]() |
Funkce entget vám dala list. Čili udělejte cyklus, který bude testovat každý člen toho listu jestli náhodou není asociován s 10.
|
|
![]() |
|
michal.s ![]() Nováček ![]() ![]() Přihlášen: 08.kvě.2014 Lokalita: ČR (Pha) Používám: AutoCad2020, Inventor2020,.. Stav: Offline Bodů: 6 |
![]() |
..To mě napadlo ale nevěděl jsem jak seznam procházet, pohledal jsem a našel funkci "nth" tudy by asi cesta mohla vest?
díky za nakopnutí.. m.
|
|
![]() |
|
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ů: 21917 |
![]() |
Nth je dost pomalé - možná něco jako:
|
|
![]() |
|
michal.s ![]() Nováček ![]() ![]() Přihlášen: 08.kvě.2014 Lokalita: ČR (Pha) Používám: AutoCad2020, Inventor2020,.. Stav: Offline Bodů: 6 |
![]() |
moc děkuji za radu, bohužel tyhle příkazy vl-... v těch se moc nevyznám používám jen ty "obyčejny" :-)
každopádně díky m.
|
|
![]() |
|
johny ![]() TOP uživatel ![]() Přihlášen: 24.led.2006 Lokalita: ČR (JM) Používám: C3D 2024 Stav: Offline Bodů: 1741 |
![]() |
Koukněte na příkazy foreach, repeat a while.
V tomto případě je nejvhodnější foreach. Spoiler alert! ;; code (if (setq en (car (entsel))) (foreach x (entget en) (if (= 10 (car x)) (print (cdr x))))) ;; end of code
Upravil johny - 26.led.2018 v 09:51 |
|
![]() |
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,456 sekund.