Mam zhruba 3000 vykresov. Na kazdom potrebujem zmenit verziu revizie, nazov vykresu a este par poloziek v titulnom bloku.
Je mozne napisat urcity program ktory mi zmeni tento titulny blok podla urciteho vstupneho suboru?
Moja predstava je taka ze mam v tabulkovom editore stlpce, kde kazdy stlpec zodpoveda urcitemu polu v titulnom bloku a kazdy riadok zodpoveda jednemu vykresu. Pretoze praca typu otvorit kazdy vykres a prepisat to manualne sa mi zda zdlhava.
Co vsetko potrebujem? Mam AUTOCAD2009 full version.

Dik


Upravil martiner33 - 03.led.2010 v 18:22

Kouknete jeste sem:
http://www.cadforum.cz/forum/forum_posts.asp?TID=7536&KW=scriptmaker

Nebude to úplně triviální (pokud s LISPem začínáte). AutoLISP a VisualLISP je dnes už prakticky totéž.

No tak ten manual Vyvojove prostredky AutoCADu je genialny, citam to od vcera vecera ;)

Mojim planom je konkretne zmenit v peciatke par udajov, teoreticky je jedno kolko. Tie udaje by som nacital z externeho suboru.

Co som sa dozvedel z mojich studii - ako mam postupovat:
1..Vymazat text na urcitych suradniciach - kazda suradnica(X,Y,Z) bude predstavovat jednu polozku v titulnom bloku
2. Vymazat obrazok na urcitej suradnici (vsetky budu dane rucne podla polohy obrazkov a textov)
3. Vlozit text na definovane suradnice .. kazdy jeden z urcitej casti EXCEL/TXT suboru
4. Vlozit obrazok na definovane suradnice

Co sa tyka toho scriptmakera.

Postupoval som nasledovne:
1.nacital som aplikaciu kratka_usecka uvedenu vo vyssom prispevku
2. nacital som aplikaciu Scriptmaker, nasledne som ju spustil
3. zadal som TXT subor so zoznamom dwg suborov, pricom jednotlive nazvy som dal pod seba .. skusal som aj iba jeden subor
4.vybral som subor LSP ktory obsahuje zdrojak kratka_usecka
5.zadal smo prikaz kratka_usecka
6.ulozil som suobr scr na disk

problem je ze subor ma velkost 0B

Kde je problem?

Tak to je zcela správná úvaha. Ve scriptu, který Vám Alfred dal k dispozici se o vyhledávání souboru stará funkce (findfile).

martiner33 napsal(a): ..... teraz uz len prist na to ako to spustit ;) idem surfovat

Prikaz pro spusteni SCR souboru je DEMO (_SCRIPT)

Takze finalne sa mi podarilo scr pekne spustit ako ste pisali prikazom DEMO. Do vsetkych troch pripravenych suborov mi to nadherne vkreslilo usecku.

Aby som este raz upresnil co xcem spravit: Mam cca 3000 vykresov. Tit.blok ostane povedny, zmenia sa v nom len dve textove polia TITLE a DATE, a jedna cast kde je vlozene BMP logo firmy. To xcem zmazat a vlozit tam nove - povodny obrazok je OLE objekt. Predpokladam ze postup bude obdobny ako zamena textov.

Uvazujem spravit externy subor. Prvy stlpec TITLE a druhy DATE. Potom predpokladam bude mozne pridat XY stlpcov a riadkov.

Jsou vykresy tvorene stejne? Tedy jako ze vsechny maji na 100% stejne umisteni entit v razitku. ANO MAJU VSETKY ROVNAKE UMIESTNENIE.

Povodny titulny blok uzamknuty v hladine. Nasiel som ze vsetky sa daju odomknut prikazom layerp (Undoes the last change or set of changes made to layer settings). Tento prikaz ale funguje len v pripade z hladina bola menena od otvorenia suboru. Pouzit sa da teda neskor na konci na zamknutie hladiny.

Existuje prikaz -layer ktory vsak pracuje s aktualnou hladinou. Takze dalsim orieskom je zmenit aktualnu hladinu na hladinu titulneho bloku.

 Program na zmazanie obrazku, chyba tam este odomknutie hladiny Drawing_title.

(defun c:vymaz_ole ()
(command "layerp")
(setq coordinate '(365.2295 91.875))
(command "_erase" coordinate)
(initget 1)
(princ)
)







Upravil martiner33 - 04.led.2010 v 15:20

Pokud by Vam stacilo textove pole najit a nahradit jinym textem, tak muzete pouzit utilitu SRXTEXT2.VLX od XANADU

Utilitu nactete:
(LOAD "C:\\cesta......\\SRXTEXT2.VLX")

a pouzijte prikaz
(srxtext "Substring" "hledany text" "novy text" "spravna volba")

vyzkousejte si to prikazem:
srxtext


Upravil alfred - 04.led.2010 v 15:31

 

martiner33 napsal(a): ...Co sa tyka tej utility od Xanadu .. celkom pekna srandicka akurat ze je obmedzena (first 2 pairs are processed). Takze bud mi niekto z vas posle full verziu alebo to budem musiet riesit podobne ako s tym obrazkom...

Dost pochybuji, že Vám kdokoliv z tohoto fóra v tomto smyslu vyhoví. Ne snad proto že by tu byli samí krkouni co se nechtějí s nikým a o nic rozdělit, ale předávat zdarma něco, co je majetkem firmy XANADU je přinejmenším NEETICKÉ i kdyby už neexistoval žádný jiný právní důvod (jako že existuje...) proč by jste to něměl dělat.

Můžete se ptát, nějaká odpověď se vždycky najde. Přemýšlejte o tom co děláte. Zkoušejte práci druhých napodobit svými vlastními utilitkami. Dělám totéž a je to myslím jedna z nejlepších cest jak se něco naučit. Zmíněná funkce od XANADU nědělá přeci nic složitějšího než že nahrazuje části textových řetezců jinými řetězci. Stačí udělat je několik kroků:

1. vytvořit seznam řetězců ve výkresech
2. spárovat je s požadacky na nový obsah
3. vyměnit vzájemně jejich obsah

K tomu si přidejte nějakou metodu načítání obsahu z externího souboru a jednoduše řečeno máte hotovo. Práci si můžete rozdělit do více LISPů a při troše snahy je jeden po druhém najdete na webu už hotové. Pak to jen celé vhodně spojíte buď pracovním postupem nebo jejich skutečnou kombinací v jednom LSP.