请教如何修改可以简化这段代码

mcxiangxin

请教如何修改可以简化下面的过滤代码

Andyhon

(defun c:ff ()
  (setq ent (car (entsel)))
  (while (Not
           (and
             (setq ent (entsel))
             (= (cdr (assoc 0 (entget (car ent))))  "LINE")
  )      ) )
  (entdel (car ent))
  (redraw)        ; check this line to see if needed
  (alert "已经成功将选取的直线删除!")
  (princ)
)

;;; 最好是在选取时,如果遇到右击时能够退出选取 <== 这个得向 Grread 下苦功

mcxiangxin

多谢黑侠!简化了很多

szmaicy

另一种方法:

(defun c:ff ( / ent)
(while (not ent)
   (setq ent (ssget "_:S:E" '((0 . "LINE"))))
)
;(command "_.erase" ent "")
(entdel (ssname ent 0))
(alert "已经成功将选取的直线删除!")
(princ)
)

mcxiangxin

多谢,4楼方法也不错!不过了有一点不明白

mcxiangxin

(setq ent (ssget "_:S:E" '((0 . "LINE"))))中的"_:S:E"是什么意思呀?