Question

求助，CAD代码插件LSP修改

代码如图。是一个快速删除矩形外部的LSP。
自己

不懂代码。求助可否把这个代码改成删除矩形内部？
在线等，求解决！

Answer 1

(defun c:tt (/ EF EN ET GET MA SEL)
(princ "\n功能 [删除距形内边对象]")
(if (and
(setq sel (entsel "\n选择一个封闭的多段线:"))
(setq en (entget (car sel)))
(setq et (cdr (assoc 0 en)))
(setq ef (cdr (assoc 70 en)))
(= et "LWPOLYLINE")
(= ef 1)
);and
(progn
(setq ma (mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) en)))
(setq get (ssget "cp" ma))
(and get (command "_.ERASE" get "r" sel ""))
)
)
(princ)
)

追问

血泪感谢！最近改地形图改的快死了快死的了！相当感谢，请问可以留个QQ联系么？还有这个代码，不知道什么每次多边形内部有些删不干净？

追答

发不了扣扣，可以给我发私信

Answer 2

你把倒数第4行的 “all"去掉，试试

追问

不行。去掉ALL之后，会把多段线（闭合矩形）删掉。原版代码All后面还有 "r"，可以把矩形外部快速删除，可我需要删除矩形内部!