构建SSSETFIR列表
你好我确实想知道如何使函数sssetfirst根据实体的名称选择对象！！！
这是我的开始。
(defun c:TEst (/ ss en)
(if (and (setq ss (car (entsel "\n Select an Object :"))); Suppose a CIRCLE
(setq en (cons 0 (cdr (assoc 0 (entget ss))))); return (0 . "CIRCLE")
)
(sssetfirst nil (ssget ....... en <== What's the right code(s) in here ?
(princ " Nothing's Selected ")
)
(princ)
)
该代码将选择图形中的所有圆。 你也可以这样做
(setq sel (ssget "x" (list(cons 0 "CIRCLE"))))
此代码将允许您在模型空间上进行选择，并仅从选择中过滤圆。 我建议您更形象地命名变量，“ss”通常指的是选择集，但您可以将其指向单个实体。
使用您的代码结构：
(setq sel (ssget (list(cons 0 "CIRCLE"))))
页:
[1]