.lsp file for editing attribute field to display todays date

[mark.d.beardmore]

Morning all,

I'm trying to find a .lsp file that will let you click an attribute field, and replace the present value with todays date in the following format

DD/MM/YY

It might also be useful to have one which is in this format also

DD/MM/YYYY

I assume this is just a slight change to the lisp code?

Does anyone have these?

Thanks

Mark

[ВeekeeCZ]

Guess it's just an attribute with plain text, not a (dynamic) field.

Post a sample block.

[mark.d.beardmore]

Yes just a standard block & field

I've attached an example

[ВeekeeCZ · Accepted solution]

Sure, as simple as that.

(defun c:Adate2 ( / d e)
  
  (if (setq d (itoa (fix (getvar 'cdate)))
	    e (car (nentsel "Select attribute: ")))
    (setpropertyvalue (cdr (assoc 330 (entget e))) (cdr (assoc 2 (entget e)))
      (strcat (substr d 7 2) "/" (substr d 5 2) "/" (substr d 3 2))))
  (princ)
  )


(defun c:Adate4 ( / d e)
  
  (if (setq d (itoa (fix (getvar 'cdate)))
	    e (car (nentsel "Select attribute: ")))
    (setpropertyvalue (cdr (assoc 330 (entget e))) (cdr (assoc 2 (entget e)))
      (strcat (substr d 7 2) "/" (substr d 5 2) "/" (substr d 1 4))))
  (princ)
  )

[mark.d.beardmore]

That worked perfectly, thanks so much