Dobrý den, chtěl bych se zeptat, jestli nejde nějak nastavit, aby se výkres automaticky uložil :  Název výkresu_datum (např.: Půrodys1.NP_090520   -rok/měsíc/den) a aby se uložil jako nový soubor při kliknutí na uložení (i během práce). Hledal jsem to v nastavení, ale nenašel jsem to.

Doufma že jsem to popsal srozumitelně

Díky za rady

Myslel jsem to tak, že se např.:
1. udělá se startovací výkres s Názvem- Půdorys1.NP
2. uloží se a vznikne- Půdorys1.NP_090520
3. uloží se znovu a vznikne- Půdorys1.NP_090520_2 (3, 4.....) pokud se to uloží v ten samý den a pokud se uloží až druhý den- datum se přepíše na- Půdorys1.NP_090521

Tak nějak to udělat, aby se to dalo udělat (rozhodnout), zda uložit jako nový nebo jen přepsat, popřípadě ještě uvážit automatické ukládání (z důvodu ztrát dat, pak by tam bylo vytvořeno x-desítek souborů)

PS: kam se pak to makro zkopíruje.
Díky

Tak nějak jsem to i myslel. Ještě jde o to, jestli na tom dělá jeden člověk, nebo víc člověků :-). Pak by asi bylo dobré také testovat, zda v úložišti již existuje takový soubor (FINDFILE ...).

Ano - máte pravdu, pokud rezignujete na ten požadavek číslování souborů v jednom dni. IMHO mi ale přijde čistší řešení přes nějaký systém správy dokumnetů.  Ale to je OT.

jj je to dobrý...ale když dám uložit tak se mi soubor z Půdorys_20090520.1  přejmenuje na Půdorys_2_20090520, nešlo by aby se to přejmenovalo na Půdorys_20090520.2?? (Protože pak se to seřazuje podle pořadí 1,2,3.. a ne podle datumu a pořadí) a když pak dám opět SAD, tak se mě to zeptá jestli chci přepsat---dám N (jako ne) a nefunguje to. Díky za radu

Ano, obsahuje. Navíc řeší i situace, kde je výkres odkazován jako Xref či jiná externí reference, stará se o komentování revizí, odstraňování nepotřebných starších verzí, atd.

Tak jsem to ještě trochu upravil... pridal ty denní verze.
Funguje to tak, že to hledá znaky "_20"... když je najde a zároven za "_" je 8 čísel, pak to vyhodnotí jako datum. Ten pokud je dnešní pak, za k datumu připočte 0.1  a uloží. Pokud není dnešní, pak přidá/nahradí za dnešní datum. Pokud si nakonec názvu (za datum) něco připíšete (třeba "pomocny"), pak to nezachová a uloží novou denní verzi bez tohoto.
Pokud budoucí soubor už existuje, pak se zeptá na přepis- když dáte ano, pak přepíše, když ne tak NIC, a musíte si udělat co chcete sám (typicky, když aktuálně nepracujete v poslední denní verzi - děláte v 20000521.2, ale už existuje .3, pak vám nenabídne .4, ale zeptá se na přepsání .3, a příp. skončí.)
Ps. Máte max 10 denních verzí, snad je to dost :)

(defun C:SAD ( / Path LastDate DatePos)
  (if (and (setq DatePos (vl-string-search "_20" (GETVAR "dwgname")))
       (numberp (setq LastDate (read (SUBSTR (GETVAR "dwgname") (+ DatePos 2) 8)))))
    (if (eq LastDate (read (rtos(getvar "cdate")2 0)))
      (if (= (rtos (- (atof (SUBSTR (GETVAR "dwgname") (+ DatePos 2) 10))
              (atoi (SUBSTR (GETVAR "dwgname") (+ DatePos 2) 10))) 2 1)
        "0.9")
    (princ "\nDosáhl jsi již 10. denní verze, program neumožňuje uložení další.")
        (command "_saveas" "2000" (strcat (getvar "DWGPREFIX")   ;is date, adds new day's version (+0.1)
                    (SUBSTR (GETVAR "dwgname") 1 DatePos)
                    "_"
                    (rtos (+ (atof (SUBSTR (GETVAR "dwgname") (+ DatePos 2) 10)) 0.1) 2 1)
                    ".dwg")))
      (command "_saveas" "2000" (strcat (getvar "DWGPREFIX")   ;is date, not today, ask for overwrite
                    (SUBSTR (GETVAR "dwgname") 1 DatePos)
                    "_"
                    (rtos(getvar "cdate")2 0)
                    ".dwg")))
    (command "_saveas" "2000" (strcat (getvar "DWGPREFIX") ;not date, ask for overwrite
                    (SUBSTR (GETVAR "dwgname") 1 (-(strlen(getvar "dwgname"))4))
                    "_"
                    (rtos(getvar "cdate")2 0)
                    ".dwg")))
  (princ)
) 
PS. Moc jsem to netestoval, to zkuste sám... :)


Upravil johny - 21.kvě.2009 v 10:23

no, pokud by se někomu ještě chtělo v tom pokračovat, tak seznam výkresů stejného jména se stejným datem v názvu by se dal získat třeba:

Už to trošku dostává na robustnosti... (což nebyl až tak můj záměr :) Dalším cyklem, ikdyž asi jednodušším, by šlo ošetřit aby to fungovalo i kdyby v názvu bylo "_20" vícekrát...
Jinak nejspíš nedopatřením při kopírování vznikla na 4. řádku od konce chybka, spíš mi to připomíná html než lisp, díky které nefunguje to základní... přidání data souboru bez data.


Upravil johny - 22.kvě.2009 v 08:48