获取AutoCAD路径

获取AutoCAD路径

CString CUtility::GetAcadPath()
{
	TCHAR szpath[MAX_PATH]={0};
	::GetModuleFileName(NULL,szpath,MAX_PATH);
	CString	directory = szpath;
	directory = directory.Left(directory.ReverseFind(_T('\\')));
	return directory;
}

获取xxx.arx路径

CString CUtility::GetARXPath()
{
	TCHAR szpath[MAX_PATH]={0};
	::GetModuleFileName(_hdllInstance,szpath,MAX_PATH);
	CString	directory = szpath;
	directory = directory.Left(directory.ReverseFind(_T('\\')));
	return directory;
}