求助,CAD代码插件LSP修改

发布网友发布时间：2023-07-19 22:41

共2个回答

热心网友时间：2024-11-19 04:32

(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联系么？还有这个代码，不知道什么每次多边形内部有些删不干净？

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

热心网友时间：2024-11-19 04:32

你把倒数第4行的 “all"去掉，试试追问不行。去掉ALL之后，会把多段线（闭合矩形）删掉。原版代码All后面还有 "r"，可以把矩形外部快速删除，可我需要删除矩形内部!