开发:导出数据增加Url

src/Add-on/ExportData.tsx

@@ -4,7 +4,7 @@ import { Vector3 } from 'three';
 import { OBJExporter } from 'three/examples/jsm/exporters/OBJExporter';
 import { begin } from 'xaop';
 import { app } from "../ApplicationServices/Application";
-import { RenderUrl } from "../Common/HostUrl";
+import { RenderUrl, CURRENT_HOST } from "../Common/HostUrl";
 import { KeyBoard } from '../Common/KeyEnum';
 import { Log } from "../Common/Log";
 import { Vector2ApplyMatrix4 } from "../Common/Matrix4Utils";
@@ -88,6 +88,7 @@ export class Command_ExportData implements Command
         if (ssRes.Status !== PromptStatus.OK) return;
         let ents = ssRes.SelectSet.SelectEntityList;
         let d = Entitys2Data(ents);
+        d.Url = CURRENT_HOST;
         let dstr = JSON.stringify(d);
 
         copyTextToClipboard(dstr);