GetSlip メソッド

// 間取りオブジェクトへ接続
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 29: // slip
		{
		BSTR szStr = NULL;
		double dXPos, dYPos;
		BSTR szFontName = NULL;
		double dHeight;
		unsigned char byFontAttr, byAlign;
		double dAngle;
		unsigned long ocFontColor;
		unsigned char byLineStyle, byLineWidth;
		unsigned long ocLineColor;
		unsigned char byHatchStyle;
		unsigned long ocForeColor, ocBackColor;
		unsigned short bBackTrans;
		BSTR szPictureName = NULL;
		unsigned short uPictureWidth, uPictureHeight, uPicturePos;
		m_MadoriDoc->GetSlip(&szStr,&dXPos, &dYPos, &szFontName, &dHeight, &byFontAttr, 
			&byAlign, &dAngle, &ocFontColor, &byLineStyle, &byLineWidth, &ocLineColor,
			&byHatchStyle, &ocForeColor, &ocBackColor, &bBackTrans, &szPictureName, 
			&uPictureWidth, &uPictureHeight, &uPicturePos);

		CString strStr, strFontName, strPictureName;
		AfxBSTR2CString(&strStr, szStr);
		AfxBSTR2CString(&strFontName, szFontName);
		AfxBSTR2CString(&strPictureName, szPictureName);
		strMsg.Format(TEXT("slip str[%s]pos[%lf,%lf]font[%s]h[%lf]attr[%x]")
			TEXT("align[%x]ang[%lf]col[%x]lineStyle[%d]width[%d]col[%x]")
			TEXT("hatchStyle[%d]for[%x]back[%x]trans[%d]pic[%s]")
			TEXT("w[%d]h[%d]pos[%u]"),
			strStr, dXPos, dYPos, strFontName, dHeight, byFontAttr, 
			byAlign, dAngle, ocFontColor, byLineStyle, byLineWidth, ocLineColor,
			byHatchStyle, ocForeColor, ocBackColor, bBackTrans, strPictureName, 
			uPictureWidth, uPictureHeight, uPicturePos);
		AfxMessageBox(strMsg);
		if(szStr){
			::SysFreeString(szStr);
		}
		if(szFontName){
			::SysFreeString(szFontName);
		}
		if(szPictureName){
			::SysFreeString(szPictureName);
		}
		}
		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 29: // slip

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

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

		var msg = " Str[" + data.Str + "]\r\n";
		msg += " XPos[" + data.XPos + "]\r\n";
		msg += " YPos[" + data.YPos + "]";
		alert(msg);

		msg = " FontName[" + data.FontName + "]\r\n";
		msg += " Height[" + data.Height + "]\r\n";
		msg += " FontAttr[" + data.FontAttr + "]";
		alert(msg);

		msg = " Align[" + data.Align + "]\r\n";
		msg += " Angle[" + data.Angle + "]\r\n";
		msg += " FontColor[" + data.FontColor + "]";
		alert(msg);

		msg = " LineStyle[" + data.LineStyle + "]\r\n";
		msg += " LineWidth[" + data.LineWidth + "]\r\n";
		msg += " LineColor[" + data.LineColor + "]";
		alert(msg);

		msg = " HatchStyle[" + data.HatchStyle + "]\r\n";
		msg += " ForeColor[" + data.ForeColor + "]\r\n";
		msg += " BackColor[" + data.BackColor + "]";
		alert(msg);

		msg = " BackTrans[" + data.BackTrans + "]\r\n";
		msg += " PictureName[" + data.PictureName + "]\r\n";
		msg += " PictureWidth[" + data.PictureWidth + "]\r\n";
		msg += " PictureHeight[" + data.PictureHeight + "]\r\n";
		msg += " PicturePos[" + data.PicturePos + "]";
		alert(msg);

		break;
	}

	lRet = doc.GetNextObject();
}