ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.500 registrovaných u nás, celkem 1.134.000 registrovaných (CZ+EN). Tipy pro AutoCAD 2027, pro Inventor 2027 a pro Revit 2027. Nový Kalkulátor nosníků, Inženýrský kalkulátor, Spirograf generátor a Regresní křivky v sekci Převodníky. Kompletní příkazy a proměnné AutoCADu 2027.
Eagle Point Pinnacle - výuka CAD/BIM
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řenozjištění dat bloku v rozvrženích
 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
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 Téma: zjištění dat bloku v rozvrženích
    Zasláno: 15.čvc.2009 v 11:42
No nemělo by tam být u toho while místo sslength pouze length ?
 
Pavel Štyl
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
řešení Autodesk
Stav: Offline
Bodů: 22272
 Přímý odkaz na tuto zprávu Zasláno: 15.čvc.2009 v 11:34
Ta druhá konstrukce by měla fungovat - pro jistotu si vypisujte hodnotu LAYT1 - jestli je to opravdu string.
Vladimír Michl
CADs.cz, LinkedIn
Autodesk Expert Elite
Zpět nahoru
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 Zasláno: 15.čvc.2009 v 11:07
Pořád to není OK...
...
(setq LAYTL (layoutlist))
(setq i 0)
(while (< i (sslength LAYTL))
  (command "_layout" "_S" (nth i LAYTL))
  (setq LAYT1 (nth i LAYTL))
  (setq RT1 (ssget "_X" '((-4 . "<AND") (0 . "INSERT") (2 . "RAZ--T1*") (410 . LAYT1) (-4 . "AND>")))) ;error: bad SSGET list value
  (if (/= RT1 nil)
    (progn
      (setq E (ssname RT1 0))
...
    )
  )
...
)
...
A to i v případě, když to napíšu jako
(setq RT1 (ssget "_X" (list (cons -4 "<AND") (cons 0 "INSERT") (cons 2 "RAZ--T1*") (cons 410 LAYT1) (cons -4 "AND>")))) ;error: bad SSGET list value
-FerTh-
Zpět nahoru
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 Zasláno: 09.čvc.2009 v 15:12
Děkuji, mezitím jsem našel tuhle odpověď i v jiném tématu... omlouvám se.
-FerTh-
Zpět nahoru
Martin Bielina Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 04.led.2007
Lokalita: ČR (Pha)
Používám:
AutoCAD True view 2016
Stav: Offline
Bodů: 100
 Přímý odkaz na tuto zprávu Zasláno: 07.čvc.2009 v 11:07
neověřeno, nevyzkoušeno (nemám momentálně na čem), ale zápis zmíněného řádku by měl vypadat spíše takto:
                         
(setq RT1 (ssget "_X" '((-4 . "<AND") (0 . "INSERT") (2 . "RAZ--T1*") (410 . "LAYT1") (-4 . "AND>"))))

Výsledkem pak bude množina všech entit, které splňují všechna uvedená kriteria.

=======
opravil jsem chybu v zápisu. Nesmíte moje příspěvky aplikovat na svůj případ systémem CTRL+C a CTRL+V. Je to jen návod jak na to. "LAYT1" je zase možné upravit dle potřeby a doplnit o znaky *, ? atd.

Původní zápis s LAYT1 (bez uvozovek) by fungoval pokud by se jednalo o načítanou proměnnou. To jen na vysvětlenou, aby byl můj příspěvek co nejkompletnější. Pokud je porovnávaný s podmínkou konkrétní textový řetězec musí být v uvozovkách stejně jako všechny ostatní v podmínce uvedené.

Upravil Martin Bielina - 15.čvc.2009 v 11:36
Zpět nahoru
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 Zasláno: 07.čvc.2009 v 10:47
Po nějaké době opět navážu, nyní mám dotaz na následující:
(setq LAYTL (layoutlist))
(setq LAYT1 (nth i LAYTL))
(setq RT1 (ssget "_X" (list (cons 0 "INSERT") (cons 2 "RAZ--T1*") (cons 410 LAYT1))))
Poslední řádek vrací nil - a to právě nevím, proč? Blok RAZ--T1 má variantu buď RAZ--T1 anebo RAZ--T1_en anebo RAZ--T1_ru a pouze jeden z nich je vždy vložen do rozvržení.
-FerTh-
Zpět nahoru
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 Zasláno: 05.úno.2009 v 15:08
Původně odeslal(a) Seiner Seiner napsal(a):

...V databázi IMHO nejsou kódy, pokud jsou defautní. ...pokud si udělám výpis na jakoukoliv entitu, třeba úsečku, tak pokud má barvu a typ čáry podle hladiny, tak ty kódy 6 a 62 tam nejsou. Jakmite té úsečce nastavím nějakou jinou barvu a/nebo typ čáry, tak se kódy ve výpisu objeví...
Je to tak.
- úsečka nakreslená defaultními hodnotami:
((-1 . <Entity name: 7efeb0a0>) (0 . "LINE") (330 . <Entity name: 7efe5cf8>) (5 . "48C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 0) (100 . "AcDbLine") (10 50.0 110.0 0.0) (11 260.0 220.0 0.0) (210 0.0 0.0 1.0))
- po změně color=222, linetype="center", ltscale=0.111 :
((-1 . <Entity name: 7efeb0a0>) (0 . "LINE") (330 . <Entity name: 7efe5cf8>) (5 . "48C") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (62 . 222) (6 . "CENTER") (48 . 0.111) (100 . "AcDbLine") (10 50.0 110.0 0.0) (11 260.0 220.0 0.0) (210 0.0 0.0 1.0))
Původně odeslal(a) Seiner Seiner napsal(a):

...Co je pro blok default, si nejsem tak jistý - asi to bude tedy BYBLOCK a ne BYLAYER....
Závisí na aktuálním nastavení při vytáření bloku (nebo čehokoliv) - já používám color=ByBlock, linetype=ByBlock.
 
Původně odeslal(a) Martin Bielina Martin Bielina napsal(a):

...group code týkající se barvy což je 62 a u některých entit (kóty) pro jejich dílčí subentity pak 70. ...
Je to jiné u bloku, který obsahuje atributy a u bloku bez atributů? Anebo pokud blok obsahuje obyč. text?


Upravil Ferdinand - 05.úno.2009 v 15:18
-FerTh-
Zpět nahoru
Martin Bielina Zobrazit panel
Zasloužilý člen
Zasloužilý člen

Přihlášen: 04.led.2007
Lokalita: ČR (Pha)
Používám:
AutoCAD True view 2016
Stav: Offline
Bodů: 100
 Přímý odkaz na tuto zprávu Zasláno: 05.úno.2009 v 11:10
0 = BYBLOCK; 256 = BYLAYER (default) a to platí pro jakoukoliv entitu a group code týkající se barvy což je 62 a u některých entit (kóty) pro jejich dílčí subentity pak 70. S každou další verzí autocadu se ale možnosti stále rozšiřují, takže nejlepší je najít si to v aktuální nápovědě. IMHO default hodnoty autocad zapisuje jako nil a tim šetří místo v databázi, a proto pří nastavení BYLAYER ve výpisu 62 není.
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: 05.úno.2009 v 10:26
...tu hladinu vidím taky...
 
To se právě, i když neobratně, pokuším sdělit. V databázi IMHO nejsou kódy, pokud jsou defautní. Co je pro blok default, si nejsem tak jistý - asi to bude tedy BYBLOCK a ne BYLAYER. Obdobně, pokud si udělám výpis na jakoukoliv entitu, třeba úsečku, tak pokud má barvu a typ čáry podle hladiny, tak ty kódy 6 a 62 tam nejsou. Jakmite té úsečce nastavím nějakou jinou barvu a/nebo typ čáry, tak se kódy ve výpisu objeví.
(DXF asi je ukecanější a dává i redundantní údaje)
Vítězslav Seiner

Chrudim
Zpět nahoru
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 Zasláno: 05.úno.2009 v 08:31
...(8 . "0")...
hladina tam je. Ale není jisté, že barva bloku bude vždy Bylayer - právě proto to chci zjistit. Když se podívám do souboru dxf, tam to je uvedeno { (6 . Byblock) a (62 . 222) } :
...
AcDbBlockEnd
  0
ENDSEC
  0
SECTION
  2
ENTITIES
  0
INSERT
  5
47B
330
1F
100
AcDbEntity
  8
0
  6
ByBlock
 62
   222
100
AcDbBlockReference
 66
     1
  2
...
Chci se ale dopátrat, jak to v lispu napsat.
-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: 04.úno.2009 v 15:48
Myslím, že nejsou uvedeny kódy, který jsou BYLAYER. Takže zjistit hladinu a z ní barvu a typ čáry.
Vítězslav Seiner

Chrudim
Zpět nahoru
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 Zasláno: 04.úno.2009 v 14:51
Zlehka navážu na téma - potřebuji získat v lispu vlastnosti bloku COLOR a LINETYPE. Jak/kde se to dá přečíst, když data bloku vypadají takhle:
((-1 . <Entity name: 7efe6060>) (0 . "INSERT") (330 . <Entity name: 7ef92cf8>)
(5 . "494") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbBlockReference") (2 . "pokus-block#ClosedPolyline_C") (10 0.0 0.0 0.0) (41
. 1.0) (42 . 1.0) (43 . 1.0) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0)
(210 0.0 0.0 1.0))
tj. kód 62(=barva) ani 6(=typ čáry) tam není.
-FerTh-
Zpět nahoru
chlebovsky Zobrazit panel
Zasloužilý člen
Zasloužilý člen
Avatar

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112
 Přímý odkaz na tuto zprávu Zasláno: 19.pro.2008 v 14:11
Nevím jestli jsem už mimo kvůli svátků, ale pořád mi to nějak nejde :-) Něco dělám špatně ? a mejl s heslem mi taky nedošel, tak nevím :-)
Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l
Zpět nahoru
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 Zasláno: 19.pro.2008 v 13:43
Aha, no jasně, na to jsem zapomněl - omluva; již napraveno.
-FerTh-
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
řešení Autodesk
Stav: Offline
Bodů: 22272
 Přímý odkaz na tuto zprávu Zasláno: 18.pro.2008 v 15:33
Ochrana účtu při přístupu z jiného počítače je bohužel součástí kódu aplikace fóra. Také bych někdy uvítal zůstat přihlášený z více strojů.
Vladimír Michl
CADs.cz, LinkedIn
Autodesk Expert Elite
Zpět nahoru
chlebovsky Zobrazit panel
Zasloužilý člen
Zasloužilý člen
Avatar

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112
 Přímý odkaz na tuto zprávu Zasláno: 18.pro.2008 v 10:16
Díky, něco takového jsem předpokládal, takže p. Ferdinande, prosím preosím o přístupové údaje, klidně na martin@vchlebovska.eu díky moc.
 
A ještě poprosím p. Michla když ho tady vidím, sice je to mimo tento okruh otázky, ale jestli by mi mohl poradit jak udělat to, že se hlásím do fora ze 2 počítačů, a vždy se musím přihlašovat, když jsem pouze na jednom, hlásí se automaticky, ale jak přejdu na 2 kompl, v jiné firmě, musím se přihlásit znovu
DOMA a v PRACI - lze to nějak udělat ? Diky moc.
Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
řešení Autodesk
Stav: Offline
Bodů: 22272
 Přímý odkaz na tuto zprávu Zasláno: 18.pro.2008 v 08:44
Aha, pane Ferdinand si vytvořil vlastní projekt - pak vás tedy musí přizvat osobně nebo nastavit oprávnění jeho projektu pro veřejný přístup.
Vladimír Michl
CADs.cz, LinkedIn
Autodesk Expert Elite
Zpět nahoru
chlebovsky Zobrazit panel
Zasloužilý člen
Zasloužilý člen
Avatar

Přihlášen: 18.čer.2007
Lokalita: ČR (JM)
Používám:
Autocad R9 - 2022
Stav: Offline
Bodů: 112
 Přímý odkaz na tuto zprávu Zasláno: 17.pro.2008 v 22:48
To jsem zkoušel, ale nic :-(
 
cadforum / cadforum

Přístup do [application/Files] odepřen.
Příčina:Nejste členem projektu.
Ing. Martin Chlebovský

www.kde-je-auto.cz

GPS monitoring provozu vozidel a osob.

WebDeveloper.

Programátor aplikací pro Autocad a MS Office.

Tvorba WWW aplikací.

Modelování domů a staveb.&l
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 4409:VIPZjištění parametrů a termínů výpůjčky síťové licence FlexLM (přehled výpůjček).
Tip 6817:VIPAutoCAD nereaguje na nastavení jednotek a bloky, xrefy a rozvržení a ctrl+v objekty vkládá zvětšené.
Tip 10940:Tisk náhodných čar, které nejsou na výkrese.
Tip 4379:Úprava atributů bloků v několika rozvrženích.
Tip 14623:Vliv měřítka na velikost značky v Dopraváku a její zobrazení ve výřezu rozvržení.
Tip 12636:VIPZjištění práce v síti VPN (LISP).


 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,383 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