xbqbbl 发表于 2011-11-7 13:02:38

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

xbqbbl 发表于 2011-11-7 15:38:33

请高人继续指点

Andyhon 发表于 2011-11-7 15:46:10

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

yanshengjiang 发表于 2011-11-14 11:07:23

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

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

jack093 发表于 2020-9-30 18:57:32

用这样一行代码可以得到所有多段线顶点坐标，尽管效率可能不高。 (setq ptlist (apply 'append (mapcar '(lambda(x) (if (= 10 (car x)) (list (cdr x)))) endata)))用这样一行代码可以把ptlist转换成用制表符分隔开来的字符串，注意最前面的制表符没有去掉，可以根据程序需要进行处理。 (setq strlist (apply 'strcat (mapcar '(lambda(y) (strcat "\t(" (substr (apply 'strcat (mapcar '(lambda(x) (strcat "," (rtos x 2 3))) y)) 2) ")")) ptlist)))
请教vormittag版主如何将变量
(setq lst '("块名1" p1 p2 ang sc (list p3 p4) "string1"))转换成字符串保存到文件？

wyl219 发表于 2020-10-1 18:35:49

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

(vl-princ-to-string lst)
页: 1 [2]
查看完整版本: 求助，怎样把list生产的列表转换成字符串