[求助]：AcDbDictionary问题

Dream.Fei

我以前用lsp写的程序中,使用了命名辞典. lsp函数: vlax-ldata-put DictName Key Value.
命名词典:
命令: (vlax-ldata-list "Dream.Fei")
(("vpscale" . 45) ("Printscale" . "45") ("pmlx" . "3") ("blkn" . "2006112810484498"))

1. 
   
2. 命令: (vlax-ldata-list "Dream.Fei")
   
3. (("vpscale" . 45) ("Printscale" . "45") ("pmlx" . "3") ("blkn" . "2006112810484498"))
   

复制代码

1. 
   
2. 名称: Dream.Fei
   
3. 包含的数据: (("vpscale" . 45) ("Printscale" . "45") ("pmlx" . "3") ("blkn" . "2006112810484498"))
   

复制代码

我现在想取出 "PrintScale" 这个key 所对应的值来. 请问用C++应该怎么搞?
我现在写成这样出错:

1. 
   
2. AcDbDictionary *pNameObj = NULL;
   
3.    if (acdbHostApplicationServices()->workingDatabase()->getNamedObjectsDictionary(pNameObj, AcDb::kForRead) != Acad::eOk)
   
4.     return;
   
5.    
   
6.    AcDbObjectId dictId = NULL;
   
7.    if (pNameObj->getAt(_T("Dream.Fei"), dictId) != Acad::eOk)
   
8.    {
   
9.     pNameObj->close();
   
10.     return;
    
11.    }
    
12.    pNameObj->close();
    
13.    
    
14.    AcDbXrecord *pXrec = NULL;
    
15.    if(acdbOpenObject((AcDbObject*&)pXrec, dictId, AcDb::kForRead) != Acad::eOk)
    
16.     return;
    
17.    
    
18.    struct resbuf *pRb = NULL;
    
19.    pXrec->rbChain(&pRb);
    
20.    pXrec->close();
    
21.    if (pRb != NULL)
    
22.    {
    
23.     struct resbuf *tmp;
    
24.     tmp = pRb;
    
25.     while (tmp)
    
26.     {      
    
27.      acutPrintf(_T("\n获取的字符串数据: %s"),tmp->resval.rstring );
    
28.      tmp= pRb->rbnext;
    
29.     }
    
30.     acutRelRb(pRb);
    
31.    }
    

复制代码

后面改动了一下,但还是取不到值:

1. 
   
2. static void PlanType_tst(void)
   
3.   {
   
4.    AcDbDictionary *pNameObj = NULL;
   
5.    if (acdbHostApplicationServices()->workingDatabase()->getNamedObjectsDictionary(pNameObj, AcDb::kForRead) == Acad::eOk)
   
6.    {
   
7.     AcDbDictionary *pDict = NULL;
   
8.     if(pNameObj->getAt(_T("Dream.Fei"), (AcDbObject*&)pDict, AcDb::kForRead) == Acad::eOk)
   
9.     {
   
10.      AcDbXrecord *pXrecd = NULL;
    
11.      if (pDict->getAt(_T("PrintScale"), (AcDbObject*&)pXrecd, AcDb::kForRead) == Acad::eOk)
    
12.      {
    
13.       struct resbuf *pRb = NULL;
    
14.       pXrecd->rbChain(&pRb);
    
15.       if (pRb != NULL)
    
16.        acutPrintf(_T("\n得到的结果: %s."), pRb->resval.rstring);
    
17.       pXrecd->close();
    
18.       acutRelRb(pRb);
    
19.      }
    
20.      pDict->close();
    
21.     }
    
22.     pNameObj->close();
    
23.    }
    
24.   }
    

复制代码

有人能帮我改改怎么取这个值出来么?

biostrong

你确定你的数据库里面一定有这个字典和数据项吗？
你的第二种写法是对的。
如果你是在对话框下调用上面的函数，还必须锁定文档。

Dream.Fei

我确定. 因为lisp函数 vlax-ldata-list DictName 就是显示这个词典所包含的内容的.
现在没有考虑对话框情况,只是在程序引用.
第二次修改的同样取不到值. 不知道是怎么回事.... 能否帮我改改? 要是有需要,我可以把包含这个词典的dwg传给你.
我QQ: 7686599, 希望能交流一下.

zhang2380

samples\database\xrecord_dg中有读取resbuf 值的例子。
if (pRb != NULL)
      printList(pRb );

void
printList(struct resbuf* pBuf)
{
    int rt, i;
    char buf[133];

    for (i = 0;pBuf != NULL;i++, pBuf = pBuf->rbnext) {
        if (pBuf->restype < 0)
            // Entity name (or other sentinel)
            rt = pBuf->restype;
        else if (pBuf->restype < 10)
            rt = RTSTR;
        else if (pBuf->restype < 38)
            rt = RT3DPOINT;
        else if (pBuf->restype < 60)
            rt = RTREAL;
        else if (pBuf->restype < 80)
            rt = RTSHORT;
        else if (pBuf->restype < 100)
            rt = RTLONG;
        else if (pBuf->restype < 106)
            rt = RTSTR;
        else if (pBuf->restype < 148)
            rt = RTREAL;
        else if (pBuf->restype < 290)
            rt = RTSHORT;
        else if (pBuf->restype < 330)
            rt = RTSTR;
        else if (pBuf->restype < 370)
            rt = RTENAME;
        else if (pBuf->restype < 999)
            rt = RT3DPOINT;
        else // pBuf->restype is already RTSHORT, RTSTR,
            rt = pBuf->restype; // etc. or it is unknown.

        switch (rt) {
        case RTSHORT:
            if (pBuf->restype == RTSHORT)
                acutPrintf(
                    "RTSHORT : %d\n", pBuf->resval.rint);
            else
                acutPrintf("(%d . %d)\n", pBuf->restype,
                    pBuf->resval.rint);
            break;
        case RTREAL:
            if (pBuf->restype == RTREAL)
                acutPrintf(
                    "RTREAL : %0.3f\n", pBuf->resval.rreal);
            else
                acutPrintf("(%d . %0.3f)\n",
                    pBuf->restype, pBuf->resval.rreal);
            break;
        case RTSTR:
            if (pBuf->restype == RTSTR)
                acutPrintf(
                    "RTSTR : %s\n", pBuf->resval.rstring);
            else
                acutPrintf("(%d . \"%s\")\n",
                    pBuf->restype, pBuf->resval.rstring);
            break;
        case RT3DPOINT:
            if (pBuf->restype == RT3DPOINT)
                acutPrintf(
                    "RT3DPOINT : %0.3f, %0.3f, %0.3f\n",
                    pBuf->resval.rpoint[X],
                    pBuf->resval.rpoint[Y],
                    pBuf->resval.rpoint[Z]);
            else
                acutPrintf("(%d %0.3f %0.3f %0.3f)\n",
                    pBuf->restype,
                    pBuf->resval.rpoint[X],
                    pBuf->resval.rpoint[Y],
                    pBuf->resval.rpoint[Z]);
            break;
        case RTLONG:
            acutPrintf("RTLONG : %dl\n", pBuf->resval.rlong);
            break;
        case -1:
        case RTENAME: // First block entity
            acutPrintf("(%d . <Entity name: %8lx>)\n",
                pBuf->restype, pBuf->resval.rlname[0]);
            break;
        case -3: // marks start of xdata
            acutPrintf("(-3)\n");
        }

        if ((i == 23) && (pBuf->rbnext != NULL)) {
            i = 0;
            acedGetString(0,
                "Press <ENTER> to continue...", buf);
        }
    }
    return;
}

Dream.Fei

命令: (vlax-ldata-list "ASDK_DICT")
nil

这个用arx创建的并不能用vlisp命令显示出来.也就是说二者是有区别的.

binbin

上传一张图吧,

Dream.Fei

2000格式的.
命名词典: Dream.Fei
Key: PrintScale