|
阅读：3582回复：7
[求助]如何将cad文件转换成shp文件
*.dwg文件如何转换成*.shp文件？
|
|
|
|
1楼#
发布于：2004-09-20 09:11
用Mo有个方法可以导出的。
|
|
|
|
2楼#
发布于：2004-09-20 18:47
可不可以说的具体点 是什么方法，怎么实现
|
|
|
|
3楼#
发布于：2004-09-20 23:30
<P>Dim dc As MapObjects2.DataConnection
Dim lyr As MapObjects2.MapLayer Dim rs As MapObjects2.Recordset</P><P>Private Sub Command1_Click() Set rs = lyr.Records rs.Export "d:\Parcels.shp" End Sub</P><P>Private Sub Form_Load() Set dc = New DataConnection Set lyr = New MapLayer dc.Database = "[CADLine]" ; "D:\arcgis\ArcTutor\Editor\ExerciseData\EditingCAD" dc.Connect Set lyr.GeoDataset = dc.FindGeoDataset("Parcels.dwg") Map1.Layers.Add lyr End Sub</P> |
|
|
4楼#
发布于：2004-09-20 23:35
上边代码可以完成你的要求
|
|
|
5楼#
发布于：2004-09-21 08:47
是也是也！楼上的代码很好。
|
|
|
|
6楼#
发布于：2004-09-21 18:02
直接用arcinfo中的arctoolbox就能做了.
|
|
|
7楼#
发布于：2004-11-08 17:46
但是CAD图形上的汉字和数字好像转不成功
|
|