[求助]：高手:我的创建新布局代码有什么问题

羽绒背心

以前我先用vba复制了一个布局模板(没有视口对象),然后调用类似arx的代码创建了视口,都没有任何问题,而且是按照我设定的比例,和多义线裁减的.现在
我想都用arx创建一个自己的视口(没有复制模板),但是始终错误.
        AcApLayoutManager *pLmg=(AcApLayoutManager*)acdbHostApplicationServices()->layoutManager();
        AcDbObjectId lyId,blkRecId;
        sLyName=pLmg->getNextNewLayoutName();
        pLmg->createLayout(sLyName,lyId,blkRecId);
        //pLmg->setDefaultPlotConfig(blkRecId);
    es = acdbOpenObject(blkRec,blkRecId,AcDb::kForWrite);
    if (es != Acad::eOk)
        return ;
        blkRec->appendAcDbEntity(ClipId,pLine);
        pLine->setClosed(TRUE);
        pLine->close();

       
        AcDbViewport *vp=new AcDbViewport();
        blkRec->appendAcDbEntity(pId,vp);
        blkRec->close();
        vp->setNonRectClipEntityId(ClipId);
        vp->setNonRectClipOn();
    int vpNum = vp->number();

        vp->setTwistAngle(ang);

        vp->setViewCenter(ptC2);
        vp->setCustomScale(ppScale);
        vp->setLocked();
         vp->setOn();
         vp->close();
       
        pLmg->setCurrentLayoutId(lyId);
        pLmg->updateCurrentPaper(Adesk::kTrue);
         es = acedSetCurrentVPort(vpNum);
        acedCommand(RTSTR, _T("_MSPACE"), 0);   

        acedCommand(RTSTR,_T("REGEN"),0);

xysyr

在哪一步出现的什么问题？你可以先去掉裁减视口看有没有错误？

羽绒背心

最后生产了视口和布局,但是切换到布局,视口里面没有内容,而且用cad切换不到模型里面去,提示"没有活动的模型空间视口"

xysyr

你试着把cad的设置参数里，创建新布局自动创建视口选项，取消。
或者直接使用系统自动创建的视口，或者将自动创建的视口删除再自己建立视口。

羽绒背心

谢谢,我把cad的创建新布局自动创建视口选项取消了,就可以了.但是为什么了,还需要研究一下