G版的<画框删除框内物体>求教

冒个烟圈

想把此程序改成既能删除框内物体也能删除框外物体的功能，自己能力有限
尝试了好久都无法成功，请各位指点如何修改！！！
;;框内物体删除 By Gu_xl
(defun c:tt (/ OS P1 P2 CP SS ENREC N *error*)
   (defun *error* (s)
     (setvar "osmode" os)
     (princ s)
     )
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq p1 (getpoint "\n指定基点："))
   (setq p2 (getcorner p1 "\n指定对角点："))
   (setq cp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))
   (setq ss (ssget "w" p1 p2))
   (if ss (command "erase" ss ""))
   (command "rectang" p1 p2)
   (setq enRec (entlast))
   ;;重复5次，以保证剪切干净
  (repeat 5
   (setq ss (ssget "c" p1 p2))
     (ssdel enRec ss)
   (command ".trim" enRec "")
   (repeat (setq n (sslength ss))
     (command (list (ssname ss (setq n (1- n))) cp))
     )
   (command "")
     )
   ;;删除绘制的方框
  (entdel enRec)
   (setvar "osmode" os)
   (princ)
   )

gufeng

ET 的extrim 稍加修改即可

spiderman

剪不干净  

冒个烟圈

gufeng 发表于 2016-5-18 22:32
ET 的extrim 稍加修改即可

ET自带的没有源码没办法修改。。。

kugoo999

很强大，谢谢