求助，怎样把list生产的列表转换成字符串

xbqbbl

多段线的不同顶点坐标的群码都是“10”，怎么才能区别出来其它的顶点呢

xbqbbl

请高人继续指点

Andyhon

...怎么才能区别出来其它的顶点呢...
怎么说呢?学程序得用心找法子
这样吧以 0,0 为基点 画个 3*2 的矩形...
比对一下 程序返回的顶点坐标 ...

yanshengjiang

xbqbbl 发表于 2011-11-7 13:02
多段线的不同顶点坐标的群码都是“10”，怎么才能区别出来其它的顶点呢

楼上的总工已经解决了这个问题。循环读取10项。组建表。

jack093

用这样一行代码可以得到所有多段线顶点坐标，尽管效率可能不高。[code="lisp] (setq ptlist (apply 'append (mapcar '(lambda(x) (if (= 10 (car x)) (list (cdr x)))) endata)))[/code]用这样一行代码可以把ptlist转换成用制表符分隔开来的字符串，注意最前面的制表符没有去掉，可以根据程序需要进行处理。[code="lisp] (setq strlist (apply 'strcat (mapcar '(lambda(y) (strcat "\t(" (substr (apply 'strcat (mapcar '(lambda(x) (strcat "," (rtos x 2 3))) y)) 2) ")")) ptlist)))[/code]

请教vormittag版主如何将变量
(setq lst '("块名1" p1 p2 ang sc (list p3 p4) "string1"))转换成字符串保存到文件？

wyl219

jack093 发表于 2020-9-30 18:57
请教vormittag版主如何将变量
(setq lst '("块名1" p1 p2 ang sc (list p3 p4) "string1"))转换成字符串 ...

(vl-princ-to-string lst)