ssget函数

Lee Mac · 发表于 2022-7-5 23:58:30

如果这确实是OP所需的功能，我认为单次调用ssget对于更大的点列表更有效，也不会依赖于选择时屏幕上可见的对象，例如：

(ssget "_X"
   (append
      '((0 . "POINT") (-4 . "<OR"))
       (mapcar '(lambda ( x ) (cons 10 x)) ptlist)
      '((-4 . "OR>"))
   )
)

aloy · 发表于 2022-7-6 00:00:38

你好，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）
)

可能是我用错了。
谢谢

marko_ribar · 发表于 2022-7-6 00:07:48

您好，请阅读上面李先生发布的示例。。。他有更好的方法，确保你的列表中有点数据，以及对应于这些数据的点实体，你要从中选择点。。。

aloy · 发表于 2022-7-6 00:11:18

马尔科，
好的，谢谢

[编程交流] ssget函数

发表回复

精选推荐