构建SSSETFIR列表

Michaels · 发表于 2022-7-6 10:25:48

你好

我确实想知道如何使函数sssetfirst根据实体的名称选择对象！！！

这是我的开始。


(defun c:TEst (/ ss en)
 (if (and (setq ss (car (entsel "\n Select an Object :")))[color=blue]; Suppose a CIRCLE [/color]
          (setq en (cons 0 (cdr (assoc 0 (entget ss)))))  [color=blue]; return (0 . "CIRCLE")[/color]
      )
   (sssetfirst nil [color=red](ssget ....... en <== What's the right code(s) in here ?[/color] 
   (princ " Nothing's Selected ")
   )
 (princ)
 )

该代码将选择图形中的所有圆。

giskumar · 发表于 2022-7-6 10:48:18

你也可以这样做

copy

 
(setq sel (ssget "x" (list(cons 0 "CIRCLE"))))

此代码将允许您在模型空间上进行选择，并仅从选择中过滤圆。

giskumar · 发表于 2022-7-6 11:09:19

我建议您更形象地命名变量，“ss”通常指的是选择集，但您可以将其指向单个实体。

使用您的代码结构：

copy

 
(setq sel (ssget (list(cons 0 "CIRCLE"))))

Lee Mac · 发表于 2022-7-6 11:43:52

[编程交流] 构建SSSETFIR列表

发表回复

精选推荐