Hi QuanNguyen, thanks so much for the fast and informative reply. That code crashes IntelliCAD (completely - window disappears and Windows "send error report" shows up) at the testGroup.AppendItems appendObjs line I have tested it on a second computer/install/license of IntelliCAD and seen...

I cannot get the group.appenditems to work. I have tried Sub testgroup() Dim icadApp As IntelliCAD.Application, icadDoc As IntelliCAD.Document Dim iCadLibrary As IntelliCAD.Library Set icadApp = GetObject(, "icad.application") Set icadDoc = icadApp.ActiveDocument Set iCadLibrary = icadApp....