AutoLisp Problems

[jayhay35365091]

I'm trying to use of of Lee Mac's attribute functions but I can't seem to get it to work. Any help is appreciated.

(defun LM:setattributevalues ( blk lst / enx itm )
    (while (= "ATTRIB" (cdr (assoc 0 (setq enx (entget (setq blk (entnext blk)))))))
        (if
            (and
                (setq itm (assoc (cdr (assoc 2 enx)) lst))
                (entmod (subst (cons 1 (cdr itm)) (assoc 1 enx) enx))
            )
            (entupd blk)
        )
    )
)
(defun c:clr ()
 (setq blk (ssget))
 (setq lst
  '(
   ("REV:" . "-")
   ("DESC:" . "x")
   ("ADDITIONAL_INFO:" . "x")
   ("REV_DATE:" . "x")
   ("TA:" . "x")
   ("OA:" . "x")
   ("DD:" . "x")
     )
  )
(LM:SetAttributeValues blk lst)
(princ)
)

[Tom Beauford]

Please provide a link to where you got this. That would be the best place to find help. As it seems to modify a block with corresponding attributes you need that block for it to work. I've never seen Lee post code without any explanation.

[peter]

In the second function you set the value of blk to a selection set not an entity name

(Setq blk ( Ssname (ssget) 0))

[jayhay35365091]

Thanks Peter, works perfectly now!! I figured it would be something simple.

Tom, the link where I got Lee's function is here: http://www.lee-mac.com/attributefunctions.html