Change Oblique angle of text in Block

[samir.joshi]

Hi,

How do I change oblique angle of all text in a Block.Changing Oblique angle in style itself is not helping.

Samir

[rkmcswain]

Using some previous code here, I put this together quickly, spreading out the code so you can see what's going on... Replace "TEST" with your block name, or you could wrap this in a (defun) to accept an argument so you can pass it any block name. The 0.15 is the obliquing angle - note that you must specify it in radians.


(setq a (tblobjname "BLOCK" "TEST"))
(while a
(if (setq a (entnext a))
(progn
(setq g (entget a))
(if (eq "TEXT" (cdr (assoc 0 g)))
(progn
(setq new (subst (cons 51 0.15)(assoc 51 g) g))
(entmod new)
)
)
(princ)
)
)
)
(command "._regen")