指定闭合框删除里面所有图元，帮忙修改一下！谢谢

新不由己

(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)
   )

start4444

(defun c:tt5 (/ en ent ptls ss)
        (setq en (entsel "\n选取多边形:") ent (entget(car en))  ptls '())
        (mapcar '(lambda(x) (if (= (car x) 10)(setq ptls (cons (cdr x) ptls)))) ent)
        (if (setq ss (ssget "WP" ptls))
        (command "ERASE" ss "" ))
        (princ)
)

新不由己

start4444 发表于 2019-11-13 18:45
(defun c:tt5 (/ en ent ptls ss)
        (setq en (entsel "\n选取多边形:") ent (entget(car en))  ptls '())
...

谢谢！圆还不行！我看一下怎么改

yangchao2005090

start4444 发表于 2019-11-13 18:45
(defun c:tt5 (/ en ent ptls ss)
        (setq en (entsel "\n选取多边形:") ent (entget(car en))  ptls '())
...

如果是删除框外内，比如剪切地地形图

panliang9

看这个
http://bbs.mjtd.com/thread-181107-1-1.html