CAD tip # 6365:
Question
  
Using a simple LISP expression you can add this functionality also to a plain AutoCAD. Add the following expression (command) to a toolbar button or context menu:
  
(cadr(sssetfirst nil (ssget"_X"(list(cons 0(cdr(assoc 0(entget(car(entsel"\nSelect object and all similar: "))))))))))  
This function can be then used either in the normal command mode - after you select an object, all entities of the same type are grip-selected; or you can use it on the standard "Select objects" prompt - there it includes the selected object and all similar objects in a standard selection set of an editing command.
  
Another option is to use the expression:
  
(ssget(list(cons 0(cdr(assoc 0(entget(car(entsel"\nSelect object and all similar: "))))))))  
This function also prompts for a sample object. Then it asks for a standard objects selection. From these objects, only those objects will be used which are similar (the same type) to the sample object.
![CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz] CAD Forum - tips, tricks, discussion and utilities for AutoCAD, Inventor, Revit and other Autodesk products [www.cadforum.cz]](../common/arkance_186.png)

