(defun c:MyBlock ( / mybase myobjects )
(setvar "cmdecho" 0)
(setq mybase (ssget "x" '((0 . "CIRCLE")(8 . "North"))))
Select circle & get center X,Y coord.??
(setq myobjects (ssget "x" '((8 . "North"))))
(command-s "_.Block" "North" mybase myobjects "")
(command-s "_.Insert" "North" mybase "1.0" "1.0" "0.0")
(setvar "cmdecho" 1)
(princ)
)
(setq ent (entsel "Pick object for layer"))
(setq lay (cdr (assoc 8 (entget (car ent)))))
(setq mybase (ssget "X" (list (cons 8 lay))))
(repeat (setq x (sslength mybase))
(setq ent (entget (ssname mybase (setq x (- x 1)))))
(if (= (cdr (assoc 0 ent)) "CIRCLE")
(setq pt (cdr (assoc 10 ent)))
)
)
(command "-block" lay pt mybase "")
(setq ent (entsel "Pick object for layer"))