GetRoom2 メソッド

// 間取りオブジェクトへ接続
CMadoriDoc * m_MadoriDoc = new CMadoriDoc();
CLSIDFromProgID (L"MyHomeDesignerMadori.MadoriDoc", &clsid);
GetActiveObject (clsid, NULL, &pUnk);
pUnk->QueryInterface (IID_IDispatch, (void**)(&pDisp));
m_MadoriDoc->AttachDispatch (pDisp);

// 列挙する
long lRet = m_MadoriDoc->GetTopObject();
if(lRet == 0) AfxMessageBox(TEXT("何もない"));

while(lRet){
	ULONG uType = m_MadoriDoc->GetCurrentObjectType();
	short nLayer = m_MadoriDoc->GetCurrentObjectLayer();
	CString strMsg;
	strMsg.Format(TEXT("[%X]type[%d]layer[%d]"), lRet, uType,nLayer);
	AfxMessageBox(strMsg);

	switch(uType){
	case 19: // room
		{
		VARIANT vVertex;
		vVertex.vt = VT_R8 | VT_ARRAY;
		vVertex.parray = NULL;
		long uRoomType;
		BSTR szRoomName = NULL;
		long bDispRoomName, bDispRoomSize;
		double dFloorHeight, dCeilingHeight, dHabakiHeight, dKoshiHeight, dMawaribuchiHeight, dKoshiMikiriHeight, dBalconyHeight;
		long bHabaki, bMawaribuchi, bKoshikabe, bKoshiMikiri, bRoofFlag;
		BYTE byHatchStyle;
		unsigned long ocForeColor, ocBackColor;
		long bBackTrans, uTatamiType;
		BSTR szFontName = NULL;
		double dFontSize;
		BYTE byFontAttr;
		double dFontAngle;
		unsigned long ocFontColor;
		long bCalcFloorArea;
		long bExteriorFlag;
		long nMoldingPattern;
		long bCasing;
		double dCasingThickness;
		long bInsideMeasure;
		BSTR szBalconyDesignFilePath = NULL;

		m_MadoriDoc->GetRoom2(&vVertex, &uRoomType, &szRoomName, &bDispRoomName, &bDispRoomSize, &dFloorHeight, 
			&dCeilingHeight, &dHabakiHeight, &dKoshiHeight, &dMawaribuchiHeight, &dKoshiMikiriHeight, 
			&dBalconyHeight, &bHabaki, &bMawaribuchi, &bKoshikabe, &bKoshiMikiri, &bRoofFlag, &byHatchStyle, 
			&ocForeColor, &ocBackColor, &bBackTrans, &uTatamiType, &szFontName, &dFontSize, &byFontAttr, 
			&dFontAngle, &ocFontColor,
			&bCalcFloorArea, &bExteriorFlag,
			&nMoldingPattern, &bCasing, &dCasingThickness, &bInsideMeasure,
			&szBalconyDesignFilePath);

		CString strRoomName, strFontName, strBalconyDesignFilePath;
		AfxBSTR2CString(&strRoomName, szRoomName);
		AfxBSTR2CString(&strFontName, szFontName);
		AfxBSTR2CString(&strBalconyDesignFilePath, szBalconyDesignFilePath);

		strMsg.Format(TEXT("Room type[%u]name[%s]disp[%u][%u]floorHeight[%lf]\r\n")
			TEXT("Ceiling[%lf]habaki[%lf]koshi[%lf]\r\n")
			TEXT("mawa[%lf]mikiri[%lf]bal[%lf]bHabaki[%u]bMawa[%u]bKosi[%u]bKosiM[%u]bRoof[%u]hatch[%d]\r\n")
			TEXT("forCol[%x]backCol[%x]back[%u]tatami[%u]font[%s]size[%lf]attr[%x]angle[%lf]col[%x]\r\n")
			TEXT("CalcArea[%d]Exterior[%d]\r\n")
			TEXT("Molding[%d]Casing[%d]cThick[%d]Inside[%d]\r\n")
			TEXT("Bal[%s]"),
			uRoomType, strRoomName, bDispRoomName, bDispRoomSize, dFloorHeight, 
			dCeilingHeight, dHabakiHeight, dKoshiHeight, 
			dMawaribuchiHeight, dKoshiMikiriHeight, 
			dBalconyHeight, bHabaki, bMawaribuchi, bKoshikabe, bKoshiMikiri, bRoofFlag, byHatchStyle, 
			ocForeColor, ocBackColor, bBackTrans, uTatamiType, strFontName, dFontSize, byFontAttr, 
			dFontAngle, ocFontColor,
			bCalcFloorArea, bExteriorFlag,
			nMoldingPattern, bCasing, dCasingThickness, bInsideMeasure,
			strBalconyDesignFilePath);
		AfxMessageBox(strMsg);
		if(szRoomName){
			::SysFreeString(szRoomName);
		}
		if(szFontName){
			::SysFreeString(szFontName);
		}
		if(szBalconyDesignFilePath){
			::SysFreeString(szBalconyDesignFilePath);
		}
		ULONG uVertex = 0;
		if(vVertex.parray){
			uVertex = vVertex.parray->rgsabound[0].cElements;
		}
		if(uVertex > 0){
			double * pVar;
			SafeArrayAccessData(vVertex.parray, (void**)&pVar);
			for(ULONG u = 0; u < uVertex; u+=2){
				strMsg.Format(TEXT("Vertex %u[%lf,%lf]"), u/2, pVar[u], pVar[u+1]);
				AfxMessageBox(strMsg);
			}
			SafeArrayUnaccessData(vVertex.parray);
		}
		if(vVertex.parray) SafeArrayDestroy(vVertex.parray);
		}
		break;
	}
	lRet = m_MadoriDoc->GetNextObject();
}

// JavaScript sample
var doc = new CMadoriDoc();
var lRet = doc.GetTopObject();

while(lRet){
	var uType =doc.GetCurrentObjectType();
	alert(uType);
	switch (uType){
	case 19: // room
		var data = eval( doc.GetRoom2JS() );

		alert( "Result[" + data.Result + "]" );

		alert( data.Vertex.length );
		for( var i=0 ; i < data.Vertex.length ; i++ ){
			alert( "Vertex:[" + data.Vertex[i] + "]" );
		}

		alert( data.RoomType );
		alert( data.RoomName );
		alert( data.DispRoomName );
		alert( data.DispRoomSize );
		alert( data.FloorHeight );
		alert( data.CeilingHeight );
		alert( data.HabakiHeight );
		alert( data.KoshiHeight );
		alert( data.BalconyHeight );
		alert( data.KoshiMikiriHeight );
		alert( data.Habaki );
		alert( data.Mawaribuchi );
		alert( data.Koshikabe );
		alert( data.KoshiMikiri );
		alert( data.RoofFlag );
		alert( data.HatchStyle );
		alert( data.ForeColor );
		alert( data.BackColor );
		alert( data.BackTrans );
		alert( data.TatamiType );
		alert( data.FontName );
		alert( data.FontSize );
		alert( data.FontAttr );
		alert( data.FontAngle );
		alert( data.FontColor );
		alert( data.CalcFloorArea);
		alert( data.ExteriorFlag);
		alert( data.MoldingPattern);
		alert( data.Casing);
		alert( data.CasingThickness);
		alert( data.InsideMeasure);
		alert( data.BalconyDesignFilePath);
		break;
	}

	lRet = doc.GetNextObject();
}