返回控件的数据库对象
[id(22), helpstring("method GetDatabase")]
IDispatch* GetDatabase();例如: Delphi中使用例子
procedure TForm1.DoInsertFlagClick();
var
curDababase : IMxDrawDatabase;
pObj : IMxDrawMcDbObject;
begin
curDababase := IMxDrawDatabase(MxDrawX1.GetDatabase() );
if curDababase = nil then
EXIT;
pObj := curDababase.ObjectIdToObject(lId);例如: VB
Dim database As MxDrawDatabase
Set database = MxDrawX1.GetDatabase()例如: VC
IDispatchPtr spDispatch(m_ocx.GetDatabase(),false); IMxDrawDatabasePtr spDatabase; spDispatch->QueryInterface(&spDatabase); if(spDatabase == NULL) return;