求一个能选择封闭多段线内所有图元（窗围WP方式）的lsp

fanshuteng

请问大神是否有能选择封闭多段线内所有图元（窗围WP方式）的lsp，比如只要封闭多段线围起来的那部分，不要与多段线相交的那部分。今天刚注册明经，查看了一下本版内的一些大神做的lsp，用起来还是感觉不是平常画图所要的这种，能力所限，自己没法解决这问题。有没有大神有解决方法，万分感谢！

yaokui25

看看是不是你想要的
(defun C:WP (/ lss en enlist)
(print " **********")
(setvar "cmdecho" 0)
(while (setq en (car (entsel)))
   (setq enlist (entget en))
    (setq lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)))
  (Setq xuanze (ssget "WP" lss))
  (sssetfirst nil xuanze)
)
(princ)
)

jun353835273

2. (defun C:WP (/ lss en enlist)
   
3.   (print " **********")
   
4.   (setvar "cmdecho" 0)
   
5.   (setq en (car (entsel)))
   
6.   (setq enlist (entget en))
   
7.   (setq lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)))
   
8.   (Setq xuanze (ssget "WP" lss '((62 . 2))))
   
9.   (sssetfirst nil xuanze)
   
10.   (princ)
    
11. )

(defun C:WP (/ lss en enlist)<br />   (print " **********")<br />   (setvar "cmdecho" 0)<br />   (setq en (car (entsel)))<br />   (setq enlist (entget en))<br />   (setq lss (mapcar 'cdr (vl-remove-if '(lambda (x) (/= 10 (car x))) enlist)))<br />   (Setq xuanze (ssget "WP" lss '((62 . 2))))<br />   (sssetfirst nil xuanze)<br />   (princ)<br /> )

fanshuteng

本人明经币很少，愿全部给能指导的大神

天下逍遥

同求，帮楼主顶出来

fanshuteng

楼上大神太猛了，我试了下，就是尧这个，可以的，非常感谢！我看看明经币怎么给你

fanshuteng

yaokui25 发表于 2017-11-19 16:32
看看是不是你想要的
(defun C:WP (/ lss en enlist)
(print " **********")

本人不会转让明经币，先把18个金钱全部转让给大神，后面再补给你，谢谢!确实解决了困扰我很久的问题。

alexmai

真不知道这个命令需要用在哪里？

autocad 任何有关和选择有关的命令，激活命令后，按 wp 就可以使用这个功能了

如果你有太多东西要分别选择，可以先选择，然后用 group （需配合 ctrl+H）这个命令啊

组成 组 之后，也很方便选择的

寒风

ozc1352

推荐的程序非常好用，谢谢！