删除指定区域外图元

masterlong

个人习惯保存时先zoom'e
而别人发来的图
经常有天外飞线
于是就有了这个程序
很简单
也没考虑图层锁定
不过还算实用吧


;;指定保留区（矩形框）两点，删除区域外图元。-----这个程序主要用于删除天外飞线
(defun c:delrec()
(command "undo" "g")
(princ "\n 删除保留区域外的所有图元")
(if (and
    (setq p1 (getpoint "\n 指定保留区域的第1点："))
    (setq p2 (getcorner p1 "\n 指定保留区域的第2点："))
    ;;()  ;;确认操作
    (setq pa (list (min (car p1) (car p2)) (min (cadr  p1) (cadr  p2))))
    (setq pb (list (max (car p1) (car p2)) (max (cadr  p1) (cadr  p2))))
    (setq insss (ssget "x"  (list
             '(-4 . "<and")
              '(-4 . ">,>,*")(cons 10 pa)
              '(-4 . "<,<,*")(cons 10 pb)
             '(-4 . "and>")
            )
        )
    )
   )
   (progn
    (command "erase" "all" "r" insss "")
    ;;(command "zoom" "w" "non" p1 "non" p2)
    (command "zoom" "e")
   )
)
(command "undo" "e")
(princ)
)

lsjj

(setq insss (ssget))是否直接些?

masterlong

有一点小区别
如果直接采用(ssget)
在选择过程中必须保证
目标物体在屏幕内可见
而程序中所采用的方式
并不需要这样
所以不会发生误删除

wangxf888

试试好用不  谢谢分享

xyp1964

2. ;; 区域外图元删除
   
3. (defun c:tt ()
   
4.   (princ "\n 删除保留区域外的所有图元")
   
5.   (if (and (setq p1 (getpoint "\n 指定保留区域的第1点: "))
   
6.            (setq p2 (getcorner p1 "\n 指定保留区域的第2点: "))
   
7.            (setq ss (ssget "c" p1 p2))
   
8.            (setq ss1 (ssget "x"))
   
9.       )
   
10.     (command "erase" ss1 "r" ss "")
    
11.   )
    
12.   (princ)
    
13. )

;; 区域外图元删除<br /> (defun c:tt ()<br />   (princ "\n 删除保留区域外的所有图元")<br />   (if (and (setq p1 (getpoint "\n 指定保留区域的第1点: "))<br />            (setq p2 (getcorner p1 "\n 指定保留区域的第2点: "))<br />            (setq ss (ssget "c" p1 p2))<br />            (setq ss1 (ssget "x"))<br />       )<br />     (command "erase" ss1 "r" ss "")<br />   )<br />   (princ)<br /> )

masterlong

院长再仔细看下板凳楼