[讨论]如何把表转换为字符串？

wkaii · 发表于 2004-1-19 21:47:00

如何把表转换为字符串？
目的是把表原样显示在对话框的edit_box中！
我是先把表prin1到一个文件中，再用read-line读出来，这么做太麻烦了。
请教有没有好办法？

meflying · 发表于 2004-1-19 22:37:00

_$ (mapcar 'vl-princ-to-string '(3 5 6))
("3" "5" "6")
_$

wkaii · 发表于 2004-1-20 09:15:00

楼主或许是这个意思
(vl-princ-to-string '(3 5 6))

meflying · 发表于 2004-1-20 09:20:00

谢谢飞哥，这个办法很好。
可是我想在R14上使用这个程序，有没有autolisp的办法？

wkaii · 发表于 2004-1-20 09:28:00

用循环，使用strcat将它们都连起来，然后首位加上括号，中间加上空格，
做成函数，以后都可以直接调用

meflying · 发表于 2004-1-20 09:32:00

可是还要根据每个不同原子使用不同的函数转换为str?
对于这样的怎么办？

wkaii · 发表于 2004-1-20 10:05:00

注：图元名是无法变成字符串的，这个返回就不是图元名了
你可以使用别的任何方式试试。
如果你想在表中绑定某个图元，最好使用图元句柄，组码5，使用handent 得到它的图元名（每次打开文件，同一个图元的图元名是不用的，但它的句柄是不变的）

mmmmmm · 发表于 2004-1-20 10:27:00

谢谢飞哥
顺致新年好~

meflying · 发表于 2004-1-20 13:32:00

开一个临时文件
把表prin1到文件中
关闭文件再重新读取

meflying · 发表于 2004-1-20 21:00:00

楼主原来就是这么做了，只是觉得它麻烦