GetRoof2　メソッド

// 間取りオブジェクトへ接続
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 24: // roof
		{
		VARIANT vVertex;
		vVertex.vt = VT_R8 | VT_ARRAY;
		vVertex.parray = NULL;
		double dTangent, dHeight, dOverhang, dCeilingDepth;
		unsigned short bShrink;
		unsigned int uEavesStyle;
		double dEavesThick;
		unsigned short uEavesHanakakushiStyle, uRidgeTileStyle;
		unsigned short uParapetRisingEdge, uParapetFallingEdge, uEavesOutForFla;

		m_MadoriDoc->GetRoof2(&vVertex, &dTangent, &dHeight, &dOverhang,
			&dCeilingDepth, &bShrink, &uEavesStyle, &dEavesThick,
			&uEavesHanakakushiStyle, &uRidgeTileStyle, &uParapetRisingEdge, 
			&uParapetFallingEdge, &uEavesOutForFlat);

		ULONG uVertex = 0;
		if(vVertex.parray){
			uVertex = vVertex.parray->rgsabound[0].cElements;
		}
		strMsg.Format(TEXT("roof tan[%lf]h[%lf]over[%lf]depth[%lf]shrink[%u]estyle[%u]")
			TEXT("thick[%lf]hana[%u]rtstyle[%u]rising[%u]falling[%u]outforflat[%u]"), 
			dTangent, dHeight, dOverhang, dCeilingDepth, bShrink,
			uEavesStyle, dEavesThick, uEavesHanakakushiStyle, uRidgeTileStyle
			uParapetRisingEdge, uParapetFallingEdge, uEavesOutForFlat);
		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);
		}
		break;
	}
	lRet = m_MadoriDoc->GetNextObject();
}

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

while(lRet){
	var uType =doc.GetCurrentObjectType();
	alert(uType);
	if(uType == 24)
	{
		doc.Select();
		var data = eval( doc.GetRoof2JS() );

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

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

		var msg = " Tangent[" + data.Tangent + "]\r\n";

		 msg += " Height[" + data.Height + "]\r\n";

		 msg += " Overhang[" + data.Overhang + "]\r\n";

		 msg += " CeilingDepth[" + data.CeilingDepth + "]\r\n";

		 msg += " Shrink[" + data.Shrink + "]\r\n";

		 msg += " EavesStyle[" + data.EavesStyle + "]\r\n";

		 msg += " EavesThick[" + data.EavesThick + "]\r\n";

		 msg += " EavesHanakakushiStyle[" + data.EavesHanakakushiStyle + "]\r\n";

		 msg += " RidgeTileStyle[" + data.RidgeTileStyle + "]\r\n";

		 msg += " ParapetRisingEdge[" + data.ParapetRisingEdge + "]\r\n";

		 msg += " ParapetFallingEdge[" + data.ParapetFallingEdge + "]\r\n";

		 msg += " EavesOutForFlat[" + data.EavesOutForFlat + "]\r\n";

		alert(msg);
		doc.Unselect();
		
	}
	lRet = doc.GetNextObject();
}