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

荣sir

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

magicheno

收藏收藏~~~

guankuiwu

学习中！不错的

菜鸟初来乍到

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

guankuiwu

很不错了！

guankuiwu

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" )

竹天

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