Diskuzní fórum, poradna

archiv · <AktualniAdresar>

   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

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	Téma: hledání bloků ve výkrese 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-

pavelstyl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých Zasloužilý člen Přihlášen: 06.říj.2004 Lokalita: Czech Republic Používám: AutoCAD Mech 2025, SolidEdgeE 2025 Stav: Offline Bodů: 226	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

Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	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-

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:		K čemu slouží proces AcDwgFilterImp16.exe v Task Manageru?
Tip 5629:		Jak Autodesk aplikace hledá síťovou licenci?
Tip 6406:		Jak ve Vaultu vyhledat všechny vydané dokumenty?

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

hledání bloků ve výkrese

?
CAD diskuze, rady, výměna zkušeností