通过选择集选中的实体来面域代码出错
delphi 代码运行的时候提示找不到成员，麻烦大家帮我看看那里的问题！！！procedure TForm1.btn2Click(Sender: TObject);
begin
dlgOpen1.Execute;
acadapp.documents.open(dlgOpen1.FileName);
end;
procedure TForm1.btn3Click(Sender: TObject);
var
selectset ,regions,s: Variant;
i:Integer;
begin
selectSet := acadDoc.selectionSets.add('newselect');
selectset.select(acselectionsetall);
lbl1.Caption := '共选择了'+inttostr(selectset.count);
for i:=0 to selectset.count-1 do
begin
s:=selectset.item;
end;
regions:=acadDoc.ModelSpace.addregion(vararrayref(s));
end;
页:
[1]