Here's something by Luis which should help, if I understand the question.
I saved it because it's interesting how he does it. Hi Luis.
;; -------------------------------
;; by Luis posted 10/31/2005
(defun draw_point (pt col / d)
(setq d (* (getvar "viewsize") 0.015))
(grdraw
(trans (polar pt (* 0.25 pi) d) 0 1)
(trans (polar pt (* 1.25 pi) d) 0 1)
col
(- col))
(grdraw
(trans (polar pt (* 0.75 pi) d) 0 1)
(trans (polar pt (* 1.75 pi) d) 0 1)
col
(- col)))
;; get nested block insertion point
(defun C:NESTIP (/ ndata)
(if (and (setq ndata (nentsel)) (> (length ndata) 2))
(draw_point (last (caddr ndata)) 7))
(princ))
;; -------------------------------