Here's a simple script that converts 3D loci to stakes in place. Even easier than exporting/importing. Cut and paste this into your document as a document script, or just save this script as a text file, and use Import VectorScript to run it:
{==========BEGIN VECTORSCRIPT=========}PROCEDURE ConvertLoci2Stakes;VAR DeleteLoci:BOOLEAN; LName:STRING;
PROCEDURE DrawStakeAt3dLocus(h:HANDLE);VAR x,y,z:REAL; Hstake:HANDLE; BEGIN Get3DCntr(h,x,y,z); Hstake:= createcustomobject('Stake Object',x,y,0.0); Move3DObj(Hstake,0.0,0.0,z); END;
BEGINLName := GetLName(actlayer);DeleteLoci :=YNDialog('Do you wish to delete the source loci?');ForEachObject(DrawStakeAt3dLocus,((L = LName) AND (t = Locus3D)));IF DeleteLoci THEN ForEachObject(DelObject,((L = LName) AND (t = Locus3D)));END;RUN(ConvertLoci2Stakes);
{===========END VECTORSCRIPT==========}