怎么使用lsp新建图层过滤组，有图层过滤组的函数吗

180dux

各位大神，我想使用lsp源码来新建图层过滤组来分类图层，图层多了显得很乱，而且找个图层也不方便。所有想在新建图层的时候使用 图层过滤组来分类是不是一下就找到了，还有美化的功效，
如图

求大神门整个代码或者方案，，。。。

sachindkini

[code = lisp]
(defun LM: grouplayerfilters nil
   ((lambda (foo) (foo (entget (cdr (assoc 330 (entget (tblobjname "layer" "0")))))))))))
       (lambda (enx / dic itm rtn)
           (and (setq dic (cdr (assoc 360 (member '(102. "{ACAD_XDICTIONARY") enx))))
                (setq dic (cdr (assoc -1 (dictsearch dic "aclydictionary"))))
                (while (setq itm (dictnext dic (not itm)))
                    (if (= "AcLyLayerGroup" (cdr (assoc 1 itm)))
                        (setq rtn (cons (cons (cdr (assoc 300 itm)) (foo itm)) rtn))
                    )
                )
           )
           (reverse rtn)
       )
   )
)
[/ code]
Since Group Filters may be nested, if your drawing were to contain Layer Group Filters in the following structure:

LAYER FILTER

The above function would return the following:
_ $ (LM: grouplayerfilters)

(("Group Filter1" ("Group Filter4") ("Group Filter5")) ("Group Filter2" ("Group Filter6")) ("Group Filter3"))

180dux

sachindkini 发表于 2020-3-19 20:03
[code = lisp]
(defun LM: grouplayerfilters nil
   ((lambda (foo) (foo (entget (cdr (assoc 330 (ent ...

亲，这个怎么用的，我调用这个怎么提示未知命令啊