thanks bob
that one OK but it's change all auto without select block,
i need the user can select the block then change the text size
--
----------------------------------------
Design/Engineering Dept.
bob.at wrote in message
news:11267044.1080710956345.JavaMail.jive@jiveforum1.autodesk.com...
> You can use the following. You can select Attributs by layer name (of the
block), block name and attrbut tag. For all you can also use wildcard "*".
> You can change higth and/or angle of the selected attributs
>
> bob.at
>
>
> (defun C:CHATTAH ( / i ta as hi bl la an e eli)
> (setq i 0.0) (setvar "CMDECHO" 0)
> (setq bl (strcase (getstring "\nBlock name specification (or *): ")))
> (while (= bl "")
> (setq bl (strcase (getstring "\nBlock name specification (or *): ")))
> )
> (setq la (strcase (getstring "\nLayer name specification (or *): ")))
> (while (= la "")
> (setq la (strcase (getstring "\nLayer name specification (or *): ")))
> )
> (setq ta (strcase (getstring "\nAttribute tag specification (or *): ")))
> (while (= ta "")
> (setq ta (strcase (getstring "\nAttribute tag specification (or *): ")))
> )
> (setq hi nil)
> (initget 6)
> (setq hi (getreal "\nNew Attribute Hight (or return): "))
> (setq an nil)
> ; (initget 1)
> (setq an (getorient "\nNew Attribute Angle (or return): "))
> (cond ((and (= bl "*") (= la "*"))
> (setq as (ssget "X" (list (cons 0 "INSERT") (cons 66 1)))))
> ((and (= bl "*") (/= la "*"))
> (setq as (ssget "X" (list (cons 0 "INSERT") (cons 8 la) (cons
66 1)))))
> ((and (/= bl "*") (= la "*"))
> (setq as (ssget "X" (list (cons 0 "INSERT") (cons 2 bl) (cons
66 1)))))
> (t
> (setq as (ssget "X" (list (cons 0 "INSERT") (cons 2 bl) (cons 8
la) (cons 66 1)))))
> )
> (while (< i (sslength as))
> (setq e (entnext (ssname as i)))
> (while (not (= (cdr (assoc 0 (entget e))) "SEQEND"))
> (if (or (= (cdr (assoc 2 (entget e))) ta) (= ta "*"))
> (progn
> (setq eli (entget e))
> (if hi (setq eli (subst (cons 40 hi) (assoc 40 eli) eli)))
> (if an (setq eli (subst (cons 50 an) (assoc 50 eli) eli)))
> (entmod eli)
> (entupd e)
> )
> )
> (setq e (entnext e))
> )
> (setq i (1+ i))
> )
> )