Scaling Attributes in Blocks with LISP

[Anonymous]

I have written a lisp that is supposed to rescale all my blocks about each
block's insertion point, but it does not also scale the text attribute. How
can I do this. Also, it also rescales my xref's, which I do not want it to
do. Can anyone help me?

Doug Relf

[Anonymous]

I should have said I do not want to have to pick on the attributes, but
select them using an ssget "x" filter. Here is the code I have written so
far. Is there anyway to filter out attributes within blocks in the selection
set?


"Doug Relf" wrote in message
news:00ADA9B7145CC5ED0A1EF53320B57B96@in.WebX.maYIadrTaRb...
> I have written a lisp that is supposed to rescale all my blocks about
each
> block's insertion point, but it does not also scale the text attribute.
How
> can I do this. Also, it also rescales my xref's, which I do not want it to
> do. Can anyone help me?
>
> Doug Relf
>
>

[Anonymous]

"Doug Relf" wrote in message
news:13D9AF7EB48F3900AC0FA8742F20CA31@in.WebX.maYIadrTaRb...
> I should have said I do not want to have to pick on the attributes, but
> select them using an ssget "x" filter. Here is the code I have written so
> far. Is there anyway to filter out attributes within blocks in the
selection
> set?
>
(DEFUN C:scatt ()
(setq OLDxscale (getreal "\nEnter OLD drawing scale: "))
(setq newxscale (getreal "\nEnter new drawing scale: "))
(setq scfactor (/ newxscale oldxscale))
(setq ESel (entsel "\nBlock name/: "))
(setq EL (entget (car ESel)))
(setq ESel (nentselp (cadr ESel)))
(setq EL (entget (car Esel)))
(setq oldxlist (list(assoc 40 EL)))
(setq oldtxtht (cdr( (assoc 40 oldxlist)))
(setq newtxtht (* oldtxtht scfactor))
(setq newxlist (cons 40 newtxtht))
(setq el (subst newxlist (car oldxlist) el))
(entmod el)
(command "regen")
)
>
> "Doug Relf" wrote in message
> news:00ADA9B7145CC5ED0A1EF53320B57B96@in.WebX.maYIadrTaRb...
> > I have written a lisp that is supposed to rescale all my blocks about
> each
> > block's insertion point, but it does not also scale the text attribute.
> How
> > can I do this. Also, it also rescales my xref's, which I do not want it
to
> > do. Can anyone help me?
> >
> > Doug Relf
> >
> >
>
>