For the same shared rendering viewpoint reasons i wrote a crude pair of VectorScripts as a way to exchange view projections. Saview creates a text file that stores the current document viewpoint. ImportView lets you choose a text file from which to import the projection. I then saved these as custom menu commands and added them to my export/import workspace. It is important that the documents exchanging views maintain relative origins, scales, and page setups. Also at the time that I wrote these, was unable to procedurally set the Projection, so the script presents a dialog indicating the current projection and subsequently askes the user to set it manually. I'm going to try to add the pair of scripts below as text, otherwise email me for the plug-ins if you're interested. Also; I use these, they work, I save before I use them, but they're crude and sometimes behave unexpectedly. be careful.
-f
Exporting the view:
code:
Procedure Saview;
{this will create a text file with view orientation and projection}
{© 6/25/2003 frank clementi}
VAR
xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ:REAL;
pv: REAL;
par:STRING;
fileName:STRING;
BEGIN
GetView(xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ);
par:=Concat(xAngleR,' ', yAngelR,' ', zAngleR,' ', offsetX,' ', offsetY,' ', offsetZ);
PutFile('put file','view.txt',fileName);
IF NOT DidCancel THEN
BEGIN
WriteLnMac(par);
DoMenuTextByName('Perspective Chunk',1);
pv:= RealDialog('Enter Perspective Value','9.76');
WriteLnMac(pv);
Close(filename);
END;
END;
RUN(Saview);[/code]
Next Routine: Importing the View
code:
Procedure ImportView;
{this will ask to open a text file created
with the export view command to set the same
projection in the current document}
{© 6/25/2003 frank clementi}
VAR
xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ:REAL;
par:STRING;
fileName:STRING;
pv:REAL;
Pset: BOOLEAN;
BEGIN
GetFile (fileName);
IF NOT DidCancel THEN
BEGIN
Readln(xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ);
SetView(xAngleR, yAngelR, zAngleR, offsetX, offsetY, offsetZ);
Readln(pv);
Pset:=YNDialog(ConCat('Set Perspective to: ',pv,'?'));
IF Pset = TRUE Then
DoMenuTextByName('Perspective Chunk',1);
Close (fileName);
END;
END;
RUN(ImportView); [/code]
