关于LSP代码的几个问题

DAMATIME

代码如下“

问题：

1.能否将箭头设置为可以调整显示或不显示

2.能否设置文字和圆的大小

谢谢大家的帮助！！

(defun c:test (/ h r sn p0 ceo teo leo p1 k p)
  (setq h (getvar "dimscale")
        h (* (if (= h 0) 1 h) (getvar "dimtxt"))
        r h sn 1)
  (while (setq p0 (getpoint "\nPick Insert Point:"))
   (command "circle" p0 r)
   (setq ceo (entget (entlast)))
   (command "text" "j" "m" p0 h 0 (itoa sn) "")
   (setq teo (entget (entlast)))
   (command "leader" p0 (polar p0 (/ pi 4) 0.1)  "" "" "n")
   (setq leo (entget (entlast)))
   (setq p1 (cdr (assoc 10 leo)) k 1)
   (while (/= k 3)
    (setq p (grread T))
    (setq k (car p) p (cadr p))
    (setq ceo (subst (cons 10 p) (assoc 10 ceo) ceo))
    (entmod ceo)
    (setq teo (subst (cons 11 p) (assoc 11 teo) teo))
    (entmod teo)
    (setq p (polar p (angle p p1) r))
    (setq leo (subst (cons 10 p) (assoc 10 (reverse leo)) leo))
    (entmod leo)
   )
   (setq sn (1+ sn))
  )
  (princ)
)