TITLE BLOCK ATT UPDATE

[JPVICCKY]

(defun c:DATE (/ init ctxt )
  (setq date (getstring t "DATE : ")(setq init "JV")(setq ctxt "Changes made")))


(defun c:VERA () (setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) "INITA" (strcat init))
(setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) "CHANGESTEXTA" (strcat ctxt))
(setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) "DATEA" (strcat date)) (princ))

Please help me in this am noob in lisp,
my block name = TITLEBLOCK
Attributes are for version A = DATEA, CHANGESTEXTA, INITA and so on for other versions, (CHANGESTEXTA, INITA are common in all versions)

i want enter date in command line by entering DATE command, and then i need to use Command VERA, VERB...  and so on.

[paullimapa]

here's one way by making your VERA lisp command as a sub function I'm calling MYVER inside your DATE lisp function.

Also I changed it from DATE to MYDATE because AutoCAD already has a command called DATE.

Not sure if this works so you'll have to load and run it to try.

(defun c:MYDATE (/ MYVER mydate init ctxt vers)
  (defun MYVER ()
   (setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) (strcat"INIT" vers) (strcat init))
   (setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) (strcat"CHANGESTEXT" vers) (strcat ctxt))
   (setpropertyvalue (ssname (ssget "X" (list '(0 . "INSERT") '(2 . "TITLEBLOCK") (cons 410 (getvar 'ctab)))) 0) (strcat"DATE" vers) (strcat mydate)) (princ)
  )
  (setq mydate (getstring t "DATE: ") init "JV" ctxt "Changes made" vers (getstring t "VERSION: "))
  (MYVER) ; run the sub function
)

[Kent1Cooper]

---

@JPVICCKY wrote:

....(strcat init)....
....(strcat ctxt)....
....(strcat date)....

....

---

[As an aside, those (strcat) functions with only one argument are not doing anything for you -- concatenating one text string just results in the same text string.  It "works," but just use the variable without the (strcat) "wrapper."]

[paullimapa]

@Kent1Cooper is absolutely correct...I missed that...

[Sea-Haven]

Try to avoid making a new defun as the name of a function that already exists.

c:DATE