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

荣sir 发表于 2022-3-3 17:28:46

大神厉害呀，正需要这个！

magicheno 发表于 2022-3-4 19:32:01

收藏收藏~~~

guankuiwu 发表于 2022-9-8 20:25:57

学习中！不错的

菜鸟初来乍到 发表于 2022-11-23 17:54:04

虽然我不怎么用得到这个，但是从来到这里后，拿了大佬很多插件用，真的是太感谢了大佬的无私奉献了

guankuiwu 发表于 2023-8-4 17:49:38

很不错了！

guankuiwu 发表于 2023-8-19 17:21:45

alexmai 发表于 2021-9-14 13:41
如果想一次选多个动态块(包括普通块)，列表应该怎样写？

(setq ss(SSgetdynblk "块1""x") ;;;   块2+ ...
(defun SSgetdynblk-lst (lst mode / names filtn ss-newall);;按动态块名列表过滤
      (setq ss-newall '())
      (foreach name lst
(setq filtn (getublkname name))
(if (wcmatch (strcase mode t) "x,a,:e,:s,:e:s,:s:e,l,p")
    (setq ss-new(ssget mode (list '(0 . "insert") (cons 2 filtn))))
    (progn
      (sssetfirst
                              nil
                        (setq ss-new      (ssget (list '(0 . "insert") (cons 2 filtn))))
      )
      (ssget "i")
    )
)
                (setq ss-newall (append ss-newall (list ss-new)))
                )
)
(SSgetdynblk-lst '("N-A0" "N-A1""N-A2") "x" )

竹天 发表于 2023-10-8 17:29:11

[函数] 特殊字符处理(用于文字替换等)
如果需要选的块名里包含特殊字符（# *等），可以配合黄大师这个程序一起用

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