Ferdinand
09.07.2008, 09:28
Chci použít jednoduchou pomůcku pro založení podadresáře:
(defun C:ADR1 (/ D1 D2 D3 DWG A1 A2 A3)
(setq DWG (cadr (fnsplitl (getvar "dwgname")))) ;"VYKR33" /nazev akt.vykresu bez pripony/ (setq A1 (getvar "dwgprefix")) ;"D:\\akt.adresar\\" (C:DNES) (command "_delay" 250) (setq A2 (strcat A1 "neshoda_" D3 "\\")) ;"neshoda_2007-12-13\\" /nazev noveho podadresare/ (command "shell" (strcat "mkdir" " " A2)) ;zalozi podadresar>> D:\akt.adresar\neshoda_2008-07-09\ (setq A3 (strcat A2 DWG)) ;"neshoda_2008-07-09\\VYKR33" /retezec-pro ulozeni akt.vykresu/ (princ))
Kde hodnota D3 by se měla vzít z podrutiny DNES - ta poskládá datum z proměnné cdate do řetězce ve tvaru 2008-07-09
Na konci ADR1 ale mi hlásí
Command: ; error: bad argument type: stringp nil
Přitom aplikace DNES je ve výkresu již načtena.
(defun C:ADR1 (/ D1 D2 D3 DWG A1 A2 A3)
(setq DWG (cadr (fnsplitl (getvar "dwgname")))) ;"VYKR33" /nazev akt.vykresu bez pripony/ (setq A1 (getvar "dwgprefix")) ;"D:\\akt.adresar\\" (C:DNES) (command "_delay" 250) (setq A2 (strcat A1 "neshoda_" D3 "\\")) ;"neshoda_2007-12-13\\" /nazev noveho podadresare/ (command "shell" (strcat "mkdir" " " A2)) ;zalozi podadresar>> D:\akt.adresar\neshoda_2008-07-09\ (setq A3 (strcat A2 DWG)) ;"neshoda_2008-07-09\\VYKR33" /retezec-pro ulozeni akt.vykresu/ (princ))
Kde hodnota D3 by se měla vzít z podrutiny DNES - ta poskládá datum z proměnné cdate do řetězce ve tvaru 2008-07-09
Na konci ADR1 ale mi hlásí
Command: ; error: bad argument type: stringp nil
Přitom aplikace DNES je ve výkresu již načtena.