lisp命令执行时清除当前选择

ZZXXQQ

(command "regen")

quanguang

编程要养成好的习惯

每次选择集不用之后要及时的清空

（setq s nil) ;;s为选择集

jxphklibin

caoyin发表于2009-1-7 16:53:00;;-------------这是ET的方法-------------------------------;; ▓ (lta:ClearSS);; 清空选择集(defun lta:ClearSS (/ ss)  (if (setq ss (ssget \"_x\" (list (cons 410 (getvar \"cta

经过研究测试，主要是在于用了这句：(command "_.undo" "1")
如果没有这一句，那么选择集还是没有清空，如果单独使用这一局，而不用上面的一大串代码，也可以清空选择集，所以问题就是撤销（UNDO）这个关键点。

eachy

这是一个AutoCAD自定义函数

2. ;;; Shortcut menu Deselect All item.
4. (defun ai_deselect ()
5.    (if (= (getvar "cmdecho") 0)            ;start if
6.        (command "_.select" "_r" "_all" "")
7.        (progn                    ;start progn for cmdecho 1
8.            (setvar "cmdecho" 0)
9.            (command "_.select" "_r" "_all" "")
10.            (setvar "cmdecho" 1)
11.        )                    ;end progn for cmdecho 1
12.    )                        ;end if
13.    (terpri)
14.    (prompt "所有对象都已取消选择")
15.    (princ)
16. )

;;; Shortcut menu Deselect All item. (defun ai_deselect ()    (if (= (getvar "cmdecho") 0)            ;start if        (command "_.select" "_r" "_all" "")        (progn                    ;start progn for cmdecho 1            (setvar "cmdecho" 0)            (command "_.select" "_r" "_all" "")            (setvar "cmdecho" 1)        )                    ;end progn for cmdecho 1    )                        ;end if    (terpri)    (prompt "所有对象都已取消选择")    (princ) )

caoyin

(command
  "_.select"
  "_r"
  "_all"
  "")

这一行的思路不错

108848

very good，

找了很久