yang686526

lisp命令执行时清除当前选择
www.dimcax.com

(command "regen")
踅摸
d
编程要养成好的习惯
每次选择集不用之后要及时的清空
（setq s nil) ;;s为选择集
+-------oooo----- (_)-----oooo---------+
　　　 　　　　　　　　　　　　　　
　 　 我为编程狂，我为lisp狂！　 　
　　　　　　　　　　　　　　　　 　
+------------------------oooo-------------------+
d
o）这个关键点。
d
这是一个autocad自定义函数
;;; shortcut menu deselect all item.
( ai_deselect ()
( ( ( "cmdecho") 0) ; ;start if
( "_.select" "_r" "_all" "")
; (progn ;start progn for cmdecho 1
( "cmdecho" 0)
( "_.select" "_r" "_all" "")
( "cmdecho" 1)
; ) ;end progn for cmdecho 1
; ) ;end if
; ()
( "所有对象都已取消选择")
; ()
)
d
very good，
找了很久
d