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

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

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

好的，谢谢。我试试

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

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

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

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

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

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

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

学无止境，学习一下！

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

本帖最后由 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

不错！

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

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

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

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

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

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

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

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

账号		自动登录	找回密码
密码			注册

[源码] 按块名字过滤选择动态块【目前我自己最快的版本】