乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 52|回复: 3

求助:xdata

[复制链接]

2

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2011-4-3 19:32:00 | 显示全部楼层 |阅读模式
代码运行到出错,添加时候出错  pObj->close();
        acutRelRb(pRb);
        return TRUE;请教:源码如下:
回复

使用道具 举报

2

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2011-4-3 19:32:00 | 显示全部楼层
代码:
bool AddXData(ads_name ename,ACHAR *appname,ACHAR *resString){
        struct resbuf *pRb=NULL,*pTemp;
        AcDbObjectId objId;
        AcDbObject *pObj;
        if(acdbGetObjectId(objId,ename)!=Acad::eOk)return 0;
        acdbOpenObject(pObj,objId,AcDb::kForWrite);
        pRb=pObj->xData(appname);
        if (pRb==NULL) {
                acdbRegApp(appname);
                pRb=acutNewRb(AcDb::kDxfRegAppName);
                pTemp=pRb;
                pTemp->resval.rstring=(ACHAR*)malloc(_tcslen(appname)+1);
                _tcscpy(pTemp->resval.rstring,appname);
        }else{
                for (pTemp=pRb;pTemp->rbnext!=NULL;pTemp=pTemp->rbnext) {;}
        }
        pTemp->rbnext=acutNewRb(AcDb::kDxfXdAsciiString);
        pTemp=pTemp->rbnext;
        pTemp->resval.rstring=(ACHAR*)malloc(_tcslen(resString)+1);
        _tcscpy(pTemp->resval.rstring,resString);
        //pObj->upgradeOpen();
        pObj->setXData(pRb);
        pObj->close();
        acutRelRb(pRb);
        return TRUE;
}
回复

使用道具 举报

2

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2011-4-3 19:33:00 | 显示全部楼层
static void S001xdata_2_MyCommand1(void)
        {                 ads_name ename;
                         ads_point pt1;
                         if (acedEntSel(L"\n请选择对象:",ename,pt1)!=RTNORM)return;
                        ACHAR appname[20],resString[80];
                         _tcscpy(appname,                                 L"abcd");
                         _tcscpy(resString,L"BDYCAD在学习ARX");
                         //if (acedGetString(NULL,"\n请输入扩展名:",appname)!=RTNORM)return;
                         //if (acedGetString(NULL,"\n请输入扩展数据的内容吧:",resString)!=RTNORM)return;
                         AddXData(ename,L"abcd",resString);
                         //return;
                 }
        }
回复

使用道具 举报

2

主题

11

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2011-4-3 19:34:00 | 显示全部楼层
请大神出手,谢谢
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-2-5 16:57 , Processed in 0.219143 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表