过滤层（包含n个

Croftyno1 · 发表于 2022-7-6 09:17:57

下午的Cadders，

我想在过滤层时忽略字母，只过滤包含某些数字的层，即层名称：grid510，只按数字510过滤，而不是按整个层名称过滤。欢迎任何建议！！
这是我目前用来过滤我的图层的代码，这是Lee Mack从之前发布的问题中提供的。

copy

(defun test ( / ss ) (vl-load-com)
 (if (setq ss (ssget (setq l '((8 . "ti grid re510,ti grid re520,ti grid re540,ti grid re560,ti grid re570,ti grid re580,ti grid tx150,ti grid type 1,ti grid type 2,ti grid type 3,ti grid type 4")))))
   (
     (lambda ( l / i e sym )
       (repeat (setq i (sslength ss))
         (ssadd (setq e (ssname ss (setq i (1- i))))
           (cond
             (
               (eval
                 (setq sym
                   (read
                     (strcat "ss"
                       (
                         (lambda ( j )
                           (vl-some
                             (function
                               (lambda ( x ) (setq j (1+ j))
                                 (if (wcmatch (strcase (cdr (assoc 8 (entget e)))) (strcase x))
                                   (itoa j)
                                 )
                               )
                             )
                             l
                           )
                         )
                         0
                       )
                     )
                   )
                 )
               )
             )
             ( (set sym (ssadd)) )
           )
         )
       )
     )
     (LM:str->lst (cdar l) ",")
   )
 )
)

BlackBox · 发表于 2022-7-6 09:44:04

???

copy


...
 (if (setq ss (ssget '((8 . "[color=red]*[/color]510[color=red]*[color=black],[/color]*[color=black]520[/color]*[/color]"))))
 ...

alanjt · 发表于 2022-7-6 09:54:56

您应该阅读一下wcmatch函数。它将为您提供ssget选择筛选所需的信息。

Croftyno1 · 发表于 2022-7-6 10:16:34

现在感觉自己像一个成年累月的人，*510*起作用了！真不敢相信，看在上帝的份上，这就是我所需要做的一切。
谢谢大家

irneb · 发表于 2022-7-6 10:24:18

wild-Cards的奇迹8）！只有当你开始使用它们时，你才开始注意到ACad的wcmatch函数的缺点：o。然后你开始考虑使用正则表达式——但这是一个完全不同的游戏！

[编程交流] 过滤层（包含n个

发表回复

精选推荐