(defun c:mak_*block ()
  (princ "\n选取制作匿名图块的对象:")
  (if (and (setq ss (ssget))
	   (setq pt (getpoint "\n设定块原点:"))
      )
    (progn
      (setq blk (fsxm-add-block ss "*U" pt))
      (vla-InsertBlock
	*mspace*
	(vlax-3d-point pt)
	(vla-get-name blk)
	1
	1
	1
	0
      )
      (mapcar 'entdel (fsxm-ss->enlist ss))
    )
  )
  (princ)
)
(defun c:mak_*group (/ ss)
  (princ "\n选取制作匿名组的对象:")
  (if (setq ss (ssget))
    (fsxm-add-group ss "*")
  )
  (princ)
)