在学校,我必须创建一个API,在其中我需要一些几何在一个shapefile中。我使用geotools librairie打开shapefile。这是我的代码:
public class main {
public static void main(String[] args) throws Exception{
String filepath = "SHP_test/testSHPindex.shp";
File shp = new File(filepath);
Map<String, URL> map
我有以下VBA脚本,用于替换特定Visio文档中所有超链接中的地址。(将%20替换为空白空间,以允许链接在Chrome/Firefox中工作。)
Sub ChangeHyperlinks() ' change all hyperlinks on all shapes on all pages that start with
' "%20" to start with " "
Dim pg As Page
Dim shp As Shape
Dim hl As Hyperlink
For Each
当我在工作表1的单元格A1中写东西时,我有一个宏在工作表2中创建一个文本框,当我删除该值时,它会删除textbox。我想对几个细胞这样做,但它只是起作用了。如果单元格A1有一个值--应该显示带有该值的textbox,如果A2有一个值,则应该显示带有该值的textbox,但如果我删除A1,则应该删除引用A1的文本框,而不是所有文本框。
Sub RemoveShapes()
Dim shp As Shape
For Each shp In Worksheets(2).Shapes
If shp.Type = msoTextBox Then shp.Delete
with NamedTemporaryFile(suffix='.shp').name as tmp_shp:
df.to_file(tmp_shp)
在上面的代码中,我得到了以下错误:
AttributeError: __enter__
如何使用with语句使用命名临时文件?由于tmp_shp只是一条路径,它是否仍然可以在with之外使用?
// My type
val typeBuilder = new SimpleFeatureTypeBuilder()
typeBuilder.setName("line-query-seg")
typeBuilder.add("value", classOf[Double])
typeBuilder.setDefaultGeometry("the_geom")
typeBuilder.add("the_geom", classOf[LineString])
val sft = typeBuilder.buildFeatureTy
我想将文本添加到文件名的末尾,但在扩展名之前。现在我在努力,
for f in *.shp; do echo $f_poly; done
输出是,
Quercus_acutifolia.shp_poly
Quercus_agrifolia.shp_poly
Quercus_corrugata.shp_poly
Quercus_cortesii.shp_poly
Quercus_costaricensis.shp_poly
Quercus_havardii.shp_poly
Quercus_hemisphaerica.shp_poly
Quercus_kelloggii.shp_poly
Que
我想在PowerPoint中增加两个形状之间的间距。
每次运行时,形状之间的垂直空间都需要增加。我无法做到这一点。
Sub Increase_Vertical_Spacing2()
Dim Shp As Shape
Dim Height_Shp As Double
Dim Top_Shp As Double
Dim left_Shp As Double
Dim Space_Shp As Double
Dim Space_incremental As Double
Space_incremental = 5 + 1
Di
我想把两个.shp文件转换成一个数据库,这样我就可以一起绘制地图了。
另外,有没有办法把.shp文件转换成.csv文件呢?我希望能够个性化和添加一些数据,这对我来说在.csv格式下更容易。我的想法是,如果要在地图上添加叠加产量数据和降水量数据。
这是和的shapefile。
绘制这两个文件的代码:
# This is code for mapping of CGE_Morocco results
# Loading administrative coordinates for Morocco maps
library(sp)
library(maptools)
library(mapdata
我试图通过两个条件过滤一个文件列表。下面的代码起作用
import java.io.File
val d = new File("/home/loom/shp")
val dirList = d.listFiles.filter(_.isDirectory).toList
dirList.map({
_.listFiles.filter(f => f.isFile).filter(f => f.getName.endsWith("shp")).toList.map(println)
// !! Inducde an error
我构建了以下代码:
Sub Metrics()
Application.CutCopyMode = False
Application.ScreenUpdating = False
Dim pptapp As Object
Dim wholeppt As Object
Dim sld As Object
Dim rng As Object
Dim shp As Object
Dim x As Integer
Set pptapp = GetObject(class:="PowerPoint.Ap
我正在尝试选择幻灯片1中提供的所有对象(形状)并对其进行分组。
我想从形状的选择中排除标题和表格。
我还想排除包含文本“Source”的形状。
我在“取消选择”时遇到错误。
Sub Selectunselect()
Dim Shp As Shape
Dim curSlide As Long
ActivePresentation.Slides(1).Shapes.SelectAll
For Each Shp In ActiveWindow.Selection.ShapeRange
If Shp.HasTable Then
Shp.Unselect
End I
我做演示用背景抹布,这是流程图过程中的形状,文字"wipey“表示黄色抹布,"wipeb”表示蓝色抹布。当我制作训练幻灯片的动画时,我把纸巾放在前面,用0.75的透明度。一旦擦拭动画顺序是正确的,并正确放置,我移动擦拭后的文字0透明度。我的Wipe_Back宏工作正常,但是每次调用它时,我的Wipe_Front宏只得到一些擦除。为了让所有的形状都向前移动,我不得不多次调用它。宏几乎是相同的,所以我不知道我做错了什么,但我是一个VBA新手!这两个宏如下所示,我也愿意听取关于代码中更优雅的实践的建议。
Wipe_Back (似乎有效):
Sub Wipe_Back()
Dim