[求助]：新手，请高手指点！

zhanzujie

视图上在ptlist内有一点对象
(setq ptlist (list '(100 100 0) '(200 100 0) '(200 200 0) '(200 200 0) '(100 200 0))
ss (ssget "wp" ptlist '((0 . "POINT"))))
加载这两行语句，ss为nil，
而当改变ptlist后就可以得到正确的选择集了
(setq ptlist (list '(100 100 0) '(200 100 0)  '(200 200 0) '(100 200 0))
ss (ssget "wp" ptlist '((0 . "POINT"))))
选择集ss为一点对象
如果是因为ptlist内有重复的点的话，该用什么函数（或其他什么办法）清理ptlist内重复的点

lijiao

用vl-sort函数

它山之石

最初由 zhanzujie 发布
[B]视图上在ptlist内有一点对象
(setq ptlist (list '(100 100 0) '(200 100 0) '(200 200 0) '(200 200 0) '(100 200 0))
ss (ssget "wp" ptlist '((0 . "POINT"))))
加载这两行语句，ss为nil，
而当改变ptlist后?.. [/B]

　　你不是已经清除了PTLIST中重复的点了吗？既然你是直接赋值给它的，不要输入相同的值就行了。

zhanzujie

ptlist不是直接输入的，而是多义线的端点
3楼的意思是否是 先用overkill命令清理多义线

它山之石

　　我利用多义线顶点取得内部实体时似乎并未遇到你说的那种情况。
　　如果你确定真的是因为有重复的顶点引起的，是可以用2楼说的“vl-sort”函数来达到去掉重复点表的目的，只是比较麻烦。先用overkill命令清理多义线也许可以。