|
阅读：2336回复：8
求助如何在VB+MO里用相对路径导入CAD图VB编写 我把我写的放上来 希望高手指点 我真的不会~~~ Dim dc As New mapobjects2.DataConnection Dim mlyr As New mapobjects2.MapLayer dc.Database = App.Path ; "\mapdata" dc.Connect Set mlyr.GeoDataset = dc.FindGeoDataset("名字") mlyr.Symbol.Color = moGray mlyr.Symbol.Size = 3 mlyr.Tag = "[CADFILE]" ; dc.Database ; "|" ; mlyr.Name frmIdentify.Map2.Layers.Add mlyr 希望高手指点 我真的不会 [此贴子已经被作者于2005-5-22 1:14:52编辑过] |
|
|
|
1楼#
发布于：2005-05-22 01:19
这是我由加SHP格式的语句改的 但是真的不知道怎么加CAD图|
|
|
|
|
2楼#
发布于：2005-05-22 19:30
没人指点啊~~急啊 |
|
|
|
3楼#
发布于：2005-05-22 20:53
CAD要分开文本、点、线和多边形分别加载的 在数据库的前面分别加上[CADLine],[CADPoint],[ACDText]以及［ACDArea］就可以了 |
|
|
|
4楼#
发布于：2005-05-22 23:54
么子意思？ 我只加线的。。 不需要判断~ 可以详细指点一下吗？
|
|
|
|
5楼#
发布于：2005-05-22 23:57
有高人可以指点的话 加我QQ 85129676 我最近 24小时在线
|
|
|
|
6楼#
发布于：2005-05-23 15:41
高人 出现啊 |
|
|
|
7楼#
发布于：2005-05-24 13:03
顶 等高人指点 |
|
|
|
8楼#
发布于：2005-05-24 19:54
自己搞定了 咳~ |
|
|