201702

20170209

(本文链接: Windows10下面安装ArcGIS10.3.1的问题记录)

在Windows10下面安装ArcGIS 10.3.1，会提示需要 .net framework 3.5 sp1或更高版本。一般情况下，可以直接下载 .net framework 3.5 sp1，但是在Windows10中，可以有更方便的处理方法。

按“WIN+X”组合键调出系统控制命令菜单，选择“程序和功能”；
点击左边栏的“启用或关闭windows 功能”，选择需要关闭或者开启的功能。这里勾选第一项，.net framework 3.5
点击确定后，会有一段时间搜索对应的文件，然后会进行安装。

安装完成后，不必重启系统，再安装ArcGIS即可。

MAPGIS6.7无法卸载：因为安装后没有打开狗，因此日志文件不全导致无法卸载。如果想用MAPGIS，需要找个破解狗

，运行之后再开软件就能用了。另如果不想用而要卸载就用第三方软件强行卸载。然后把C盘的MAPGIS文件夹删除掉。

20170213

点击full extent 时地图数据缩放到很小，原因：存在空图层或图层存在图幅外多余数据，移除/删掉就可以了。

20170214

winform窗体运行效果和设计有偏差，调整显示器分辨率到100%即可。

20170214

快速将多个EXCEL中的所有SHEET放在同一个EXCEL中不同SHEET？

网上搜到的办法，超好用！
将这些文件copy到一个文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，把Sheet1起名”空表“，其他Sheet删除。也存到该文件夹。仅打开该新Excel，按Alt+F11，点菜单的插入，模块，粘贴如下代码：

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & ""
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
i = 1
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
activesheet.name ="Sheet" & i
i = i +1
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

点菜单上面的播放按钮，文件copy完成