;Divides entities with block named TIC.
;
(DEFUN C:DIV ( / )
(while
  (setq cent (cdr(entsel "\nSelect object to divide: ")))
  (setq ntic (uint 0 "" "\nNumber of divisions ? " nil))
  (command ".divide" (car cent) "b" "tic" "y" ntic)
);while
);defun