返回控件的数据库对象
[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;