(defun c:mak_*block (/ blk pt ss)
  (princ "\n选取制作匿名图块的对象:")
  (if (and (setq ss (ssget))
	   (setq pt (getpoint "\n设定块原点:"))
      )
    (progn
      (setq blk (fsxm-add-block ss "*U" (trans pt 1 0)))
      (vla-InsertBlock
	(fsxm-activespace)
	(vlax-3d-point (trans pt 1 0))
	(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)
)