如何获得命名图层过滤器的列表?

oyxx1023 · 发表于 2008-7-14 14:29:00

如题.

oyxx1023 · 发表于 2008-7-15 22:25:00

没人知道?高手呢.

caoyin · 发表于 2008-7-14 16:13:00

这个有些复杂，属于词典的研究范围。我也在研究，期待高手！！

sailorcwx · 发表于 2008-7-16 00:00:00

http://www.mjtd.com/bbs/dispbbs.asp?BoardID=3&replyID=13437&id=33249&skin=0

caoyin · 发表于 2008-7-16 09:09:00

本帖最后由作者于 2008-7-16 9:12:32 编辑

;;昨晚我也搞出来了

(defun GetLayerFilterList (/ Dic)
(setq Dic (vla-GetExtensionDictionary
              (vla-Get-Layers
                (vla-Get-ActiveDocument (vlax-Get-Acad-Object))
              )
            )
        Dic (dictsearch (vlax-vla-Object->Ename Dic) "ACLYDICTIONARY")
)
(mapcar '(lambda (X) (cdr (assoc 300 (entget (cdr X)))))
          (vl-Remove-If '(lambda (X) (/= (car X) 350)) Dic)
)
)

oyxx1023 · 发表于 2008-7-16 12:22:00

楼上的我在02下试验结果为NIL.

与实际不符.在(dictsearch (vlax-vla-Object->Ename Dic) "ACLYDICTIONARY")这里得出的结果为NIL.得不到正确结果

caoyin · 发表于 2008-7-16 12:53:00

可能底版本数据结构不同，我在2006、2009测试通过

oyxx1023 · 发表于 2008-7-16 14:14:00

ok了,02下改为(dictsearch (vlax-vla-Object->Ename Dic) "ACAD_LAYERFILTERS")即可.感谢楼上几位.

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