ENTSEL循环选择

lamensterms · 发表于 2022-7-5 20:11:15

大家好，

我甚至不确定我是否以正确的方式来做这件事，但让我试着解释一下我试图实现什么，以及我试图实现它的方法。

我有一个ProSteel命令（PS\u CREATE\u SPEZPART），我想逐个将选择集的每个元素传递给。据我所知，这个ProSteel命令将接受ENTSEL形式的选择，但不是单个项目选择集。

所以我想创建一个选择集，并使用REPEAT&SSNAME函数循环遍历它。

copy

(defun c:tmi ()
(prompt "\nSelect item:")
(setq ss (ssget))
(setq num (sslength ss))
(setq con 0)
(repeat num  
(setq ent3A (ssname ss con))
(command "PS_CREATE_SPEZPART" ent3A nil)
(setq con (1+ con))
)
)

... 这不起作用。

我想我正在挣扎的是。。。SSNAME返回实体的名称，而不是选择该实体。这是正确的还是我遗漏了什么？

所以我的问题是，有没有可能像ENTSEL一样将每个元素传递给这个ProSteel命令？

非常感谢您的帮助。

Lee Mac · 发表于 2022-7-5 20:20:14

由于entsel返回两个项目（选定实体和光标选取框的中心）的列表，请尝试以下操作：

copy

(defun c:tmi ( / num sel )
   (prompt "\nSelect item: ")
   (if (setq sel (ssget))
       (repeat (setq num (sslength sel))
           (command "_.PS_CREATE_SPEZPART" 
               (list (ssname sel (setq num (1- num))) '(0 0 0))
           )
       )
   )
   (princ)
)

根据命令的操作方式，随实体提供的点可能需要位于对象上或附近。

BIGAL · 发表于 2022-7-5 20:32:28

检查你的车（entsel）

BIGAL · 发表于 2022-7-5 20:37:29

我喂狗的时候李偷偷溜了进来

lamensterms · 发表于 2022-7-5 20:48:03

嗨，李和比格尔，

非常感谢你的帮助。你又一次做到了。

李-你的例行工作很好，我已经测试了一些类型和组合的元素，它已经成功了每一次。不过，为了让我继续深造，你能解释一下“1-num”背后的逻辑/哲学吗。我知道它被用来处理选择集（SSNAME的索引）。我只是无法理解“1-”。。。它是否与“num-1”相同（但语法正确）？

哈哈，李肯定很快，谢谢你的建议。