明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4185|回复: 6

这个问题始终没有解决 (layer命令后反应很慢)

[复制链接]
发表于 2006-3-1 10:53:00 | 显示全部楼层 |阅读模式

如题,我用的是cad2005 执行layer命令后,反应很慢,特别是图形大的时候,要等好几分钟才出现图层编辑那个对话框

是否有什么设置改变cad。

高手帮忙

发表于 2006-3-1 11:04:00 | 显示全部楼层

在"特性"中修改会快些

 楼主| 发表于 2006-3-1 11:10:00 | 显示全部楼层

但还是不能避免对图层的编辑,经常还是要用到layer命令的。

发表于 2006-3-1 12:07:00 | 显示全部楼层
第一次运行时,是有点慢,但第二次就没问题了
发表于 2006-3-1 16:58:00 | 显示全部楼层
我以前也遇到过同样的问题!好像是版本的问题!
发表于 2006-3-1 21:12:00 | 显示全部楼层
本帖最后由 作者 于 2008-3-8 22:01:32 编辑

楼主的机子不是很好吧? 可能是图像里面有非常多的, 上万个, 甚至更多的图层过滤设置. 我也不知道这些东西一开始是从哪里出来的, 最初也是从这里看到的. 好像是日本的项目似的, 因为其中有些过滤名有日文的味道. 近来发现我们单位里面的些图形里面竟然也有了! 楼主在打开层对话框后, 如果左边的列表有一大堆的东西的话, 就是了. 可以用下面的 lsp 来删除, 只是, 不知道什么原因, 我这里需要运行两次 DelLayFlt 命令, 第一次提示 Automation 错误. 第二词就正常删除了层过滤. 我也是第一次写 vla 类的 lsp, 所以, 可能有不妥之处


;
; 删除图形的所有层过滤设置
; by  zwh
; 最后修改: 15:40 2007-01-29
;

(princ "\n删除当前图形的所有层过滤设置.\n")
(vl-load-com); load visual lisp extension
(defun  C:DelLayFlt ( / xdoc xlayers xDic xDic1 xc xi )
   (setq xdoc (vla-get-ActiveDocument (vlax-get-Acad-Object))
         xlayers (vla-get-Layers xdoc)
   )
   (if (= (vla-get-HasExtensionDictionary xlayers) ':vlax-true)
       (progn
          (setq  xDic (vla-GetExtensionDictionary xlayers)
                 xc (vla-get-Count xDic)  xi 0
          )
          (while (< xi xc)
             (setq  xDic1 (vla-Item xDic xi)  xi (1+ xi))
             (if (= (vla-get-Name xDic1) "ACAD_LAYERFILTERS")
                 (progn
                    (princ "Layers' handle: ")
                    (princ (vla-get-Handle xlayers))
                    (princ "\nFilters' handle: ")
                    (princ (vla-get-Handle xDic1))
                    (princ "\nNumber of filters: ")
                    (princ (vla-get-count xDic1))
                    (vla-Remove xDic (vla-get-Name xDic1))
                    (setq  xi (1+ xc))
                 )  ; end of progn(it's ACAD_LAYERFILTERS)
             )  ; end of if(该词典项是层过滤器?)
          )  ; end of while(检查层组对象的没有词典项)
          (if (= xi (1+ xc))
              (princ "\n层过滤器已经被删除. ")
              (princ "\n无层过滤设置. ")
          )
       )  ; end of progn(层有词典)
       (princ "该图形文件层组对象没有词典属性! ")
   )  ; end of if(层有词典)
   (princ)
)  ; end of C:DelLayFlt

发表于 2007-5-30 16:49:00 | 显示全部楼层

十分感谢楼主!问题解决了

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-27 00:28 , Processed in 0.197597 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表