摘要：
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 & .. 阅读全文
2013年12月24日
摘要：
onbeforeunload事件 它是这样用的： 1 9 10 这样每次关闭浏览器窗口或涮新页面时，都要触发onbeforeunload这个事件。http://www.surfchen.org/?p=54摘抄如下：onbeforeunload事件：注：三大主流浏览器中firefox和IE都支持onbeforeunload事件,opera尚未支持。用法：object.onbeforeunload = handler 描述： 事件触发的时候弹出一个有确定和取消的对话框，确定则离开页面，取消则继续待在本页。 handler可以设一个返回值作为该对话框的显示文本。触发于：关闭浏览器窗口 通过... 阅读全文
