怎样删除特性过滤器？？

guohq · 发表于 2008-8-18 23:19

在图层管理器里创建了特性管理器，如图示：

请问创建的特性过滤器，如果用lisp删除?

caoyin · 发表于 2008-8-19 12:14

(vl-catch-all-apply
    '(lambda ()
       (vla-Remove
         (vla-getextensiondictionary
           (vla-get-Layers
             (vla-get-activedocument (vlax-get-acad-object))
           )
         )
         "ACLYDICTIONARY"
       )
     )
)

guohq · 发表于 2008-8-19 23:01

先谢谢caoyin,我试了这个程序，没有得到预期的结果。新建的特性过滤器abcd1,abcd2还是没有删除

caoyin · 发表于 2008-8-20 09:31

低版本和高版本不同

将"ACLYDICTIONARY" 改为 "ACAD_LAYERFILTERS" 试试

guohq · 发表于 2008-8-21 22:23

很谢谢caoyin给我提供帮助，这个程序我试了好多次了，还是没有删除在图层管理器里创建的图层过滤器，我是在2005里创建的。另外再问一下，想学习CAD字典方面的知识，不知道看什么书好呢？能否给我推荐一下？

vip_xxx · 发表于 2008-8-22 18:21

我也碰到过这个问题，也想了解一下

狂刀无痕 · 发表于 2008-8-22 22:39

guohq发表于2008-8-21 22:23:00很谢谢caoyin给我提供帮助，这个程序我试了好多次了，还是没有删除在图层管理器里创建的图层过滤器，我是在2005里创建的。另外再问一下，想学习CAD字典方面的知识，不知道看什么书好呢？能否给

看cad帮助

龙龙仔 · 发表于 2008-8-26 16:51

;;R. Robert Bell
(defun LAYERFILTERSDELETE (/ OBJXDICT OBJDICT)
(vl-catch-all-apply
(function
(lambda ()
(setq
OBJXDICT (vla-getextensiondictionary
(vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
)
)
)
)
)
)
(cond (OBJXDICT
(I:DELETEALLXRECS OBJXDICT "ACAD_LAYERFILTERS")
(I:DELETEALLXRECS OBJXDICT "AcLyDictionary")
)
)
)
(defun I:DELETEALLXRECS (OBJXDICT DICTNAME / OBJDICT)
(not
(vl-catch-all-error-p
(vl-catch-all-apply
(function (lambda ()
(setq OBJDICT (vla-item OBJXDICT DICTNAME))
(vlax-for OBJXREC OBJDICT (vla-delete OBJXREC))
)
)
)
)
)
)

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

怎样删除特性过滤器？？

本帖子中包含更多资源

浏览过的版块