GIS、Office开发

摘要： 很简单的Word VBA ，本例 替换 "填表日期：2019/12/31" 为 " " Sub test() Dim T Dim doc As Document Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Applicat 阅读全文

摘要： arcpy.env.workspace=r'C:\Users\Administrator\Documents\ArcGIS\Default.gdb' fcLst=arcpy.ListFeatureClasses() for fc in fcLst: print fc+" > "+arcpy.GetC 阅读全文

摘要： Word中删除图片与文本框等shape Sub DeleteShapes() Dim T Dim doc As Document Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(m 阅读全文

摘要： 处理文件，不用FTools for Excel是一种遗憾。 获取FTools for Excel 授权 在【关于软件】窗口点击标题栏钥匙按钮，复制机器码，QQ或Email给作者，获取激活码。 Email：iamyounger@yeah.net 邮件标题：FTools for Excel 授权申请 关 阅读全文

摘要： 给一个伙计写的，实现ArcMap主窗口屏幕伪截图效果。 代码实现的出图是出的数据视图的数据框，实现截图的效果，这得需要明白，布局视图咋搞自己搞， 提供一个思路，不会搞的可以联系博主定制。 import arcpy import os def GetFieldUniqueValue(inTable,i 阅读全文

摘要： 将ArcGIS文档版本批量另存为低版本 'C:\Users\Administrator\Desktop\sample'是文档所在的文件夹 'C:\Users\Administrator\Desktop\out'是输出文件夹，它必须是已经存在的 '9.3'是输出版本，具体的在ArcMap看“另存副本” 阅读全文

摘要： 准备数据： 界线数据dwg、倾斜影像模型 osgb 准备软件： CAD、3DMapper、Excel（vba） 一、导出瓦片范围线 1、打开模型数据 使用3DMapperViewer加载Data下的所有osgb，或者元数据metadata.xml。 2、导出瓦片范围 在3DMapper viewer 阅读全文

摘要： 阅读全文

摘要： %.4f"% !JZDYZB!格式化一个4位小数坐标 "坐标（X:%.4f"% !JZDXZB! +",Y:%.4f"% !JZDYZB! +"），" + !DWSM! 下面遇到其他情况补写。 阅读全文

摘要： 网上一堆写的好烂的，今天重装系统，重装这一堆破烂儿，记录一下。 ①先去注册表找到 计算机\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\VisualStudio 新建一个名为10.0的项 ②创建一个字符串 InstallDir 值为 C:\Pro 阅读全文