bios 发表于 2006-3-1 10:53:00

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

<P>如题，我用的是cad2005 执行layer命令后，反应很慢，特别是图形大的时候，要等好几分钟才出现图层编辑那个对话框</P>
<P>是否有什么设置改变cad。</P>
<P>高手帮忙</P>

曲曲 发表于 2006-3-1 11:04:00

<P>在＂特性＂中修改会快些</P>

bios 发表于 2006-3-1 11:10:00

<P>但还是不能避免对图层的编辑，经常还是要用到layer命令的。</P>

ljpnb 发表于 2006-3-1 12:07:00

第一次运行时，是有点慢，但第二次就没问题了

钾肥 发表于 2006-3-1 16:58:00

我以前也遇到过同样的问题！好像是版本的问题！

zara 发表于 2006-3-1 21:12:00

本帖最后由 作者 于 2008-3-8 22:01:32 编辑 <br /><br /> <p>楼主的机子不是很好吧? 可能是图像里面有非常多的, 上万个, 甚至更多的图层过滤设置. 我也不知道这些东西一开始是从哪里出来的, 最初也是从这里看到的. 好像是日本的项目似的, 因为其中有些过滤名有日文的味道. 近来发现我们单位里面的些图形里面竟然也有了! 楼主在打开层对话框后, 如果左边的列表有一大堆的东西的话, 就是了. 可以用下面的 lsp 来删除, 只是, 不知道什么原因, 我这里需要运行两次 DelLayFlt 命令, 第一次提示 Automation 错误. 第二词就正常删除了层过滤. 我也是第一次写 vla 类的 lsp, 所以, 可能有不妥之处</p><p><br/>;<br/>; 删除图形的所有层过滤设置<br/>; by&nbsp; zwh<br/>; 最后修改: 15:40 2007-01-29<br/>;</p><p>(princ "\n删除当前图形的所有层过滤设置.\n")<br/>(vl-load-com); load visual lisp extension<br/>(defun&nbsp; C:DelLayFlt ( / xdoc xlayers xDic xDic1 xc xi )<br/>&nbsp;&nbsp; (setq xdoc (vla-get-ActiveDocument (vlax-get-Acad-Object))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xlayers (vla-get-Layers xdoc)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; (if (= (vla-get-HasExtensionDictionary xlayers) ':vlax-true)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp; xDic (vla-GetExtensionDictionary xlayers)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; xc (vla-get-Count xDic)&nbsp; xi 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (while (&lt; xi xc)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp; xDic1 (vla-Item xDic xi)&nbsp; xi (1+ xi))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (vla-get-Name xDic1) "ACAD_LAYERFILTERS")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "Layers' handle: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (vla-get-Handle xlayers))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\nFilters' handle: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (vla-get-Handle xDic1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\nNumber of filters: ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ (vla-get-count xDic1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-Remove xDic (vla-get-Name xDic1))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq&nbsp; xi (1+ xc))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp; ; end of progn(it's ACAD_LAYERFILTERS)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp; ; end of if(该词典项是层过滤器?)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp; ; end of while(检查层组对象的没有词典项)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= xi (1+ xc))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n层过滤器已经被删除. ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n无层过滤设置. ")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )&nbsp; ; end of progn(层有词典)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (princ "该图形文件层组对象没有词典属性! ")<br/>&nbsp;&nbsp; )&nbsp; ; end of if(层有词典)<br/>&nbsp;&nbsp; (princ)<br/>)&nbsp; ; end of C:DelLayFlt</p>

xuguogang 发表于 2007-5-30 16:49:00

<p>十分感谢楼主！问题解决了</p>
页: [1]
查看完整版本: 这个问题始终没有解决 (layer命令后反应很慢)