(完成)[编程申请]：将选择的对象最大范围显示在当前窗口

风中骷髅

在大图中，快速选择了某一类型对象，由于数量很少，看不到其所在位置，能否在晓东工具箱的视图缩放菜单里增加一功能：将选择的对象最大范围显示在当前窗口。

XDSoft

最初由 风中骷髅 发布
[B]在大图中，快速选择了某一类型对象，由于数量很少，看不到其所在位置，能否在晓东工具箱的视图缩放菜单里增加一功能：将选择的对象最大范围显示在当前窗口。 [/B]

写好了,请试用.

2. <normalfont>
   
3. ;|
   
4.    功能:ZOOM窗口到选择的对象
   
5.    命令:XDTB_ObjectZoomTo
   
6. |;
   
7. (defun c:XDTB_ObjectZoomTo(/ ss )
   
8.    (prompt "\n请选取实体<退出>:")
   
9.    (if (setq ss (ssget))
   
10.       (progn
    
11.          (setq box (xdrx_entity_box ss))
    
12.          (command "zoom" "w" (car box)(caddr box))
    
13.       )
    
14.    )
    
15.    (princ)
    
16. )
    
17. </normalfont>
    

<normalfont><br /> ;|<br />    功能:ZOOM窗口到选择的对象<br />    命令:XDTB_ObjectZoomTo<br /> |;<br /> (defun c:XDTB_ObjectZoomTo(/ ss )<br />    (prompt "\n请选取实体<退出>:")<br />    (if (setq ss (ssget))<br />       (progn<br />          (setq box (xdrx_entity_box ss))<br />          (command "zoom" "w" (car box)(caddr box))<br />       )<br />    )<br />    (princ)<br /> )<br /> </normalfont><br />

KKK417

为什么不能下载

eachy

最初由 XDSoft 发布
[B]
... [/B]

最后的 zoom  我在用xdrx_drawing_zoom 总出现莫名其妙的错误，要么ADS请求错误，要么没有反应。（R2002）

XDSoft

最初由 eachy 发布
[B]
最后的 zoom  我在用xdrx_drawing_zoom 总出现莫名其妙的错误，要么ADS请求错误，要么没有反应。（R2002） [/B]

应该是UCS和WCS不同, xdrx_drawing_zoom 现在还没有考虑UCS. 所以我用命令ZOOM了

风中骷髅

谢谢XD！也许是我描述得还未够清晰，原意是在z，e之后用快速选择选择某类对象，命令栏告诉我已经选择了5个对象（举例），但是在视窗中就是看不到被选择对象被勾亮的描点，所以希望能将被选择对象最大化在当前窗口，而上边的xdtb_drawing.lsp是在能够选择对象的基础上去放大它的。

eachy

最初由 风中骷髅 发布
[B]谢谢XD！也许是我描述得还未够清晰，原意是在z，e之后用快速选择选择某类对象，命令栏告诉我已经选择了5个对象（举例），但是在视窗中就是看不到被选择对象被勾亮的描点，所以希望能将被选择对象最大化在当前窗口，?.. [/B]

提示选择的时候输入 P ，用前一选择集。

风中骷髅

命令：q QSELECT
已选定7个项目。
命令：XDTB_ObjectZoomTo
请选择实体（退出）：
选择对象：p 没有上一个选择集
选择对象：


如上，不知何故，而且对被选择的对象（同一图层的所有对象）做不了删除的编辑动作，也并没有在全图的视窗里发现选中的描点，有谁碰到过类似的情况么？如何解决？

eachy

最初由 风中骷髅 发布
[B]命令：q QSELECT
已选定7个项目。
命令：XDTB_ObjectZoomTo
请选择实体（退出）：
选择对象：p 没有上一个选择集
选择对象：


如上，不知何故，而且对被选择的对象（同一图层的所有对象）做不了删除的编辑?.. [/B]

Qselect 选择完成后，选择集实体是亮显状态时，不用输入的。

1. 
   
2. 命令: qselect
   
3. 
   
4. 选择对象: 指定对角点: 找到 5 个
   
5. 
   
6. 选择对象:
   
7. 
   
8. 已选定 6 个项目。
   
9. 
   
10. 命令: 指定对角点:
    
11. 命令: vlisp
    
12. 
    
13. 命令:
    
14. 命令: XDTB_ObjectZoomTo
    
15. 
    
16. 请选取实体<退出>:找到 6 个
    
17. 
    
18. 命令: XDTB_ObjectZoomTo
    
19. 
    
20. 请选取实体<退出>:
    
21. 选择对象: p
    
22. 找到 6 个
    
23. 
    
24. 选择对象:

复制代码

风中骷髅

我做的那张图经手多人，给我时有好几个图层对象不可见，但是快速选择后可看见选择集实体是亮显状态的（虽然亮显的只是描点而无实体对象），并可删除，但其中就有一个图层属于我前贴所述，可选中，不可见，不可编辑，因而才会编程申请。

eachy

把图压缩下贴上来才好发现问题。

风中骷髅

图层14、16便是我所说的情况，不可见不可编辑，却可选中。



上传附件后终于自己查精华贴解决了，情形如同以下帖子：
http://www.xdcad.net/forum/showt ... y=&pagenumber=1
在recover或者audit之后，将两个块explode后purge就可了。

sinorex

谁有CAG文件

可可米

打印CAD 图时，图层都打开了，为什么预览能看见，却打印
不出来，（图比较大，插入的块也比较多。）

eachy

最初由 可可米 发布
[B]打印CAD 图时，图层都打开了，为什么预览能看见，却打印
不出来，（图比较大，插入的块也比较多。） [/B]

CAD有个特定图层 Defpoints 可见而不可打印。