 - (defun c:tt ()
- "删除点(0 0)和点(1000 1000)形成的矩形内的图块和文本实体(在屏幕外面的也可以)"
- (setq p1 '(0 0) ;窗口左下角点
- p2 '(1000 1000) ;窗口右上角点
- )
- (command "zoom" "w" p1 p2)
- (if (setq ss (ssget "w" p1 p2 '((0 . "insert,text"))))
- (command "erase" ss "")
- )
- (command "zoom" "p")
- (princ)
- )
|