...
Code Block | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
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; |