AutoCAD 自动管理字体插件[使用ObjectARX C++]

admin1

[code]概述：
使用AutoCAD的过程中，我们常常因为缺失字体而烦恼，本插件就是为了解决这个问题。

插件采用WEB服务器 + CAD插件方式。WEB服务器使用Python编写，部署在百度BAE上；CAD插件使用C++开发，在AutoCAD中使用命令“APPLOAD”加载该插件。

在CAD中打开新的DWG文档后，插件会自动比较DWG文档所需字体以及CAD的Font目录下的字体，如果有缺失字体，则自动到WEB服务器下载；如果有服务器上没有的字体，就悄悄上传到服务器。

下载：
源代码：
https://github.com/Xiongpq/FontCenter

编译源代码需要ObjectARX，请自行下载。

客户端：
http://pan.baidu.com/s/1pJPk6mR

下载客户端后，可以在AutoCAD中，输入“APPLOAD”命令加载相应的Warrentech.FontCenter.Client.arx文件即可加载该插件。请注意AutoCAD不同版本应该加载不同的DLL，例如：AutoCAD 2008 32位，应加载2008_X86文件夹下的DLL。

主要代码：
一、在LoadDwg时添加处理字体代码
客户端使用C++编写，调用AutoCAD的ObjectARX C++ API，在AutoCAD的On_kLoadDwgMsg事件中使用多线程做字体的下载及上传，下面是主要的代码：

    virtual AcRx::AppRetCode On_kLoadDwgMsg(void *pkt){
        AcRx::AppRetCode retCode = AcRxArxApp::On_kLoadDwgMsg(pkt);

        try {
            acutPrintf(_T("正在检测该文件字体设置，若有缺失将自动下载...\n"));

            HANDLE   hth1;
            unsigned  threadID;
            FontBLL *fontBLL = new FontBLL();
            hth1 = (HANDLE)_beginthreadex(NULL, 0, FontBLL::run, fontBLL, CREATE_SUSPENDED, &threadID);

            if (hth1 != 0) {
                ResumeThread(hth1);
            }
        }
        catch (...) {}

        return (retCode);
    }
二、获取当前DWG文档需要的字体名称
使用ObjectARX接口获取AcDbTextStyleTableIterator，循环这个迭代器，将字体文档的字体名称、大字体名称都加入一个vector<wstring>中，以便后面和Font文件夹中的字体名称进行比较。

注意要对字体名称做一些处理，以及重复性检查，详见源代码。

    Acad::ErrorStatus es;
    AcApDocument* pDoc;
    AcDbDatabase* pDb;
    pDoc = acDocManager->curDocument();
    pDb = pDoc->database();

    AcDbTextStyleTable* pTextTbl;
    AcDbTextStyleTableIterator *pTextIterator;
    es = pDb->getTextStyleTable(pTextTbl, AcDb::kForRead);
    pTextTbl->newIterator(pTextIterator);        //获取迭代器

    vector<wstring> fontList;
    for (pTextIterator->start(); !pTextIterator->done(); pTextIterator->step()) {
        AcDbTextStyleTableRecord *pTextRecord;
        es = pTextIterator->getRecord(pTextRecord, AcDb::kForRead);

        TCHAR* pFontName = NULL;
        es = pTextRecord->fileName(pFontName);   //获取字体名称
        if (es == Acad::eOk) {
            AddToFontList(pFontName, fontList);
        }

        es = pTextRecord->bigFontFileName(pFontName);   //获取大字体名称
        if (es == Acad::eOk) {
            AddToFontList(pFontName, fontList);
        }
    }
    pTextTbl->close();
三、获取本地字体列表
获取本地AutoCAD安装目录下Font文件夹下已存在的字体列表。

    vector<wstring> result;
    _tfinddata64_t c_file;
    intptr_t hFile;
    wstring root;
    root.append(path);        //路径
    root.append(L"\\*");
    root.append(ext);         //扩展名

    hFile = _tfindfirst64(root.c_str(), &c_file);
    if (hFile == -1)
        return result;

    do {
        if (_tcslen(c_file.name) == 1 && c_file.name[0] == _T('.')
            || _tcslen(c_file.name) == 2 && c_file.name[0] == _T('.') && c_file.name[1] == _T('.'))
            continue;

        result.push_back(c_file.name);

    } while (_tfindnext64(hFile, &c_file) == 0);
    _findclose(hFile);
四、下载缺失字体
插件使用curl类库做HTTP请求，到WEB服务器下载需要的文件。服务器上的字体文件全都是ZIP文件，所以下载下来后，需要解压。另外，如果没有下载到需要的字体，则会通过WEB服务器的report_missing_cad_font这个API，报告服务器。

    CURL *curl;
    CURLcode res;
    FILE *fp;
    wstring fullPath = FontBasicPath + L"\\" + fontName + L".zip";
    _wfopen_s(&fp, fullPath.c_str(), L"wb");   //创建ZIP文件
    if (fp == NULL) {
        return false;
    }
    transform(fontName.begin(), fontName.end(), fontName.begin(), towlower);
    bool result = false;
    curl = curl_easy_init();
    if (curl) {
        curl_easy_setopt(curl, CURLOPT_URL, (DownloadCadFontUrl + "/" + WStringToUTF8(fontName.c_str()) + ".zip").c_str());
        curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, write_file_data);
        curl_easy_setopt(curl, CURLOPT_WRITEDATA, fp);
        res = curl_easy_perform(curl);      //请求服务器
        if (CURLE_OK == res) {
            fclose(fp);

            char *ct;
            res = curl_easy_getinfo(curl, CURLINFO_CONTENT_TYPE, &ct);
            if ((CURLE_OK == res) && ct) {
                std::string contentType(ct);
                curl_easy_cleanup(curl);
                if (contentType == "application/zip") {    //判断下载文件的类型
                    result = true;                           //如果不是"application/zip"类型，就说明服务器上也没有这个字体
                }
                else {
                    CURL *reportCurl;
                    reportCurl = curl_easy_init();
                    curl_easy_setopt(reportCurl, CURLOPT_URL, ReportMissingCadFontUrl.c_str());
                    string postData = "keyword=" + WStringToUTF8(fontName.c_str());
                    curl_easy_setopt(reportCurl, CURLOPT_POSTFIELDS, postData.c_str());
                    res = curl_easy_perform(reportCurl);
                    curl_easy_cleanup(reportCurl);
                }
            }
        }
    }
五、上传客户端字体到服务器
服务器端虽然预置了2000多种AutoCAD字体，但仍然不是最全面的，所以如果客户端存在服务器端没有的字体，插件就会上传该字体到服务器。

首先，将本地字体名称列表POST到服务器，服务器会比较服务器上的字体列表，并将需要上传的字体列表通过JSON数据返回。

然后，客户端收到字体列表后，将需要上传的字体压缩打包，通过WEB API上传到服务器端。

bool upload_file(const wstring path)
{
    CURL *curl;
    CURLcode res;
    struct curl_httppost *formpost = NULL;
    struct curl_httppost *lastptr = NULL;

    curl_formadd(&formpost,
                 &lastptr,
                 CURLFORM_PTRNAME, "file",
                 CURLFORM_FILE, WStringToString(path).c_str(),
                 CURLFORM_END);
    curl = curl_easy_init();
    if (curl) {
        curl_easy_setopt(curl, CURLOPT_URL, UploadCadFontUrl.c_str());
        curl_easy_setopt(curl, CURLOPT_HTTPPOST, formpost);
        res = curl_easy_perform(curl);
        curl_easy_cleanup(curl);

        _wremove(path.c_str());
        return true;
    }

    _wremove(path.c_str());
    return false;
}[/code]