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

怎样删除特性过滤器？？

<font face="宋体" size="2">在图层管理器里创建了特性管理器，如图示：<br/><br/><br/><br/>请问创建的特性过滤器，如果用lisp删除?</font>

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

&nbsp; (vl-catch-all-apply<br/>&nbsp;&nbsp;&nbsp; '(lambda ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-Remove<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-getextensiondictionary<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-get-Layers<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-get-activedocument (vlax-get-acad-object))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "ACLYDICTIONARY"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )

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

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

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

<p>低版本和高版本不同</p><p>将"ACLYDICTIONARY" 改为 "ACAD_LAYERFILTERS" 试试</p>

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

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

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

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

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

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

<p>看cad帮助</p>

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


;;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))
    )
)
      )
    )
)
)
页: [1]
查看完整版本: 怎样删除特性过滤器？？