【求助】用lisp如何解决文字横着(字体前带@)的问题

Zrrrrr

         RT，小弟先用 (entget (tblobjname "style" "文字样式")) ，得到了图元信息表，但发现“文字样式”和“@文字样式”的信息都是一样的，组码 3 对应都是"SIMHEI.ttf"，即(3 . "SIMHEI.TTF")，其他的也都一样，如下：

---------------------------------------------------------------------------
命令: (entget (tblobjname "style" "_thvac_win"))
((-1 . <图元名: 779802e0>) (0 . "STYLE") (330 . <图元名: 7797cc58>) (5 . "184")
(100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 .
"_THVAC_WIN") (70 . 0) (40 . 0.0) (41 . 0.7) (50 . 0.0) (71 . 0) (42 . 0.2) (3
. "SIMHEI.TTF") (4 . ""))
---------------------------------------------------------------------------

         怎么办？有什么方法可以解决把躺着的文字变正的问题吗？就是因为感觉用鼠标点麻烦才想着用lisp解决，但二者信息都一样，不知道怎么弄...小弟在此谢谢各位大侠。

ll_j

对文字样式重定义或者用格式刷刷不行吗？

Zrrrrr

ll_j 发表于 2014-9-28 17:26
对文字样式重定义或者用格式刷刷不行吗？

对文字样式重定义是可以的，但嫌麻烦，所以想编一个小程序，按下快捷键就完事了。格式刷是不行的，因为类似的字体都横过来了，找不到可以刷的源物体

Zrrrrr

没有人遇到过这个问题吗…还是我表达的不够清楚