入力直径の円

[Angelo2449]

salve a tutti,
con questo breve codice traccio un cerchio con una croce all'interno :

(defun c:cerchiocroce (/ centro quadrante alto basso semicroce sinistra destra)

    (setq quadrante nil)
    (command "_blipmode" 1)

        (setq centro (getpoint "\nclicca il centro del cerchio"))
    (setq quadrante (getpoint "\nclicca il raggio del cerchio (tasto destro per raggio precedente)"))

        (if (/= quadrante nil)
        (setq raggioxx (distance centro quadrante))
        );;if

        (command "_blipmode" 0)

       (command "_circle" centro raggioxx "")

       (setq semicroce (* raggioxx 0.85))
       (setq alto (list (car centro) (+ (cadr centro) semicroce)))
       (setq basso (list (car centro) (- (cadr centro) semicroce)))
       (command "_line" alto basso "")

       (setq sinistra (list (+ (car centro) semicroce) (cadr centro)))
      (setq destra (list (- (car centro) semicroce) (cadr centro)))
       (command "_line" sinistra destra "")

    );;defun

vorrei, però, che il diametro del cerchio fosse definito tracciando il cerchio "ad elastico" dopo la definizione del centro in modo che, definendo il cerchio venga valorizzata la variabile "quadrante".
grazie.