选择对象：或（A）ll

Happy Hobbit · 发表于 2022-7-5 18:03:41

这应该很容易，但我正在努力。我想要一个例程用作使用以下方法的模板：
提示：“选择对象：或（A）ll”
除非输入“A”，否则左键单击将启动“按项目选择”窗口，在这种情况下，所有内容（允许的过滤器）都被选中

到目前为止，我的代码是：

(defun c:select-opt (/ opt ss)
 (setq opt (cond ((getkword "\nSelect objects: or (A)ll "))("s")))
 (cond
   ((eq opt "a")
          (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
   )
   ((eq opt "s")
    (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
    )
 )
(princ (itoa (sslength ss)))
 (princ)
)

这是可行的，但首先需要右键单击，我想取消右键单击

Stefan BMR · 发表于 2022-7-5 18:11:39

你可以简单地使用

copy

(setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))

并在提示选择时键入“all”。

或

copy

(princ "\nSelect objects or press enter to select all: ")
(or
 (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
 (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
 )

Happy Hobbit · 发表于 2022-7-5 18:16:12

这很奇怪，它可以在控制台中工作，但会产生；错误：lisp中的参数太少：

copy

(defun c:select-opt ( ss )
 (princ "\nSelect objects or press enter to select all: ")
(or
 (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
 (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
)
(princ (strcat "\n" (itoa (sslength ss))))
 (princ)
)

Lee Mac · 发表于 2022-7-5 18:19:42

copy

( ss )

应为：

copy

( / ss )

Happy Hobbit · 发表于 2022-7-5 18:24:11

谢谢你Stefan&你也是Lee，很好

Lee Mac · 发表于 2022-7-5 18:26:58

别担心

Happy Hobbit · 发表于 2022-7-5 18:30:48

我仍然认为必须能够在命令中放入“cond”语句，首先见证绘制圆、圆弧或样条曲线。

或Trim，返回“选择对象或：”

哦，好吧

Jef! · 发表于 2022-7-5 18:35:55

用一个简单的，如果是这样的话，也许？

copy

(defun c:select-opt ( / ss)
 (princ "\nSelect objects and press enter or press enter right away to select all: \n")
 (if (not (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT")))))
     (setq ss (ssget "_X" (list '(0 . "TEXT,MTEXT") (cons 410 (getvar 'ctab)))))
 )
 (princ (itoa (sslength ss)))
 )