求问一个困扰已久的问题,cad快速选择的代码

20cr

在ug 或者proe导出二维图用cad进行编辑，可以用快速选择工具进行选择，线宽和颜色，进行相关的图形选择。

基本上每次导图都要重新选择，重复性的操作比较多,我想问问 关于这方面的 代码vba能不能实现。

比如对整体图形界面的绿色的线进行选择，然后吧绿色的线改成白色的线，并加粗到0.5mm。

wwswwswws

先全选所有实体，在当前选择集中，把你需要的线型和其需要的颜色的对象進行白色和加粗处理，其余对象略过不处理就可以了。

chen2j

咱俩要实现的功能类似，你这个我刚刚实现了，改天我把代码传上来。不复杂。

chen2j

用遍历功能：

2.                 Dim ent As Object
   
3.                 Dim moSpace As Object
   
4.                 Set moSpace = ThisDrawing.ModelSpace
   
5.                 For Each ent In moSpace
   
6.                
   
7.                      If ent.Linetype = "CENTER" Then
   
8.                         ent.Layer = "中心线层_bychen"
   
9.                         ent.color = acByLayer
   
10.                         ent.Lineweight = acLnWtByLwDefault
    
11.                         ent.Update
    
12.                     End If
    
13.                     
    
14.                     If ent.color = acWhite Or ent.color = acGreen Then
    
15.                         ent.Layer = "粗实线层_bychen"
    
16.                         ent.color = acByLayer
    
17.                         'ent.Linetype = acByLayer
    
18.                         ent.Lineweight = acLnWt035
    
19.                         ent.Update
    
20.                     End If
    
21.                     
    
22.                 Next

                Dim ent As Object<br />                 Dim moSpace As Object<br />                 Set moSpace = ThisDrawing.ModelSpace<br />                 For Each ent In moSpace<br />                 <br />                      If ent.Linetype = "CENTER" Then<br />                         ent.Layer = "中心线层_bychen"<br />                         ent.color = acByLayer<br />                         ent.Lineweight = acLnWtByLwDefault<br />                         ent.Update<br />                     End If<br />                     <br />                     If ent.color = acWhite Or ent.color = acGreen Then<br />                         ent.Layer = "粗实线层_bychen"<br />                         ent.color = acByLayer<br />                         'ent.Linetype = acByLayer<br />                         ent.Lineweight = acLnWt035<br />                         ent.Update<br />                     End If<br />                     <br />                 Next

20cr

chen2j 发表于 2015-1-6 22:08
用遍历功能：

这位兄台，我经过3年的学习，基本上实现了这个功能，差不多就是你的这个思路做的。
谢谢你的回复。

dong20030432

20cr 发表于 2017-11-27 14:27
这位兄台，我经过3年的学习，基本上实现了这个功能，差不多就是你的这个思路做的。
谢谢你的回复。

一个问题能花三年时间去研究，佩服！
遍历整个模型空间对象方法一般效率比较低，最好还是用选择集过滤方法选择出所要的对象，再进行选择集内的遍历。