冒个烟圈 发表于 2016-5-18 19:34:02

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 发表于 2016-5-18 22:32:12

ET 的extrim 稍加修改即可

spiderman 发表于 2016-5-19 11:22:26

剪不干净

冒个烟圈 发表于 2016-5-19 19:20:01

gufeng 发表于 2016-5-18 22:32 static/image/common/back.gif
ET 的extrim 稍加修改即可

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

kugoo999 发表于 2019-1-23 16:31:38

很强大，谢谢
页: [1]
查看完整版本: G版的<画框删除框内物体>求教