edit block by name?

Is it possible to do a DDATTE on a block that is already in a drawing but call it by name instead of manually selecting it.

I'm currently inserting the block and then using (COMMAND "DDATTE" "" "LAST")

Here is an example:

(DEFUN C:ISSL ()
(COMMAND "INSERT" "SSL" "7'3 17/32,81'3 15/16" "" "" "")
(COMMAND "" "" "" "" "" "" "" "" "" "")
(COMMAND "DDATTE" "" "LAST")
)

Thank you.

 

(defun editblk (blkname / ss)
(if (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 blkname))))
(command "DDATTE" (ssname ss 0))
(alert (strcat "No block " blkname " found"))
)
(princ)
)

Use (editblk "SSL")
NOTE: If there are more that one SSL block this will only edit the first one
in the selection set, so if that is a possibility, you need to account for
it.

 

Thanks, it works great.

I'm actually using it in my lisp commands as :

(DEFUN C:ISSL ()
(COMMAND "INSERT" "SSL" "7'3 17/32,81'3 15/16" "" "" "")
(COMMAND "" "" "" "" "" "" "" "" "" "")
(editblk "SSL")
)

And I just added your :

(defun editblk (blkname / ss)
(if (setq ss (ssget "x" (list (cons 0 "INSERT") (cons 2 blkname))))
(command "DDATTE" (ssname ss 0))
(alert (strcat "No block " blkname " found"))
)
(princ)
)

to my acad.lsp

Thanks again.

 

Why not just

(defun C:ISSL ()
(setq attdia (getvar "attdia"))
(setvar "attdia" 1)
(COMMAND "INSERT" "SSL" "7'3 17/32,81'3 15/16" "" "" "")
(setvar "attdia" attdia)
)

 

I'm using it for many blocks. This is just one example.
And it's two lines of code less x (about a few hundred). Much less typing and I feel that you first method is fine how it is.

Thank you.