ZZXXQQ 发表于 2009-1-8 20:12:00

(command "regen")

quanguang 发表于 2009-1-8 22:11:00

<p>编程要养成好的习惯</p><p>每次选择集不用之后要及时的清空</p><p>（setq s nil) ;;s为选择集</p>

jxphklibin 发表于 2009-1-16 10:12:00

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

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

eachy 发表于 2009-1-16 13:57:00

这是一个AutoCAD自定义函数;;; 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 发表于 2009-1-16 14:38:00

本帖最后由 作者 于 2009-1-16 14:39:46 编辑 <br /><br /> <p><font color="#ff0000">(</font><a href="http://www.mjtd.com/object/autolisp/command.htm" target="_black"><font color="#0000ff">command</font></a><br/>&nbsp;&nbsp;<font color="#ff00ff">"_.select"</font><br/>&nbsp;&nbsp;<font color="#ff00ff">"_r"</font><br/>&nbsp;&nbsp;<font color="#ff00ff">"_all"</font><br/>&nbsp;&nbsp;<font color="#ff00ff">""</font><font color="#ff0000">)</font></p><p><font color="#ff0000">这一行的思路不错</font></p>

108848 发表于 2009-1-17 16:06:00

<p>very good，</p><p>找了很久</p>
页: 1 [2]
查看完整版本: lisp命令执行时清除当前选择