江山前辈，想在追问一下，如果遇到实体与外面的矩形框相交的时候，好像是没法删除的，我应该怎么处理这种情况呢？？？？ ;; tt(批量删除方框内含相交的内容) 2015-03-17
(defun c:tt ()
(defun dxf (code s1) (cdr (assoc code (entget s1))))
(setq ss (ssget '((0 . "lwpolyline")))
i-1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if(and (= (dxf 70 s1) 1)
(setq ptn (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget s1)))
(setq ss1 (ssget "cp" (mapcar 'cdr ptn)))
)
(if (ssmemb s1 ss1)
(command "erase" (ssdel s1 ss1) "")
(command "erase" ss1 "")
)
)
)
(princ)
) nadaloveluna 发表于 2015-3-17 11:41 static/image/common/back.gif
江山前辈，想在追问一下，如果遇到实体与外面的矩形框相交的时候，好像是没法删除的，我应该怎么处理这种 ...
;;;;琴剑江山 2015.3.16
(defun c:ta (/ GET GET2 I NN PLST)
(setvar "cmdecho" 0)
(princ "\n功能 [批量删除多段内所有对象]")
(setq get (ssget (list '(0 . "LWPOLYLINE") (cons 8 "bend"))));删除"bend"层的，自行修改你的层
(repeat (setq i (sslength get))
(setq nn (ssname get (setq i (1- i))) plst nil)
(foreach x (entget nn) (if (= (car x) 10) (setq plst (cons (cdr x) plst))))
(setq get2 (ssget "CP" plst ))
(command "_.ERASE" get2 "R" nn "")
)
(setvar "cmdecho" 1)
(princ)
)
不知道你说的是不是这个意思，方框里的对象，与方框相交了，里面的对删除不了 琴剑江山_10184 发表于 2015-3-17 22:38 static/image/common/back.gif
不知道你说的是不是这个意思，方框里的对象，与方框相交了，里面的对删除不了
恩，是这个意思，再次感谢江山前辈抽时间回复这个问题，十分感谢！！谢谢您了。
页:
1
[2]