[编程申请]：ARX编程:画一圆柱体

wsmm

ARX编程实现：在指定点上AcGePoint3d 画一圆柱体，并着色。且高度、颜色可调整

boaosun

AcDbObjectId Cad_CreateFrustum(AcGePoint3d Center,double xRadius,double yRadius,double tRadius,double Height,CString LayerName)
//生成圆柱体
//  Center -- 直径中心并位于高度的一半处
//  注意：地面平行于xy平面
{        AcDb3dSolid *p3d;
        AcGeMatrix3d mat;
  AcDbObjectId ObjId;

  p3d=new AcDb3dSolid;
  p3d->createFrustum(Height,xRadius,yRadius,tRadius);

        Center=Center+AcGeVector3d(0,0,1)*Height*0.5;
        mat.setToTranslation(Center-AcGePoint3d(0,0,0));
        p3d->transformBy(mat);
       
        ObjId=Cad_EntAddToModal(p3d,LayerName);
        p3d->close();
        return ObjId;
}

void Cad_ChnEntColor(AcDbObjectId entId,DWORD newColor)
//改变实体颜色
//entId为实体ID，newColor为新的颜色
{ AcDbEntity *pEntity;
  AcCmColor Color;

  acdbOpenObject(pEntity,entId,AcDb::kForWrite);
  Color.setRGB(GetRValue(newColor),GetGValue(newColor),GetBValue(newColor));
  pEntity->setColor(Color);
  pEntity->close();
}

wsmm

函数Cad_EntAddToModal(p3d,LayerName) 的定义在哪儿啊？
请帖出来吧。

mylearn

Cad_EntAddToModal 无定义

wsmm

在原程序中肯定会有定义的

boaosun

将AcDbObject *增加到modal空间！
        acdbHostApplicationServices()->workingDatabase()->getSymbolTable(pBlockTable,AcDb::kForRead);
        //获得符号表中的模型空间块表纪录指针，用于添加对象
        pBlockTable->getAt(ACDB_MODEL_SPACE,pBlockTableRecord,AcDb::kForWrite);
        pBlockTable->close();
        //将直线添加到模型空间块表记录中
        pBlockTableRecord->appendAcDbEntity(objid,ent);
        //关闭块表纪录指针和直线指针
        pBlockTableRecord->close();
  return objid;