Eingangsdurchmesser Kreis

[Angelo2449]

Hallo alle,
mit diesem kurzen Code ziehe ich einen Kreis mit einem Kreuz innen:

 (defun c:cerchiocroce (/Mitte hohes Zifferblatt niedrig halbkreuz links)

(Setq Zifferblatt nil)
(Befehl "_blipmode" 1)

(setq Zentrum (getpoint "\click the centre of the Circle"))
(Setq-Zifferblatt (getpoint "\nclick Kreisradius (rechts Platte nach vorherigem Radius)))

(falls (/= Zifferblatt nil)
(setq raxx (Abstands-Zentralwahl)
;

(Befehl "_blipmode" 0)

(Befehl "_circle" Radix Zentrum "")

(setq halbchrom)
(High setq (Liste (Autozentrum) (+ (Mitte))))
(niedrig setq (Liste (Autozentrum) (- (Mitte))))
(Befehl "_line" Hoch Bass)

(setq links (Liste (+ (Autozentrum) halbkreuz) (Mitte)))
(setq rechts (Liste (- (Autozentrum) halbkreuz) (Mitte)))
(Befehl "_line" links ")

;

Ich möchte jedoch, dass der Durchmesser des Kreises durch die Zeichnung des Kreises "elastisch" nach der Definition des Zentrums definiert wurde, so dass die Definition des Kreises den variablen "Quadranten" wert ist.
Danke.