MapObjects 2.0 怎么用？(100分)

王

王心惟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-08

• #1

MapObject 2.0 如何用，有没有入门级的例子？
要有：
1.建立新层
2.添加DWG文件（DWG文件，如c:/working/a.dwg）
3.对DWG中不同的层显示不同色彩

？？？
分不够可再加。

 

P

proman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #2

我用的是MapObject2.1，可以用Import ActiveX导入Delphi5中，画到窗体上后双击后可以打开
图层编辑，可以添加图层文件包括＊。Dwg格式的文件。当然也可用程序打开。

 

王

王心惟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-09

• #3

导入我也没问题，
通过ACTIVEX编辑窗口添加层也没问题，
但动态加入层就碰到了困难，
有没有动态生成层的代码？？

 

P

proman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #4

应该可以，我晚上回来再写一段代码给你，现在没时间了。

 

M

milesg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #5

在D6导入MapObject2.0不能用？

 

B

BornKilled

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #6

不要在d6中使用mo了
import进来生成的代码是错的.....................................

 

L

liuwen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-10

• #7

不可能，我们前几天刚用过

 

王

王心惟

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-09-11

• #8

我试过动态生成，可就没成功。
请各位给我一个原代码。

 

L

lilei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #9

用下面一段代码试试：
procedure TForm1.FormShow(Sender: TObject);
var
dc : IMoDataConnection;
layer : IMoMapLayer;
sym : IMoSymbol;
begin
dc := IMoDataConnection(CreateOleObject('MapObjects2.DataConnection'));
dc.database :=Sampl.ReturnDataPath('usa');
if not dc.Connect then exit;

layer := IMoMapLayer(CreateOleObject('MapObjects2.MapLayer'));
layer.GeoDataset :=dc.FindGeoDataSet('States');
sym := layer.symbol;
sym.Color := 13697023;
Map1.Layers.Add(Layer);
end;
TSampl在mo的DELPHI的例子中

 

A

Atomic

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-01

• #10

关注