Attributes upper and lower case lisp modification
Dear Helpers,
I got a lisp code that will update all attributes of single selected block to uppercase. But the lisp code I need is, it should update only single attribute to upper or lowercase for selected block. The code I have is below. It should work for multiple blocks.
(defun c:AUC ( / ent enx )
(if (and (setq ent (car (entsel)))
(= "INSERT" (cdr (assoc 0 (setq enx (entget ent)))))
(= 1 (cdr (assoc 66 enx)))
(setq ent (entnext ent)
enx (entget ent)
)
)
(while (= "ATTRIB" (cdr (assoc 0 enx)))
(entmod (subst (cons 1 (strcase (cdr (assoc 1 enx)))) (assoc 1 enx) enx))
(setq ent (entnext ent)
enx (entget ent)
)
)
(princ "\nNo object selected or selected object is not a block.")
)
(princ)
)
Thanks,
T.Brahmanandam
Reply With Quote
