【转帖】[求助]请教高手,判断字体样式为何出错?
 

[求助]请教高手,判断字体样式为何出错?
www.dimcax.com
[求助]请教高手,判断字体样式为何出错?
(if (= (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")
(nil
(setq style (entmakex '((0 . "style")(100 . "acdbsymboltablerecord")(100 . "acdbtextstyletablerecord")
(2 . "_hztxt") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "_txt.shx") (4 . "hztxt.shx"))
)
)
(setq style (tblobjname "style" "_hztxt"))
)
)
错在哪里了?
d
语法怎么看着怪怪的?
d
菜鸟搞的东西,就是这样,哈哈.哪个高手出手帮下忙?
d
(if (= (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")
(setq style (entmakex '((0 . "style")(100 . "acdbsymboltablerecord")(100 . "acdbtextstyletablerecord")
(2 . "_hztxt") (70 . 0) (40 . 0.0) (41 . 0.75) (50 . 0.0) (71 . 0) (42 . 0.0) (3 . "_txt.shx") (4 . "hztxt.shx"))
)
)
(setq style (tblobjname "style" "_hztxt"))
)
d
楼上,你不明白我的意思,我的文字样式"_hztxt"是一个大字体:"_txt.shx,_hztxt.shx",想判断是否更改了(例如:"txt.shx,_hztxt.shx"),如果/="_txt.shx,_hztxt.shx"的话,把它改成:"_txt.shx,_hztxt.shx".楼上的我运行了一下,不行.
d
(/ = (cdr (assoc 3 (tblsearch "style" "_hztxt"))) "_txt.shx")
也不行,不知如何判断?