GetUsage メソッド

// 間取りオブジェクトへ接続
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 63: // usage
		{
		VARIANT vVertex;
		vVertex.vt = VT_R8 | VT_ARRAY;
		vVertex.parray = NULL;

		long uUsage, bBoka, bKado, bAbsHeightSw, bRoadObliqSw, bNorthObliqSw, bNeighborObliqSw;
		long bHLObliqSw, nHLType, nHLRoad, bHLUserDefine, bShadowSw, bHokkaido;

		double dKenpei, dKenpeiMax, dYoseki, dYosekiMax, dAbsHeight;
		double dRoadObliqSlope, dRoadObliqInfluence, dNorthObliqHeight, dNorthObliqSlope;
		double dNeighborObliqHeight, dNeighborObliqSlope, h1, k1, h2, k2, h3;
		double dShadowHeight, dShadowTime1, dShadowTime2, dLatitude, dLongitude;

		BSTR szHLName = NULL;
		BSTR szHLRemark = NULL;

		m_MadoriDoc->GetUsage(&vVertex, &uUsage, &dKenpei, &bBoka, &bKado,
     		&dKenpeiMax, &dYoseki, &dYosekiMax, &bAbsHeightSw, &dAbsHeight,
     		&bRoadObliqSw, &dRoadObliqSlope, &dRoadObliqInfluence,
     		&bNorthObliqSw, &dNorthObliqHeight, &dNorthObliqSlope,
     		&bNeighborObliqSw, &dNeighborObliqHeight, &dNeighborObliqSlope,
     		&bHLObliqSw, &szHLName, &nHLType, &nHLRoad,
     		&h1, &k1, &h2, &k2, &h3, &bHLUserDefine, &szHLRemark,
     		&bShadowSw, &dShadowHeight, &dShadowTime1, &dShadowTime2,
     		&bHokkaido, &dLatitude, &dLongitude);
		ULONG uVertex = 0;
		if(vVertex.parray){
			uVertex = vVertex.parray->rgsabound[0].cElements;
		}
		CString strHLName;
		AfxBSTR2CString(&strHLName, szHLName);
		CString strHLRemark;
		AfxBSTR2CString(&strHLRemark, szHLRemark);

		strMsg.Format(TEXT("Usage vertex[%d]usage[%d]"), uVertex, uUsage);
		AfxMessageBox(strMsg);
		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);
		if(szHLName) ::SysFreeString(szHLName);
		if(szHLRemark) ::SysFreeString(szHLRemark);
		}
		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 63: // usage

		var data = eval( doc.GetUsageJS() );

		var msg = " Result[" + data.Result + "]";
		alert(msg);

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

		var msg =	" Kenpei[" + data.Kenpei + "]\n" +
					" Boka[" + data.Boka + "]\n" +
					" Kado[" + data.Kado + "]\n" +
					" KenpeiMax[" + data.KenpeiMax + "]\n" +
					" Yoseki[" + data.Yoseki + "]\n" +
					" YosekiMax[" + data.YosekiMax + "]";
		alert(msg);

		msg 	=	" AbsHeightSw[" + data.AbsHeightSw + "]\n" +
					" AbsHeight[" + data.AbsHeight + "]\n" +
					" RoadObliqSw[" + data.RoadObliqSw + "]\n" +
					" RoadObliqSlope[" + data.RoadObliqSlope + "]\n" +
					" RoadObliqInfluence[" + data.RoadObliqInfluence + "]";
		alert(msg);

		msg 	=	" NorthObliqSw[" + data.NorthObliqSw + "]\n" +
					" NorthObliqHeight[" + data.NorthObliqHeight + "]\n" +
					" NorthObliqSlope[" + data.NorthObliqSlope + "]\n" +
					" NeighborObliqSw[" + data.NeighborObliqSw + "]\n" +
					" NeighborObliqHeight[" + data.NeighborObliqHeight + "]\n" +
					" NeighborObliqSlope[" + data.NeighborObliqSlope + "]";
		alert(msg);

		msg 	=	" HLObliqSw[" + data.HLObliqSw + "]\n" +
					" HLName[" + data.HLName + "]\n" +
					" HLType[" + data.HLType + "]\n" +
					" HLRoad[" + data.HLRoad + "]\n" +
					" H1[" + data.H1 + "]\n" +
					" K1[" + data.K1 + "]\n" +
					" H2[" + data.H2 + "]\n" +
					" K2[" + data.K2 + "]\n" +
					" H3[" + data.H3 + "]\n" +
					" HLUserDefine[" + data.HLUserDefine + "]\n" +
					" HLRemark[" + data.HLRemark + "]";
		alert(msg);

		msg 	=	" ShadowSw[" + data.ShadowSw + "]\n" +
					" ShadowHeight[" + data.ShadowHeight + "]\n" +
					" ShadowTime1[" + data.ShadowTime1 + "]\n" +
					" ShadowTime2[" + data.ShadowTime2 + "]\n" +
					" Hokkaido[" + data.Hokkaido + "]\n" +
					" Latitude[" + data.Latitude + "]\n" +
					" Longitude[" + data.Longitude + "]";
		alert(msg);

		break;
	}

	lRet = doc.GetNextObject();
}