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

luowy · 发表于 2009-1-6 09:38

每次调用lisp命令的时候，之前的选择还在，不知如何才能清除以便执行lisp命令？

Andyhon · 发表于 2009-1-6 09:56

try (acet-ss-clear-prev) ; need ET

caoyin · 发表于 2009-1-6 10:34

ET 的函数在图纸空间有时会出错。他的原理就是创建一个对象，然后undo回去。

oyxx1023 · 发表于 2009-1-6 10:38

先(SETQ SS (SSGET "p"))

再(SETQ SS nil)?

caoyin · 发表于 2009-1-6 11:24

oyxx1023发表于2009-1-6 10:38:00先(SETQ SS (SSGET \"p\"))再(SETQ SS nil)?

这样不行吧

luowy · 发表于 2009-1-7 12:18

我经常先选择一实体，察看实体的层等信息，之后就调用lisp命令，而此前的选择没有被清除，lisp命令建立在此选择后，很不好，那个ese逃脱符又不知道如何使用

\n为换行

\e、\t的都不行～～

Alan.Shi · 发表于 2009-1-7 14:40

(command /e)

nonsmall · 发表于 2009-1-7 14:55

命令: (command "select" "")

命令: (ssget "p")
nil

caoyin · 发表于 2009-1-7 16:48

nonsmall发表于2009-1-7 14:55:00命令: (command \"select\" \"\")命令: (ssget \"p\")nil

这样也不行的，

先执行选择集操作确保 (ssget "p") 返回为真

然后(command "select" "")

再(ssget "p")
---------------------------------------------只有返回nil才有效的

caoyin · 发表于 2009-1-7 16:53

;;-------------这是ET的方法-------------------------------

;; ▓ (lta:ClearSS)
;; [功能] 清空选择集
(defun lta:ClearSS (/ ss)
(if (setq ss (ssget "_x" (list (cons 410 (getvar "ctab")))))
    (progn
      (setvar "cmdecho" 0)
      (setvar "highlight" 0)
      (command "_.select" (ssname ss 0) "")
      (command "_.undo" "1")
      (setvar "highlight" 1)
    )
)
nil
)

账号		自动登录	找回密码
密码			注册