[编程申请]：图形编组显示

dancingbubble

请问可否将图形用group命令分组后,用一个命令来显示或隐藏该组,
就像图层一样可以显示或关闭?

efan2000

有一个快捷键，可以控制组的方式，是Ctrl+A。

dancingbubble

我是说在给图形编好组以后,该组的显示能够集体控制.
就像图层一样可以方便的显示或者关闭.

efan2000

可以，不过CAD没有直接提供这个功能，只有通过编程来控制。如设置组不显示，则组中的所有实体也将不显示。

dancingbubble

那你能帮我编一个吗?急需!!!
用lisp能编吗?可我才刚刚学啊!!!

XDSoft

最初由 dancingbubble 发布
[B]请问可否将图形用group命令分组后,用一个命令来显示或隐藏该组,
就像图层一样可以显示或关闭? [/B]

我想你问的应该是有个开关，是否把组做整体使用，还是分开实体吧。

上面EFAN的方法适合全图所有的组，开关。

如果你只要其中一个组是否作为整体，那么可以用GROUP命令，在对话框里面，把组属性的SELECTED，关闭或者打开就可以了。

晓东工具箱提供了更灵活的控制，可以让你在屏幕上多选，然后把选择的多个组关闭或者打开。

下面演示晓东工具箱－组管理工具


下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_group.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_group.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

dancingbubble

我是说在给图形编好组以后,该组的显示能够集体控制.
就是说关闭显示该组的话,这个组上的所有东西全部关闭,不再显示在屏幕上.
而除过这个组之外的东西则仍然显示,未被关闭.哪怕和这个组里的一些对象是在同一层上.
就像图层一样可以方便的显示或者关闭.


__________________

efan2000

这个是控制组的显示与否的函数，程序如下：

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Sub Test()
   
6.     ShowGroup False
   
7. End Sub
   
8. 
   
9. '控制组的显示
   
10. Sub ShowGroup(ByVal Visible As Boolean)
    
11.     Dim EntObj As AcadGroup
    
12.     For Each EntObj In ThisDrawing.Groups
    
13.         EntObj.Visible = Visible
    
14.     Next
    
15.     Set EntObj = Nothing
    
16. End Sub
    
17.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Sub Test()<br />     ShowGroup False<br /> End Sub<br /> <br /> '控制组的显示<br /> Sub ShowGroup(ByVal Visible As Boolean)<br />     Dim EntObj As AcadGroup<br />     For Each EntObj In ThisDrawing.Groups<br />         EntObj.Visible = Visible<br />     Next<br />     Set EntObj = Nothing<br /> End Sub<br />   [/FONT]<br />

XDSoft

最初由 dancingbubble 发布
[B]我是说在给图形编好组以后,该组的显示能够集体控制.
就是说关闭显示该组的话,这个组上的所有东西全部关闭,不再显示在屏幕上.
而除过这个组之外的东西则仍然显示,未被关闭.哪怕和这个组里的一些对象是在同一层上.
... [/B]

你可以试试晓东工具箱的”隐藏实体“、”隐藏恢复“。


下载地址：http://www.xdcad.net/tech/xd_tbox/xdtb_onoff.swf

<embed src=http://www.xdcad.net/tech/xd_tbox/xdtb_onoff.swf quality=high width=512 height=482 loop=true type="application/x-shockwave-flash">
</embed>

lhj555

应该看明白了。

chenhang1203

明白了，很好用的东西啊