[求助]如何转换字符串
本帖最后由 作者 于 2007-11-19 11:42:57 编辑 <br /><br /> <p>大家好：</p><p> 请教大家如何将类似这样的文字转换为字符串（例如：将(-1 . <Entity name: 7efa7070>)转换为＂-1 . <Entity name: 7efa7070>＂</p><p></p><p> (SetQ en (EntGet (Car (Entsel)))) 将这个返回值中的每一个项转换为字符串</p><p></p> <p>(setq en '(-1 . <Entity name: 7efa7070>))</p><p>(setq f (open "temp.txt" "w"))</p><p>(princ en f)</p><p>(close f)</p><p>(setq f (open "temp.txt" "r"))</p><p>(setq en (read-line f))</p><p>(close f)</p> vl-princ-to-string 方便一些
页:
[1]