[资料] Delphi开发AutoCAD之选择并删除对象
Delphi与AutoCAD进行连接（ActiveX），可以开发出很多程序。VB API手册中也详细了讲述了关于VBA开发CAD的方法。但是有些方法并没有实例，比如选择当前画布中所有对象。在我们开发一个小程序的时候，有时候会遇到实时进行修改的情况。如果不进行原对象的删除操作，将在不同参数下出现许多对象。比如我们要获得长度为5的线，但是第一次我们绘制的是长度为10的线，这样在刷新的过程中我们需要将长度为5的线删除。关于单对象的删除，比较简单，在VBA开发文档中有详细的描述。但是对象多的时候，关于选择就是一件繁琐的事情，可能会使你的代码量增加几倍。这样我们需要一次性删除所有对象。
关于选择操作，首先我们要在文档中添加一个新的选择集（或者利用先前的选择集）
//样例代码： //样例代码：
var
cad:AcadApplication;
ft,FilterData,pointsArray:Variant;
Set_Select:AcadSelectionSet;
begin
cad:=GetActiveOleObject('AutoCAD.Application') as AcadApplication;//Createoleobject
cad.Visible:=true;
Set_Select_Count:=cad.ActiveDocument.selectionSets.count;
if Set_Select_Count=0 then Set_Select:=cad.ActiveDocument.SelectionSets.Add('Select_All')
else
begin
for Set_Select_Count:=0 to cad.ActiveDocument.selectionSets.count-1 do //遍历选择集，如果'Select_All'已经存在就不建了。
begin
if cad.ActiveDocument.selectionSets.Item(Set_Select_Count).Name='Select_All' then
Set_Select:=cad.ActiveDocument.SelectionSets.Item(Set_Select_Count)
else
Set_Select:=cad.ActiveDocument.SelectionSets.Add('Select_All');
end;
end;
ft:= VarArrayCreate(,VT_I2);
ft:=100;
//ft:=0;
FilterData:=VarArrayCreate(,VT_Variant);;
//FilterData := '';
//FilterData := '';
Set_Select.Select(acSelectionSetAll,'', '',ft,FilterData);
//Set_Select.Highlight(True);//该代码高亮显示选择的对象
//ShowMessage(IntToStr(Set_Select.Count));//该代码将显示选择的对象数
Set_Select.Erase; //Erase方法删除选择集中的所有项。选择集仍然存在，但不再包含任何项。原来包含在选择集中的项也不再存在。
cad.ZoomExtents;
end; 关于全选所有对象，还有另一个办法就是利用SendCommand命令。效果是一样的，大家可以自己建立不同的项目，对比两者之间的差异和效率问题
页:
[1]