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 | |
michal.s
Nováček
Přihlášen: 08.kvě.2014 Lokalita: ČR (Pha) Používám: AutoCad2020, Inventor2020,.. Stav: Offline Bodů: 6 |
Téma: Auto LISP výpis vrcholů entity (rectangle)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ů: 1749 |
Zasláno: 23.led.2018 v 23:18 |
|
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 |
Zasláno: 24.led.2018 v 04:39 |
|
..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ů: 22041 |
Zasláno: 24.led.2018 v 06:48 |
|
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 |
Zasláno: 24.led.2018 v 08:37 |
|
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ů: 1749 |
Zasláno: 24.led.2018 v 10:11 |
|
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,367 sekund.



Auto LISP výpis vrcholů entity (rectangle)
Možnosti tématu



