;Parça objeleri blok gibi birleştirir, grup yapar..
(defun c:nito ()
  (princ "\n Grup yapılacak objeleri seçiniz : ")
  (setq sset (ssget))
  (command "_.-group" "_c" "*" "" sset "")
(princ)
)