(defun c:111 ( / ptb ptb1 sel1 x)
(if (setq sel1 (entsel))
(progn
(setq sel1 (car sel1))
(setq ptb (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 10)) (entget sel1))))
(if (setq ptb1 (ssget "_cp" ptb));如果選中對象
(vl-catch-all-apply 'ssdel (list sel1 ptb1));選擇集裏面排除輪廓線
)
(if (ssname ptb1 0);如果選擇集裏面還有其他對象
(command "ERASE" ptb1 "");刪除
)
)
)
(princ)
)