菜鸟问一个很菜LISP问题要删除" 0."到" 279." 问题:能直接选择0~279么 而不是 (1 . " 1##.") (1 . " 2[0-6]#.") (1 . " 27[0-9].")程序如下 (defun c:qqq (/ a cm) (setq cm (getvar "cmdecho")) (setvar "cmdecho" 0)(setq a (ssget "X"'(
要删除" 0."到" 279." 问题:能直接选择0~279么 而不是 (1 . " 1##.") (1 . " 2[0-6]#.")
(1 . " 27[0-9].")
程序如下
(defun c:qqq (/ a cm)
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq a (ssget "X"'(
(-4 . "
(0 . "TEXT")
(8 . "10")
(-4 . "
(1 . " #.")
(1 . " ##.")
(1 . " 1##.")
(1 . " 2[0-6]#.")
(1 . " 27[0-9].")
(-4 . "OR>")
(-4 . "AND>")
)
)
)
(if (/= a nil)(command"erase" a "") )
)