CAD FÓRUM - TIPY A TRIKY | UTILITY | DISKUZE | BLOKY | PODPORA | POMOC A RADY
Registrujte se na 22. ročník konference CADfórum 2025 - 30.9. Zámek Valeč.
Přes 119.000 registrovaných u nás, celkem 1.098.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků.
Vyzkoušejte nový přesný Inženýrský kalkulátor a aktualizovaný Generátor čarových kódů.
AUTOCAD
INVENTOR
REVIT
CIVIL 3D
FUSION
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
|
Triedenie, migracia vykresov
Odpovědět 
|
Stránka 12> archiv |
| Autor | |
pedroxxl 
Diskutér 
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
 Téma: Triedenie, migracia vykresovZasláno: 27.zář.2012 v 15:34 |
|
Zdravím tak sa opäť vraciam k tomu mojmu problému. Mal som trochu čas tak som experimentoval a narazil som na problém, ktorému nechápem.
Predkladám lispík, ktorý v jednoduchosti označí A4 výkres presunie ho do SS 0,0 vyčíta z daných pozíci číslo a nazov a uloží ho pod týmto číslom a názvom.
Mám,ale problém, že ak počas vydzobávania výkresov z modeloveho priestoru sa napr. presuniem resp zoomujem priestor tak, že nieje vidno pozíciu 0,0 tak mi vyskočí chyba "Nesprávny typ argumentu lselsetp nil" a lisp sa ukončí:(( neviem prečo... Ak je vo viditelnej "zone" pozícia 0,0 tak všetko funguje normálne. (While T (setq bod1 (getpoint "\nZadaj LDR")) (setq X2 (+ (nth 0 bod1) 210.0)) (setq Y2 (+ (nth 1 bod1) 297.0)) (setq bod2 (list X2 Y2)) (setq v(ssget "_C" bod1 bod2)) (command "_move" v "" bod1 '(0 0)) (setq X0(list 0 0)) (Setq X1(list 210 297)) (setq PozNum1(list 178 16)) (setq PozNum2(list 111 15)) (setq PozText1(list 95 16)) (setq PozText2(list 22 15)) (command "_RECTANGLE" X0 X1) (setq prvni (ssname (setq v (ssget "_C" PozNum1 PozNum2)) 0)) (setq Cislo (cdr (assoc 1 (entget prvni)))) (setq druhy (ssname (setq v (ssget "_C" PozText1 PozText2)) 0)) (setq TXT (cdr (assoc 1 (entget druhy)))) (setq nazev (strcat "X:/Drawings/" Cislo" - "TXT".dwg")) (command "_-WBLOCK" nazev "" X0 "_W" X0 X1 "") ) |
|
 |
|
|
Seiner
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 |
Zasláno: 13.zář.2012 v 09:52 |
|
Mám odzkoušeno, že třeba definice hladin, písem, kótovacích stylů apod. jde dostat do výkresu prostým vložením šablony jako bloku. Nevím teď, jestli to funguje i pro nastavení strany (nepoužívám - hromadný tisk/publikování řešíme pomocí vlastní aplikace). Pokud ano, mělo by stačit vložit tu šablonu do výkresu před "rozebíráním" nebo do jednotlivých výkresů následně.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 13.zář.2012 v 09:46 |
|
keď som mal čas tak som sa s tým hral a doplnil som tam ukladanie výkresu pod číslom a menom, ktorý načíta z výkresu a ešte som ich popresúval pred uložením do začiatku SS(X0Y0).
Mám vytvorenu šablonu hlavne pre publikovanie(nastavenie strany), preto som chcel aby mal každý výkres rovnaké vlastnosti stránky. V budúcnosti napr. pre hromadne vytvaranie PDF.
|
|
|
|
|
Seiner
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 |
Zasláno: 13.zář.2012 v 09:25 |
|
Další možnost by pak měla být, napřed vytvořit dy dílčí výkresy a pak si udělat script, který by do všech vložil potřebné věci. Generátor dávky není problém.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
Seiner
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 |
Zasláno: 13.zář.2012 v 09:23 |
|
A co tím chcete dosáhnout? Jestli potřebujete nějaké definice, hladiny apod., pak by mělo podle mého stačit do toho mega-výkresu napřed vložit šablonu.
Wblok nic takového, pokud vím, neumí. Programátorsky by to byla jiná liga. (Založit nový výkres a vložit do něj blok.)
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 13.zář.2012 v 08:28 |
|
Chcel by som sa Vás spýtať ešte pán Seiner, ten lispík čo ste tu dali na ten pišblok (viď nižšie) či by sa dal ukladať ten blok do súboru so šablónou? Alebo by to už cez ten blok nešlo, ale inou cestou.
(setq i 1) (setq n1 (getstring "\nZákladní název:")) (While T (Setq LDR (getpoint "\nLDR:")) (setq PHR (getpoint LDR "\nPHR:")) (setq nazev (strcat (getvar 'dwgprefix) n1 "-" (itoa i))) (command "_-WBLOCK" nazev "" LDR "_W" ldr phr "") (setq i (1+ i)) ) |
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 13:39 |
|
leda, že by to byl třetí klik té utility - LDR, PHR, ČV
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 13:38 |
|
Pokud byste dokázal s jistotou vybrat ten text (a tomu moc nevěřím), pak se dostanete na data entity a pomoci ASSOC si text přečtete.
Nemám čas - tak ukázka práce s textem:
(defun C:prepistext(/ PRVNI DRUHY TXT USPECH)
(setq uspech 0) (while (= uspech 0) (prompt "\n Vyber kopírovaný text ") (command "_SELECT" "_SINGLE" pause) (setq prvni(ssname(setq v(ssget "P"))0)) (if (= "TEXT" (cdr(assoc 0(entget prvni))))(setq uspech 1)) ) (setq TXT (cdr(assoc 1(entget prvni)))) (setq uspech 0)
(while (= uspech 0) (prompt "\n Vyber přepisovaný text ") (command "_SELECT" "_SINGLE" pause) (setq druhy(ssname(setq v(ssget "P"))0)) (if (= "TEXT" (cdr(assoc 0(entget druhy))))(setq uspech 1)) ) (entmod (subst (cons '1 TXT)(assoc '1 (entget Druhy))(entget druhy)))
) |
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 24.srp.2012 v 13:26 |
No akurát sa o to snažím, ale razítka sú kreslene normalne čiarami a je tam vloženy len text takže žiadne bloky... A hľadám príkazy lebo ja som taký začiatočník v tom. Viete mi poradiť ako z obrazovky prečítam text ak poznám súradnice?
|
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 13:09 |
|
Teď jsem si ještě všimnul toho čísla výkresu - to by také šlo v rámci té utilitky. Máte okno, v něm dáte vybrat blok razítka a přečtete si atribut a ten použijete jako název souboru. (Já jsem tam dal jen pořadové číslo). Ale s tím se teď nemůžu zabývat.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 13:06 |
|
Tak naposledy: za tu dobu, co budete ručně rovnat výkresy, byste tou poslení utilitkou je měl podle mého vyexportované. Rovnání je daleko pracnější.
Ale dělejte si to jak chcete.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 24.srp.2012 v 12:50 |
|
No zrovnávať výkresy do rastru budem asi manualne teda nič iné som zatiaľ ešte nenašiel :) potom chcem použiť tú vašu utilitu spolu s tým automatickým ukladaním z poľa kde mu zadám počet stlpcov a riadkov a ešte chcem aby z určitého miesta(rohového razítka na tom výkrese (v každom je fixné) bral číslo výkresu a dával ho ako meno súboru.
|
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 12:09 |
|
To já chápu a nezávidím Vám to. Jenže pokud chcete použít nějakou utilitu, která bude zpracovávat výkresy podle jejich umístění v rastru, tak stejně musíte každý soubor otevřít a přerovnat v něm výkresy. Žádný automat na to asi není, takže POSUN - okno - základní bod - nové umístění. A napřed si tam musíte nakreslit asi nějaký rastr, do kterého to budete umísťovat. Pak teprve spustíte lisp a tomu řeknete jak je velká buňka a kolik je řádků a sloupců. Tou malou utilitkou byste to měl už dávno hotové.
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 24.srp.2012 v 12:03 |
No len ja mám asi 300 suborov možno aj viac kde v každom je po 100 vykresov cca, takže ako ste napísali je to mazec
 |
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 11:47 |
|
No vždyť to je to, co jsem vám poslal předtím. Jenže podmínka funkce je, že výkresy jsou v nějakém pravoúhlém rastru. A než rovnat výkresy do rastru, přijde mi jednosušší je vyzobat. (Jeden výkres=2 kliknutí). Je to ve smyčce, takže opravdu jen klikáte. -WBLOCK entity smaže, takže vidíte, co jste už vyexportoval - jen nakonec nesmíte uložit :-)
|
|
|
Vítězslav Seiner
Chrudim |
|
|
|
|
pedroxxl
Diskutér
Přihlášen: 18.zář.2011 Lokalita: Slovensko Používám: Autocad Inventor 11, AutoCad Mechanical 2007 Stav: Offline Bodů: 25 |
Zasláno: 24.srp.2012 v 10:59 |
|
Seiner ďakujem za lipsik, ale skusim ho spojiť ešte s jedným lipsikom aby som nemusel zobať tie vykresy ručne, ale až to vyberá z poľa výkresov. Dúfam, že to pobeží. Som úplný začiatočník v tom tak za nejaký čas dám vedieť či to vyšlo alebo či potrebujem pomoc :)
|
|
|
|
|
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ů: 21965 |
Zasláno: 24.srp.2012 v 10:17 |
O této utilitě ale nebyla řeč. Je to jen shoda jmen, naše utilita odkazovaná z onoho tipu takovéto problémy nemá.
|
|
|
|
|
Seiner
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 |
Zasláno: 24.srp.2012 v 10:11 |
|
Když si pustíte následující lispík, tak vyzobete za minutu výkresy. IMHO cesta nejmenšího odporu :-)
(setq i 1)
(setq n1 (getstring "\nZákladní název:")) (While T (Setq LDR (getpoint "\nLDR:")) (setq PHR (getpoint LDR "\nPHR:")) (setq nazev (strcat (getvar 'dwgprefix) n1 "-" (itoa i))) (command "_-WBLOCK" nazev "" LDR "_W" ldr phr "") (setq i (1+ i))
) |
|
|
Vítězslav Seiner
Chrudim |
|
|
|
Možnosti tématu
Seiner napsal(a):Pro technickou podporu CAD
kontaktujte Helpdesk
|
Odpovědět
|
Stránka 12> archiv |
| 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,375 sekund.
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 © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
