如果这确实是OP所需的功能，我认为单次调用ssget对于更大的点列表更有效，也不会依赖于选择时屏幕上可见的对象，例如：
(ssget "_X"
(append
'((0 . "POINT") (-4 . "<OR"))
(mapcar '(lambda ( x ) (cons 10 x)) ptlist)
'((-4 . "OR>"))
)
) 你好，Marko，
给出的代码无效。以下是结果和使用的代码：
命令：（setq ptlist（car ptlist））
((10.4966 10.8902 0.0) (14.6999 8.8122 0.0) (19.9433 11.1932 0.0) (19.9433
15.9985 0.0) (14.9599 17.3839 0.0) (11.6666 15.9985 0.0))
命令：（marko）
; 错误：错误的参数类型：lselsetp nil
（defun marko（）
（setq ss（ssadd））
（foreach p ptlist）
（setq e（ssname（ssget p’（（0。“点”））0））
（ssadd e ss）
)
（sssetfirst nil ss）
)
可能是我用错了。
谢谢 您好，请阅读上面李先生发布的示例。。。他有更好的方法，确保你的列表中有点数据，以及对应于这些数据的点实体，你要从中选择点。。。 马尔科，
好的，谢谢
页:
1
[2]