Dobry den,

vie prosim niekto poradit, resp. napisat LISP na nasledujucu funkciu?

pri definicii bloku vo vykrese pouzivame ako identifikaciu datumu poslednej zmeny jednoriadkovy text (textovy retazec), kde treba manualne zmenit datum vzdy, ked dojde k redefinovaniu (update) bloku vo vykrese.

vie prosim niekto napisat kratky LISP, ktory:
1. vyzve na vyselektovanie textu, ktory treba aktualizovat aktualnym datumom a casom
2. nasledne prepise dany retazec?

vdaka mockrat

M

ja som sa to pokusal vlozit do uz existujuceho lispu, ktory pouzivam(e):

;MAKE a block ... possibility of selecting text from screen
(defun c:MB     ()
(command  "layer" "m" "--" "")
(command "ucs" "w" "layer" "lo" "-cons,-snap,-comments,cons,snap,comments,--*" "")
(if(setq fil_nam (entsel "select block name from text on screen or hit <return>"))
(progn
(setq fil_nam (cdr (assoc 1(entget (car fil_nam)))))
(command "_block" fil_nam)
)
;else
(command "_block")
)
)

avsak bez uspechu.