[资料] Delphi开发AutoCAD之选择并删除对象

萧闫子

Delphi与AutoCAD进行连接（ActiveX），可以开发出很多程序。VB API手册中也详细了讲述了关于VBA开发CAD的方法。但是有些方法并没有实例，比如选择当前画布中所有对象。
　　在我们开发一个小程序的时候，有时候会遇到实时进行修改的情况。如果不进行原对象的删除操作，将在不同参数下出现许多对象。比如我们要获得长度为5的线，但是第一次我们绘制的是长度为10的线，这样在刷新的过程中我们需要将长度为5的线删除。关于单对象的删除，比较简单，在VBA开发文档中有详细的描述。但是对象多的时候，关于选择就是一件繁琐的事情，可能会使你的代码量增加几倍。这样我们需要一次性删除所有对象。
　　关于选择操作，首先我们要在文档中添加一个新的选择集（或者利用先前的选择集）
//样例代码：

1. //样例代码：
   
2. var
   
3.   cad:AcadApplication;
   
4.   ft,FilterData,pointsArray:Variant;
   
5.   Set_Select:AcadSelectionSet;
   
6. begin
   
7.   cad:=GetActiveOleObject('AutoCAD.Application') as AcadApplication;//Createoleobject
   
8.   cad.Visible:=true;
   
9. 
   
10.   Set_Select_Count:=cad.ActiveDocument.selectionSets.count;
    
11.   if Set_Select_Count=0 then Set_Select:=cad.ActiveDocument.SelectionSets.Add('Select_All')
    
12.   else
    
13.     begin
    
14.       for Set_Select_Count:=0 to cad.ActiveDocument.selectionSets.count-1 do //遍历选择集，如果'Select_All'已经存在就不建了。
    
15.     begin
    
16.            if cad.ActiveDocument.selectionSets.Item(Set_Select_Count).Name='Select_All' then
    
17.               Set_Select:=cad.ActiveDocument.SelectionSets.Item(Set_Select_Count)
    
18.          else
    
19.             Set_Select:=cad.ActiveDocument.SelectionSets.Add('Select_All');
    
20.         end;
    
21.     end;
    
22.   ft:= VarArrayCreate([0,0],VT_I2);
    
23.   ft[0]:=100;
    
24.   //ft[1]:=0;
    
25. 
    
26.   FilterData:=VarArrayCreate([0,0],VT_Variant);;
    
27.   //FilterData[0] := '';
    
28.   //FilterData[1] := '';
    
29. 
    
30.   Set_Select.Select(acSelectionSetAll,'', '',ft,FilterData);
    
31.   //Set_Select.Highlight(True);//该代码高亮显示选择的对象
    
32.   //ShowMessage(IntToStr(Set_Select.Count));//该代码将显示选择的对象数
    
33.   Set_Select.Erase; //Erase方法删除选择集中的所有项。选择集仍然存在，但不再包含任何项。原来包含在选择集中的项也不再存在。
    
34. cad.ZoomExtents;
    
35. end;

复制代码

关于全选所有对象，还有另一个办法就是利用SendCommand命令。效果是一样的，大家可以自己建立不同的项目，对比两者之间的差异和效率问题