[LISP]在点取点之前先看到将要出现的图形的形状

zcjhy

如何在下代码中，在点取点之前先看到将要出现的图形的形状，这样可以确定其位置，保证不会与其它图形重叠。如果可以的话能否帮我修改一下。谢谢！
CODE](defun C:BJ()
    (print "\n选择标注意颜色：")

; (command "FONTALT" "隶书")
    (command "CECOLOR" (acad_colordlg  6))
    (setq old_rr (getvar "circlerad"))
    (setq str_rr (strcat "\n圆半径<" (rtos old_rr 2) ">:"))

    (setq rr1 (getdist str_rr))
    (if (null rr1) (setq rr1 old_rr))
    (setq num (getint "\n起始值<1>:"))
    (if (= num nill) (setq num 1))
    (setq pt (getpoint "\n 插入点:"))

    (while pt
          (setq cen pt)
(setq ss (ssadd))
        (command "circle" cen (* rr1 1.05))
(setq ss (ssadd (entlast)))
        (command "circle" cen  rr1)
          (setq ss (ssadd (entlast) ss))
          (command "_hatch" "solid" ss "")
(command "-style" "new" "隶书" (* rr1 0.8) "1" "0" "n" "n")
        (command "text" "m" cen  "0" (itoa num))
          (setq num (1+ num))
          (setq pt (getpoint pt "\n下一个插入点"))
    )
    (ptinl)
)[[/CODE]