(Vlax-Get ob 'TextString)的缺陷

wzg356

字体TXT.shx，有些特殊字符识别不了
现Tssdeng.shx用的有点多
比如text "s₂▽△52"（这儿显示不了。见下面图片）在Tssdeng.shx用 就可以正确显示上下标2

用(Vlax-Get (Vlax-Ename->Vla-Object (Car(Entsel))) 'TextString)===》"s?▽△52"上下标均不对
用(Vlax-put (Vlax-Ename->Vla-Object (Car(Entsel))) 'TextString "s?▽△52")还原失败


用(apply 'strcat(mapcar 'cdr(vl-remove-if(function(lambda(x / x1)
                (setq x1(car x))(not(or(= x1 1)(= x1 3)))
))(entget (car(entsel)))))) ;单多行文字通用====》结果正确--这儿打不上去