CAD Fórum : uložení výkresu s datumem_automatické https://www.cadforum.cz/forum/ Thu, 04 Jun 2026 16:49:47 +0000 Thu, 21 May 2009 16:53:00 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=8674 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[uložení výkresu s datumem_automatické : Už to trošku dostává na robustnosti......]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43967&title=ulozeni-vykresu-s-datumem-automaticke#43967 Autor: johny
Předmět: 8674
Zasláno: 21.kvě.2009 v 16:53

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]]> Thu, 21 May 2009 16:53:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43967&title=ulozeni-vykresu-s-datumem-automaticke#43967 <![CDATA[uložení výkresu s datumem_automatické : uploads/20090521_155638_SAD.zip Tak...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43965&title=ulozeni-vykresu-s-datumem-automaticke#43965 Autor: Seiner
Předmět: 8674
Zasláno: 21.kvě.2009 v 15:57

uploads/20090521_155638_SAD.zip
Tak kahle by to snad mohlo hrát požadovanou písničku :-)
]]> Thu, 21 May 2009 15:57:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43965&title=ulozeni-vykresu-s-datumem-automaticke#43965 <![CDATA[uložení výkresu s datumem_automatické : no, pokud by se někomu ještě chtělo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43955&title=ulozeni-vykresu-s-datumem-automaticke#43955 Autor: Seiner
Předmět: 8674
Zasláno: 21.kvě.2009 v 12:38

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:
 
(vl-directory-files(vl-filename-directory (strcat(getvar
"dwgprefix")(getvar "dwgname"))) (strcat(SUBSTR (GETVAR "dwgname") 1 (+(vl-string-search (rtos(getvar "cdate")2 0) (GETVAR "dwgname"))8))"*.dwg"))
]]> Thu, 21 May 2009 12:38:55 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43955&title=ulozeni-vykresu-s-datumem-automaticke#43955 <![CDATA[uložení výkresu s datumem_automatické : Ta finta s hledáním _20 není špatná....]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43949&title=ulozeni-vykresu-s-datumem-automaticke#43949 Autor: Seiner
Předmět: 8674
Zasláno: 21.kvě.2009 v 10:58

Ta finta s hledáním _20 není špatná. Akorát si uživatel musí nýt vědom, že tento řetězec nesmí použít jinde v názvu.
   Další omezení je v tom, že předpokládáte, že se pracuje vždy s poslední verzí. Havárie nehrozí (saveas upozorní na přepsání).
]]> Thu, 21 May 2009 10:58:25 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43949&title=ulozeni-vykresu-s-datumem-automaticke#43949 <![CDATA[uložení výkresu s datumem_automatické : Tak jsem to ještě trochu upravil......]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43946&title=ulozeni-vykresu-s-datumem-automaticke#43946 Autor: johny
Předmět: 8674
Zasláno: 21.kvě.2009 v 10:22

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]]> Thu, 21 May 2009 10:22:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43946&title=ulozeni-vykresu-s-datumem-automaticke#43946 <![CDATA[uložení výkresu s datumem_automatické : Přestože v Autolispu jde udělat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43939&title=ulozeni-vykresu-s-datumem-automaticke#43939 Autor: Seiner
Předmět: 8674
Zasláno: 21.kvě.2009 v 08:03

Přestože v Autolispu jde udělat kde-co, obávám se, že tohle bude dost tvrdý oříšek. Funkce Findfile totiž neumožňuje zástupné znaky a já momentálně nevím, jak zjistit, jestli v úložišti je už soubor s dnešním datem a libovolným indexem.

V navrženém kódu je navíc chybička - havaruje, pokud ektuální jméno souboru je kratší, jak 11 znaků nebo má právě 11 znaků. Je třeba ošetřit.

třeba:

(defun C:SAD ( / Path ldate)
;  (setvar "FILEDIA" 0)
  (if(<=(strlen(getvar "dwgname"))11)
    (command "_saveas" "2000" (strcat (getvar "DWGPREFIX") (SUBSTR (GETVAR "dwgname") 1 (-(strlen(getvar "dwgname"))4))"_"(rtos(getvar "cdate")2 0)".dwg"))
 
 (if (numberp (setq ldate (read (SUBSTR (GETVAR "dwgname") (-(strlen(getvar "dwgname"))11) 8))))
    (if (eq ldate (read (rtos(getvar "cdate")2 0)))
      (command "_save" "" "_y") ;today ; automatic overwritten
      (command "_saveas" "2000" (strcat (getvar "DWGPREFIX")   ;is date, not today, ask for overwrite
                  (SUBSTR (GETVAR "dwgname") 1 (-(strlen(getvar "dwgname"))13))"_"(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")))
)
;  (setvar "FILEDIA" 1)
  (princ)
) 

Přepínání FILEDIA je zbytečné.
To, že při odmítnutí přepsání se nic nezapíše, není chyba, ale tak je to napsané - zkuste se zorientovat v kódu.
 
PS. Na tomto místě bych připomenul, že to byl můj návrh, použít nějaký EDM :-)) (Parafráze na Cestu do Liptákova)
]]> Thu, 21 May 2009 08:03:58 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43939&title=ulozeni-vykresu-s-datumem-automaticke#43939 <![CDATA[uložení výkresu s datumem_automatické : Ano, obsahuje. Navíc řeší i situace,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43938&title=ulozeni-vykresu-s-datumem-automaticke#43938 Autor: Vladimír Michl
Předmět: 8674
Zasláno: 20.kvě.2009 v 22:43

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.
 
Přejmenovávání verzí souborů je jen pro hodně zjednodušené jednouživatelské scénáře použití.
]]> Wed, 20 May 2009 22:43:37 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43938&title=ulozeni-vykresu-s-datumem-automaticke#43938 <![CDATA[uložení výkresu s datumem_automatické : ... a neobsahuje to všetko Vault...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43937&title=ulozeni-vykresu-s-datumem-automaticke#43937 Autor: cestár
Předmět: 8674
Zasláno: 20.kvě.2009 v 17:03

... a neobsahuje to všetko Vault ?]]> Wed, 20 May 2009 17:03:56 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43937&title=ulozeni-vykresu-s-datumem-automaticke#43937 <![CDATA[uložení výkresu s datumem_automatické : jj je to dobrý...ale když dám...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43931&title=ulozeni-vykresu-s-datumem-automaticke#43931 Autor: Marlowwe
Předmět: 8674
Zasláno: 20.kvě.2009 v 16:06

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]]> Wed, 20 May 2009 16:06:08 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43931&title=ulozeni-vykresu-s-datumem-automaticke#43931 <![CDATA[uložení výkresu s datumem_automatické : jj tak nějak jsem to myslel, PS:...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43928&title=ulozeni-vykresu-s-datumem-automaticke#43928 Autor: Marlowwe
Předmět: 8674
Zasláno: 20.kvě.2009 v 13:46

jj tak nějak jsem to myslel,

PS: bude na tom pracovat jen jeden člověk

Díky...vyzkouším a kdyžtak se ještě zeptám...Díky
]]> Wed, 20 May 2009 13:46:22 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=8674&PID=43928&title=ulozeni-vykresu-s-datumem-automaticke#43928