「LOG_PBH::Term が呼ばれる前に Init が呼ばれた」
以下の様なコードで，PBH::SetDefaultPenBrush() が呼ばれていないと，デバッグウィンドウに表示される．
　　{
　　　　LOGPEN lp ;
　　　　LOGBRUSH lb ;
　　　　PBH::GetHatchPenBrush(pDC,GetPBH(), &lp,&lb) ;
　　　　CPen pen ; pen.CreatePenIndirect(&lp) ;
　　　　CPen* oldPen = pDC->SelectObject(&pen) ;
　　　　CBrush brush ; brush.CreateBrushIndirect(&lb) ;
　　　　CBrush* oldBrush = pDC->SelectObject(&brush) ;
　　　　Parts::Draw(pDC,prj,scale) ;
　　　　pDC->SelectObject(oldPen) ;
　　　　pDC->SelectObject(oldBrush) ;
　　　　PBH::SetDefaultPenBrush() ;
　　　　}

「Class Wizard」－「クラスの追加」－「タイプライブラリから」

InitInstance 内の追加のコード
　　#ifdef _AFXDLL
　　　　Enable3dControls();
　　#else
　　　　Enable3dControlsStatic();
　　#endif
　　{　　//　利用をこのブロックにまとめてます
　　　　AfxOleInit() ;
　　　　IAsPln2D to2D ;
　　　　if (!to2D.CreateDispatch(_T(“PAtoMHD.AsPln2D”))) {
　　　　　　return FALSE ;
　　　　　　}
　　　　CString selFile = to2D.BrowseFile(_T(“.\\*.mhd”),_T(“mhd を選択してください”)) ;
　　　　if (!selFile.IsEmpty()) {
　　　　　　if (to2D.Load(selFile)) {
　　　　　　　　to2D.Save(selFile+_T(“.svg”)) ;
　　　　　　　　}
　　　　　　}
　　　　return FALSE ;
　　　　}
　　CTestDlg dlg;
　　…

#import を利用する方法
　　アプリケーションクラスのソースに
　　　　#import “C:\…\SVG\PAtoMHD\Release\PAtoMHD.tlb”
　　InitInstance に
　　{
　　　　AfxOleInit() ;
　　　　PAtoMHD::IAsPln2DPtr to2D ;
　　　　if (to2D.CreateInstance(__uuidof(PAtoMHD::AsPln2D)) != S_OK) {
　　　　　　return FALSE ;
　　　　　　}
　　　　CString selFile = LPCTSTR(to2D->BrowseFile(_T(“.\\*.mhd”),_T(“mhd を…”))) ;
　　　　if (!selFile.IsEmpty()) {
　　　　　　if (to2D->Load(LPCTSTR(selFile))) {
　　　　　　　　to2D->Save(LPCTSTR(selFile+_T(“.svg”))) ;
　　　　　　　　}
　　　　　　}
　　　　return FALSE ;
　　　　}
CreateInstance の時の PAtoMHD::AsPln2D がわからなかった．
PAtoMHD::IAsPln2D としてしまっていた．

Dr. GUI、コンポーネント、COM、および ATL を使う

2012/04/25 以前の PartsA などの ipx の読込みは，CArchive::ReadString を利用していた．
今回，Parts ファミリのファイルアクセスは，LoadText ，SaveText に置き換える．

ReadString を利用していた時の動作
　　PartsA_C3D::ImportTxt より PartsA::SerializeTxt が呼ばれる．
　　　PACnv3.exe!PartsA::SerializeTxt(CArchive & ar={…}) 行 464
　　　PACnv3.exe!PartsA::Serialize(CArchive & ar={…}) 行 361
　　　PACnv3.exe!PartsA_C3D::ImportTxt(… * pathName) 行 336
　　　PACnv3.exe!PartsA_C3D::Import(… * pathName) 行 137
　　　PACnv3.exe!CPACnv3Doc::OnOpenDocument(… * lpszPathName) 行 177
　　PartsA_C3D::ImportTxt で，exe と ipx の種類により，ReadString で読める形式でコピーする．
　　　FileMBWC.hxx　GetReadTextName により，
　　　　UNICODE.exe の場合，UTF-16 のテキストファイルにコピーする．
　　PartsA::Serialize を呼出す前には，BOM を読み飛ばした位置にポインタがある．
　　　FileMBWC.hxx　SerializeTextBOM(ar) により，UNICODE.exe の場合に飛ばす．
　　* PartsA_C3D を利用してない exe では，形式が異なるファイルは読み出せなかった．
　　　　VxxxxV などの exe は，PartsA::Serialize としているのでこれにあたる．

ReadString を利用しない様にしたので，PartsA_C3D::ImportTxt は，シンプルになった．
　　BOOL PartsA_C3D::ImportTxt (LPCTSTR pathName)
　　{
　　　　if (!PartsA::IsTextFile(pathName))　{　return FALSE ; }
　　　　CString str ;
　　　　if (!::LoadText(pathName,str)) 　 { return FALSE ; }
　　　　return PartsA::ImportTxt(str) ;
　　　　}