Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagedelphi
titleScripting
linenumberstrue
collapsetrue
var
  sItemPath : string;
  sMargin   : string;
begin
  sItemPath := '\Job\Takeoff\Section1';
  sMargin := '50';

  if(ZoomToItem(sItemPath, sMargin) = 1) then
    begin
      // object found and view is now focused around object...
    end
  else
    begin
      // failed: no viewing will be executed...
    end;
end;