Today I want to present the sourcecode from the newest function in mmCAD which is called mmcad_del_layer.
void DeleteAllEntitysFromLayer() { ads_name ent; ads_point pt; // select object if(acedEntSel(ACRX_T("\nObjekt wählen desen Layer gelöscht werden soll: "), ent, pt) != RTNORM) return; // identify layername CString strLayername; if(!Intern::getLayerName(ent, strLayername)) { acdbFail(_T("\nCouldn't recive Layername")); return; } DBG_PRINTF(_T("\nSelected Layer from Object <%s>"), strLayername); // build selection list ads_name sset = {0}; struct resbuf* rb1 = acutBuildList(8, strLayername, RTNONE); if(!rb1) { DBG_PRINTF( _T("\nacutBuildList failed in <%s>"), __FUNCTION__); return; } // select whole database if(acedSSGet(ACRX_T("X"), NULL, NULL, rb1, sset) != RTNORM) { DBG_PRINTF(_T("\nacedSSGet failed in <%s>"), __FUNCTION__); acutRelRb(rb1); return; } acutRelRb(rb1); // delete selected objects acedCommand( RTSTR, ACRX_T("_erase"), RTPICKS, sset, RTSTR, ACRX_T(""), RTNONE); } // DeleteAllEntitysFromLayer