Shadi64
شنبه 23 آبان 1388, 16:13 عصر
سلام
من توسط برنامه Mapabject خواستم که يک فايل اتوکد با پسوند dwg را mapobject دمايش دهم
Dim dc As New DataConnection
' dc.Database = ReturnDataPath("usa")
dc.Database = ReturnDataPath("Scotland")
If Not dc.Connect Then End
Dim layer As MapLayer
Set layer = New MapLayer
'Set layer.GeoDataset = dc.FindGeoDataset("states")
Set layer.GeoDataset = dc.FindGeoDataset("A1.dwg")
layer.Symbol.Color = moPaleYellow
Map1.Layers.Add layer
ولي error ميدهد
خواهشمندم کمک کنيد!
من توسط برنامه Mapabject خواستم که يک فايل اتوکد با پسوند dwg را mapobject دمايش دهم
Dim dc As New DataConnection
' dc.Database = ReturnDataPath("usa")
dc.Database = ReturnDataPath("Scotland")
If Not dc.Connect Then End
Dim layer As MapLayer
Set layer = New MapLayer
'Set layer.GeoDataset = dc.FindGeoDataset("states")
Set layer.GeoDataset = dc.FindGeoDataset("A1.dwg")
layer.Symbol.Color = moPaleYellow
Map1.Layers.Add layer
ولي error ميدهد
خواهشمندم کمک کنيد!