Changing text oblique angle using lisp

[samir.joshi]

Hi,

I'm working on AutoCAD 2006. I wish to cange the oblique angle of text. I tried following route, but it's not working.

(setq e1 (tblsearch "style" "romans"))
((0 . "STYLE") (2 . "ROMANS") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.261799)
(71 . 0) (42 . 1.5) (3 . "romans.shx") (4 . ""))

(setq e2 (assoc 50 e1))
(50 . 0.261799)

(setq e3 (cons 50 0))
(50 . 0)

(setq e4 (subst e3 e2 e1))
((0 . "STYLE") (2 . "ROMANS") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0) (71 . 0)
(42 . 1.5) (3 . "romans.shx") (4 . ""))

(entmod e4)
nil

But if agian I check the style setings, it shows

(setq e1 (tblsearch "style" "romans"))
((0 . "STYLE") (2 . "ROMANS") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.261799)
(71 . 0) (42 . 1.5) (3 . "romans.shx") (4 . ""))

Where am I going wrong ? Can someone help me pl.!!!

['gile']

Hi,

The list returned by tblsearch or tblnext is not enough complete to be entmoded.
You can get the complete DXF lst with :

(entget (tblobjname "STYLE" "ROMANS"))

[rkmcswain]

If you are interested in seeing a unique way of doing this (and other text edits), check out this thread:

http://www.cadtutor.net/forum/showthread.php?t=36906

[samir.joshi]

Thanks Gile,

My issue is resolved with your suggestion of using tblobjname.

Samir