Исходный текст

//---------------------------------------------------------
// Интеграция с PlanTracer.
// Запускает PlanTracer.
//---------------------------------------------------------

// получить утилиты
CComPtr<ITDMSUtility> pUtility;
CheckError(pApp->get_Utility(&pUtility));

// запустить любую версию PlanTracer под текущей версией AutoCAD
CComPtr<ITDMSAcad> pAcad;
VARIANT varPTName, varAcadName;
varPTName.vt = VT_EMPTY;
varAcadName.vt = VT_EMPTY;
CheckError(pUtility->StartPlanTracer(varPTName, varAcadName, &pAcad));

// запустить PlanTracer for ADT
CComPtr<ITDMSAcad> pAcad;
VARIANT varPTName, varAcadName;
varPTName.vt = VT_BSTR;
varPTName.bstrVal = A2BSTR("PlanTracerADT");
varAcadName.vt = VT_EMPTY;
CheckError(pUtility->StartPlanTracer(varPTName, varAcadName, &pAcad));
SysFreeString(varPTName.bstrVal);

// запустить PlanTracer 1.2 for ADT 2004
CComPtr<ITDMSAcad> pAcad;
VARIANT varPTName, varAcadName;
varPTName.vt = VT_BSTR;
varPTName.bstrVal = A2BSTR("PlanTracerADT 1.2");
varAcadName.vt = VT_BSTR;
varAcadName.bstrVal = A2BSTR("Autodesk Architectural Desktop 2004");
CheckError(pUtility->StartPlanTracer(varPTName, varAcadName, &pAcad));
SysFreeString(varPTName.bstrVal);
SysFreeString(varAcadName.bstrVal);