摘要:Dim files, path, filename path = ThisDrawing.Utility.GetString(True, "输入dwg文件所在路径:") 'dwg文件路径 If path = "" Then Return files = Dir(path & "*.dwg") Dim text As AcadText Do While files "" '打开dwg文件 ThisDrawing.Application.Documents.Open (path & ..
阅读全文
摘要:onbeforeunload事件 它是这样用的: 1 9 10 这样每次关闭浏览器窗口或涮新页面时,都要触发onbeforeunload这个事件。http://www.surfchen.org/?p=54摘抄如下:onbeforeunload事件:注:三大主流浏览器中firefox和IE都支持onbeforeunload事件,opera尚未支持。用法:object.onbeforeunload = handler 描述: 事件触发的时候弹出一个有确定和取消的对话框,确定则离开页面,取消则继续待在本页。 handler可以设一个返回值作为该对话框的显示文本。触发于:关闭浏览器窗口 通过...
阅读全文
摘要:本文以arcgis_js_v36_api为例,且安装的是IIS Web服务器1.下载最新的ArcGIS for JS api 包,可在Esri中国社区或者Esri官网下载2.下载后解压3.将解压后的文件夹拷贝至Web服务器根目录C:\inetpub\wwwroot文件夹下4.修改文件arcgis_js_v36_api\arcgis_js_api\library\3.6\3.6\init.js和arcgis_js_v36_api\arcgis_js_api\library\3.6\3.6\js\dojo\dojo\doj.js中的 [HOSTNAME_AND_PATH_TO_JSAPI]为loc
阅读全文