DelphiARX 2000i 实体选择

procedure TDArxDocManager.ArxCmdENTSELECT;
var
  pt1, pt2, pt3, pt4:Tads_point;
  pointlist:Presbuf;
  ssname:Tads_name;
begin
  pt1[X] :=0;
  pt1[Y] :=0;
  pt1[Z] := 0.0;
  pt2[X] :=0; pt2[Y] := 5.0; pt2[Z] := 0.0;

  // Get the current PICKFIRST set, if there is one;
  // otherwise, ask the user for a general entity selection.
  acedSSGet('', nil, nil, nil, ssname);

  // Get the current PICKFIRST set, if there is one.
  acedSSGet('I', nil, nil, nil, ssname);

  // Selects the most recently selected objects.
  acedSSGet('P', nil, nil, nil, ssname);
 
  // Selects the last entity added to the database.
  acedSSGet('L', nil, nil, nil, ssname);
 
  // Selects entity passing through point (5,5).
  acedSSGet('', @pt2, nil, nil, ssname);

  // Selects entities inside the window from (0,0) to (5,5).
  acedSSGet('W', @pt1, @pt2, nil, ssname);
 
  // Selects entities enclosed by the specified polygon.
  pt3[X] := 10.0; pt3[Y] := 5.0; pt3[Z]:= 0.0;
  pt4[X]:= 5.0; pt4[Y]:=0; pt4[Z]:= 0.0;
  pointlist:= acutBuildList([RTPOINT, APosToVar(pt1), RTPOINT, APosToVar(pt2),
    RTPOINT, APosToVar(pt3), RTPOINT, APosToVar(pt4), 0]);
  acedSSGet('WP', pointlist, nil, nil, ssname);
 
  // Selects entities crossing the box from (0,0) to (5,5).
  acedSSGet('C', @pt1, @pt2, nil, ssname);
 
  // Selects entities crossing the specified polygon.
  acedSSGet('CP', pointlist, nil, nil, ssname);
  acutRelRb(pointlist);
 
  // Selects the entities crossed by the specified fence.
  pt4[Y]:= 15.0; pt4[Z]:= 0.0;
  pointlist:= acutBuildList([RTPOINT, APosToVar(pt1), RTPOINT, APosToVar(pt2),
    RTPOINT, APosToVar(pt3), RTPOINT, APosToVar(pt4), 0]);
  acedSSGet('F', pointlist, nil, nil, ssname);
  acutRelRb(pointlist);

end;