admin 管理员组

文章数量: 1184232

shp文件转换到CAD dwg,dxf

 ''' <summary>
    ''' Features 转换到CAD文件
    ''' </summary>
    ''' <param name="in_features">输入文件路径</param>
    ''' <param name="Output_File">输出文件路径</param>
    ''' <param name="Output_Type">输出类型</param>
    ''' <param name="Ignore_FileNames"></param>
    ''' <remarks></remarks>
    Public Sub feature2CAD(ByVal in_features As String, ByVal Output_File As String, Optional ByRef Ignore_FileNames As Boolean = True)

        Try
            Dim gp As ESRI.ArcGIS.Geoprocessor.Geoprocessor = New ESRI.ArcGIS.Geoprocessor.Geoprocessor()
            Dim pExptoCAD As ExportCAD = New ExportCAD()

            pExptoCAD.in_features = in_features


            pExptoCAD.Output_File = Output_File
            pExptoCAD.Output_Type = "DWG_R2004" 

 

           pExptoCAD.Append_To_Existing = True
            pExptoCAD.Ignore_FileNames = True

            Dim result As IGeoProcessorResult
            result = gp.Execute(pExptoCAD, Nothing)


            If result Is Nothing Then
                MsgBox("转换失败，请检查参数是否正确！")
            Else
                If result.Status = esriJobStatus.esriJobSucceeded Then
                    MsgBox("文件生成成功！")
                End If
            End If

        Catch ex As Exception
            MsgBox(ex.Message + "转换失败，请检查参数是否正确！")
        End Try
    End Sub

 

本文标签： shp文件转换到CAD dwg dxf

版权声明：本文标题：shp文件转换到CAD dwg,dxf 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1688023369a169978.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。