ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Přes 123.000 registrovaných u nás, celkem 1.127.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.
Konference CADfórum 2026 - automatizace navrhování
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řenohledání bloků ve výkrese
 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: hledání bloků ve výkrese
    Zasláno: 04.úno.2008 v 15:21
Jde o to sladit/sjednotit názvy bloků naší nadstavby (cca. 1200 výkresů bloků) tj. splnění podmínky, že každý výkres použitého bloku smí obsahovat jen dílčí bloky s výše popsanými příponami. Důvod je návaznost některých aplikací na názvy těchto dílčích bloků. Jednorázově bych to chtěl zkontrolovat - při odchodu z práce bych to spustil, ráno by byly výkresy s "neuniformními" bloky odděleně uloženy.
-FerTh-
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: 31.led.2008 v 07:11
A čeho chcete dosáhnout?
Aby se vždy při každém otevření výkresu prováděla ta kontrola a nebo to budete spouštět přes nějaký script generátor ručně (např. 1x týdně)?
 
Pavel Štyl
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: 30.led.2008 v 21:40
Nějak se nemohu dostat s tím dál... Představa: Potřebuji zjistit, jestli ve výkresech existují nějaké bloky s konkrétním názvem, pokud ne, tak výkres se uloží zvlášť do jiného podadresáře.
Příklad:
1. otevřený výkres se jmenuje 111.dwg, měl by obsahovat bloky s názvem 111-B, 111-N, 111-P (anebo alespoň jednoho z nich)
Hledám bloky s názvem 111_C, 111_C-B, 111_C-N, 111_C-N (tj. porovnávám 111-B <-> 111_C-B, ...)
Pokud  ve výkrese 111 některý blok tohoto názvu (s indexem _C) najde (tj. shoduje se "kořen" názvů 111), končí a otevře další výkres s názvem 222.dwg...
Pokud ve výkrese 111 nenajde ani jeden z těch bloků (s indexem _C), tak 111.dwg se uloží do podadresáře <AktualniAdresar>\neshoda-bloky\111.dwg, končí a otevře další výkres s názvem 222.dwg...
 
(defun S::STARTUP ()
...
;;;;;podrutina pro ziskani odkladaciho podadresare
  (defun C:ADR (/ D1 D2 DWG A1 A2 A3)
    (setq D1 (getvar "cdate"))  ;20071213.15 /akt. datum/
    (setq D2 (rtos (fix D1) 2 0)) ;"20071213"
    (setq DWG (cadr (fnsplitl (getvar "dwgname")))) ;nazev akt.vykresu
    (setq A1 (getvar "dwgprefix")) ;<AktualniAdresar>
    (setq A2 (strcat A1 "neshoda-bloky" D2 "\\")) ;nazev podadresare
    (setq A3 (strcat A2 DWG))  ;nazev akt. vykresu s plnou cestou
    (command "shell" (strcat "mkdir" " " A2)) ;zalozi podadresar A2
    (princ)
  )
...
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;zacatek procedury
    (C:ADR)    ;ziskani podadresare
    (setq
      DWG-B    (strcat DWG "-B")
      DWG-N    (strcat DWG "-N")
      DWG-P    (strcat DWG "-P")
      DWG_C    (strcat DWG "_C")
      DWG_C-B  (strcat DWG_C "-B")
      DWG_C-N  (strcat DWG_C "-N")
      DWG_C-P  (strcat DWG_C "-P")
    )
    (setq SS1 (list DWG DWG-B DWG-N DWG-P))
    (setq SS2 (list DWG_C DWG_C-B DWG_C-N DWG_C-P))
    (if (and (tblsearch "insert" SS1) (tblsearch "insert" SS2))
      nil
      (command "_saveas" "" A3)
    )
...
 
...a tady to nevím jestli to takhle funguje a jak by to mělo být dál ...
Lisp je pojmenován acad2004.lsp, je umístěn v <AktualnimAdresari>. Proces startuje buď kliknutím na 1. výkres anebo napsáním "acad" do přík. řádku, výkresy se otvírají jeden po druhém a vyhodnocují se...


Upravil Ferdinand - 30.led.2008 v 21:44
-FerTh-
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 7166:Vyhledávání CAD bloků přímo z Hledání ve Windows 7.
Tip 7560:Vyhledání všech DWG výkresů se zadanou hodnotou atributu bloku či textu.
Tip 5318:Jak v bloku nastavovat dva atributy vždy na stejnou hodnotu?
Tip 6374:VIPK čemu slouží proces AcDwgFilterImp16.exe v Task Manageru?
Tip 5629:VIPJak Autodesk aplikace hledá síťovou licenci?
Tip 6406:Jak ve Vaultu vyhledat všechny vydané dokumenty?


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