...
Procedure: ZoomToItem(sItemPath: string; Marginsize: string); integer;
API Call:
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; |