fanshuteng 发表于 2017-11-19 16:11:41

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

本帖最后由 fanshuteng 于 2017-11-19 16:09 编辑

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

yaokui25 发表于 2017-11-19 16:32:02

看看是不是你想要的
(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 发表于 2017-11-19 20:28:49

(defun C:WP (/ lss en enlist)
(print " **********")
(setvar "cmdecho" 0)
(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 '((62 . 2))))
(sssetfirst nil xuanze)
(princ)
)

fanshuteng 发表于 2017-11-19 16:22:46

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

天下逍遥 发表于 2017-11-19 16:24:40

同求，帮楼主顶出来

fanshuteng 发表于 2017-11-19 16:42:07

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

fanshuteng 发表于 2017-11-19 17:12:46

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


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

alexmai 发表于 2017-11-20 14:17:35

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

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

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

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

寒风 发表于 2017-11-20 23:45:17

ozc1352 发表于 2017-11-21 09:03:16

推荐的程序非常好用，谢谢！
页: [1] 2
查看完整版本: 求一个能选择封闭多段线内所有图元（窗围WP方式）的lsp