ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.000 registrovaných u nás, celkem 1.130.000 registrovaných (CZ+EN). Tipy pro AutoCAD 2027, pro Inventor 2027 a pro Revit 2027. Nový Kalkulátor nosníků, Spirograf generátor a Regresní křivky v sekci Převodníky. Kompletní příkazy a proměnné AutoCADu 2027.
Autodesk Civil 3D 2027
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 emea.support.arkance.world
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenovýpis hladin
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: Czech Republic
Používám:
AutoCAD
Stav: Offline
Bodů: 1919
 Přímý odkaz na tuto zprávu Téma: výpis hladin
    Zasláno: 07.led.2008 v 10:56
Navazuji na již uzavřené téma
Nyní potřebuji mít v lispu k dispozici seznam hladin, ze které beru jednu hladinu po druhé a provádím:
  **1  je-li uzamčena/zmražena/vypnuta->odemkni/rozmraž/zapni).
  **2  obsahuje-li její název ABC, přejmenuj ji na 123_ABC
  **3  ...atd...
Jasné, že to bude v cyklu, ale nedaří se mi sestrojit ten seznam hladin - někam je třeba asi napsat list, ale kam?
...
(setq HL (tblnext "LAYER" "T")) ;provede vypis vlastnosti 1. hladiny
(while HL
  (setq JHL (cdr (assoc 2 HL))) ;promenne JHL priradi nazev 1. hladiny
    (if ....
      (command "_......) ;pri splnenem kriteriu provede potrebne operace
    )
  (setq HL (tblnext "LAYER")) ;provede vypis vlastnosti dalsi hladiny
)
...
Pro **1 šlo v podstatě udělat použitím příkazu
(command "_-layer" "_ON" "*" "_T" "*" "_U" "*" "")
ale mně šlo hlavně o tu **2.
-FerTh-
Zpět nahoru
Seiner Zobrazit panel
CAD/BIM manager
CAD/BIM manager

Přihlášen: 01.říj.2004
Lokalita: ČR (PA)
Používám:
Mechanical 2017, Inventor 2017 a starší
Stav: Offline
Bodů: 1662
 Přímý odkaz na tuto zprávu Zasláno: 07.led.2008 v 11:25
Už je tomu drahně let, co jsem psal něco, co pracuje přes všechny hladiny. Rozebírat se mi to nechce - snad se inspirujete ukázkou.
 
;SEZNAM HLADIN, PRUTY/TRAMY
(setq  k 0 hlad nil i 0 t 1)
(tblnext "LAYER" k)
(while (/= k nil)
       (setq k (cdr(assoc 2(tblnext "LAYER"))))
       (if (and(/= k nil)(/= k "PRUTY")(/= k "TRAMY")(/= k "CISLAU")
           (/= k "CISLAP"))
           (setq hladiny (append hladiny
           (list k ))))
       (setq t nil))

(if (= typ "S")(progn
    
     (while (< i(length hladiny))
           (setq typs nil)
      (setq typs (strcase(substr (setq hla(nth i hladiny)) (strlen hla) 1)))
      (while (and (/= typs "P") (/= typs "T"))
        (prompt (strcat " \n Obsahuje hladina " (setq hla (nth i hladiny))
                                  " (P)ruty nebo (T)rámy ?"))
        (setq typs (strcase (getstring)))
      )
     (setq hlad (append hlad (list (list hla typs))))
     (setq i (1+ i))
      )
               )
(progn
     (setq i 0)
      (while (< i (length hladiny))
                (setq hlad(append hlad (list(list (nth i hladiny) typ)))
                      i (1+ i))
       )
) )
Vítězslav Seiner

Chrudim
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 4411:Seřazení hladin podle barvy, typu čáry, viditelnosti.
Tip 3858:Jak potlačit výpis hladin xrefů v panelu hladin?
Tip 12871:Jak vypnout vypisování hladin z xrefů?
Tip 4710:Snadný tisk a uložení seznamu hladin AutoCADu.
Tip 1021:Jak exportovat seznam hladin AutoCADu LT do textového souboru?
Tip 13790:VIPJak v Advance Steel zaokrouhlit na celé milimetry rozměry plechů ve výpisech na výkrese?


 Odpovědět Odpovědět

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



Stránka byla vygenerována za 0,219 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 © 2026 | 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