|
|
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[i]:=selectset.item[i];
end;
regions:=acadDoc.ModelSpace.addregion(vararrayref(s));
end; |
|
置顶卡
