[求助]：高手看看这个函数哪里错了

ninuo

void changeLine()
{
        ads_name en;
        ads_point pt,pt1;
        AcGePoint3d startPt,endPt;
        AcDbLine *pLine;
        if (ads_entsel("\nSelect the Entity:",en,pt)!=RTNORM)
        {
                ads_printf("没有选中目标!\n");
                return;
        }
        AcDbObjectId eId;
        acdbGetObjectId(eId,en);
        AcDbEntity *pEnt;
        acdbOpenObject(pEnt,eId,AcDb::kForWrite);
        if (strcmp(pEnt->isA()->name(),"AcDbLine")==0)
        {
                pLine=AcDbLine::cast(pEnt);
                ads_getpoint(NULL,"\nEnter start Point:",asDblArray(startPt));//这是出错了
                pLine->setStartPoint(startPt);
        }
        pEnt->close();
}

Hellow

先提几点建议：
1、尽可能在以写方式打开目标前执行文档锁定，操作完成执行文档解锁。（MDI方式）
2、执行对象打开时一定要判断返回值。（无论何种打开方式）
3、尽量少用strcmp之类的函数直接比较类名称，因为这样做比较容易出错，采用下面的方式：
   
if(acdbOpenAcDbObject(pEnt,entId,AcDb::kForWrite)!=Acad::eOk)
return;
pLine=AcDbLine::cast(pEnt);
if(pLine==NULL)
{
pEnt->close();
return;//不是直线
}
...  ...
所以这个问题应该是对象没有正确打开导致的！

ninuo

谢谢楼主的提醒
我调试时发现:
ads_getpoint(NULL,"\nEnter start Point:",asDblArray(startPt));
到这里出错了
但是我不用这句话,而对该点设为定值就没问题
到底是什么错误呢

yindb

将代码改为一下即可
if (strcmp(pEnt->isA()->name(),"AcDbLine")==0)
        {
                pLine= AcDbLine::cast(pEnt);
                pLine->downgradeOpen();
                ads_getpoint(NULL,"\nEnter start Point:",asDblArray(startPt));//这是出错了
                pLine->upgradeOpen();
                pLine->setStartPoint(startPt);
        }

ninuo

问题解决了
谢谢各位
随便问下,我的ARX类函数怎么没有提示啊怎么加进去.
就是说当我输入pLine->怎么没有提示???

empireman

谢谢，受益了~~~

RedCAD

以上各种方法能解决这个问题，4楼的方法我没用过，感觉很不错，但我还是认为不要在对象打开的状态下去执行任何交互操作。这样做很危险的。操作前关闭对象，操作后在打开对象进行修改比较妥当。

jingelou

写这样的代码,测试测试ARX功能还可以,千万不要写到产品里,会死人的