社区 › AutoLISP/Visual LISP 编程技术 › 按块名字过滤选择动态块【目前我自己最快的版本】

失落的白羊座24 发表于 2020-12-4 09:09:21

菜卷鱼 发表于 2020-12-4 08:24
没有命令，直接复制到命令栏使用，是子程序
(SSgetdynblk "块名" "x")

好的，谢谢。我试试

l982414603 发表于 2020-12-5 08:06:19

谢谢! 菜卷鱼 分享程序!!!!

friendship 发表于 2020-12-6 11:34:35

谢谢楼主谢谢楼主谢谢楼主

15508629195 发表于 2020-12-16 22:06:39

您好，有没有可以直接过滤图层、引线、区域覆盖、标注的程序呀。

竹天 发表于 2021-1-5 17:22:21

学无止境，学习一下！

1028695446 发表于 2021-1-20 16:37:12

本帖最后由 1028695446 于 2021-1-20 16:38 编辑

我今天试了下，你发的代码缺了个 if
源代码如下：
(defun Getublkname (name / namejoin)
(setq namejoin "")
(vlax-for obj        (getublksset)
    (and
      (wcmatch (strcase (vla-get-effectivename obj))
             (strcase name)
      )
    )
    (setq namejoin (strcat ",`" (vla-get-name obj) namejoin))
)
(strcat name namejoin)
)


修正如下：
(defun Getublkname (name / namejoin)
        (setq namejoin "")
        (vlax-for obj        (getublksset)
                (if(and
                                        (wcmatch (strcase (vla-get-effectivename obj))
                                                (strcase name)
                                        )
                                )
                        (setq namejoin (strcat ",`" (vla-get-name obj) namejoin))
                )
        )
        (strcat name namejoin)
)

guankuiwu 发表于 2021-8-22 18:22:30

不错！

alexmai 发表于 2021-9-14 13:41:53

本帖最后由 alexmai 于 2021-9-14 13:43 编辑

如果想一次选多个动态块(包括普通块)，列表应该怎样写？

(setq ss(SSgetdynblk "块1""x") ;;;   块2+块3+轴号(普通块)+引线+文字

mercio 发表于 2021-12-16 14:12:40

有点厉害，子程序直接用。

894560869 发表于 2022-2-11 07:16:29

有点厉害，多谢分享，正需要这类程序

查看完整版本: 按块名字过滤选择动态块【目前我自己最快的版本】