break circle at one point lisp doesn't work in 2012, anyone?

Any lisp gurus know why this won't work in ACAD2012?

Thanks.

;TIP918: CBRK.LSP ©1993, NOEL DE LA MERCED

 

; BREAKS A CIRCLE USING A SINGLE POINT.

; ERASES THE ORIGINAL CIRCLE AND DRAWS AN ARC

; THAT HAS THE SAME RADIUS AND CENTER POINT

; AS THE ORIGINAL CIRCLE.

; THIS COMMAND IS A QUICK AND EXCELLENT COMMAND

; FOR HATCHING A CERTAIN PORTION OF A CIRCLE,

; EXAMPLE: FOR GRAPHING.

 

(DEFUN C:CBRK (/ CMD AA OSN A C D B E F)

(SETQ CMD (GETVAR "CMDECHO"))

(SETVAR "CMDECHO" 0)

(SETQ OSN (GETVAR "OSMODE"))

(COMMAND "OSNAP" "NEAR")

(PROMPT "SELECT CIRCLE TO BREAK ")

(SETQ A (ENTSEL))

(SETQ C (ENTGET (CAR A)))

(SETQ D (CDR (ASSOC 10 C)))

(SETQ CIRC1 (CADR C))

(SETQ CIRC2 (CDR CIRC1))

(SETQ CIRC3 "CIRCLE")

(IF (= CIRC2 CIRC3)

(PROGN

(SETQ AA (GETVAR "UCSORG"))

(COMMAND "UCS" "")

(PROMPT "USE ONE OF THE OSNAP TO BREAK CIRCLE (DEFAULT = NONE) ")

(SETQ B (GETPOINT))

(COMMAND "ERASE" A "")

(COND

((> (CAR D) (CAR B))

(PROGN

(IF (> (CADR D) (CADR B))

(PROGN

(SETQ E (- (CAR B) 0.0000000001))

(SETQ F (+ (CADR B) 0.0000000001))

)

(PROGN

(SETQ E (+ (CAR B) 0.0000000001))

(SETQ F (+ (CADR B) 0.0000000001))

)

)

)

)

((

(PROGN

(IF (> (CADR D) (CADR B))

(PROGN

(SETQ E (- (CAR B) 0.0000000001))

(SETQ F (- (CADR B) 0.0000000001))

)

(PROGN

(SETQ E (+ (CAR B) 0.0000000001))

(SETQ F (- (CADR B) 0.0000000001))

)

)

))

((= (CAR D) (CAR B))

(PROGN

(IF (> (CADR D) (CADR B))

(PROGN

(SETQ E (- (CAR B) 0.0000000001))

(SETQ F (+ (CADR B) 0.0000000001))

)

(PROGN

(SETQ E (+ (CAR B) 0.0000000001))

(SETQ F (- (CADR B) 0.0000000001))

)

)

)

)

((= (CADR D) (CADR B))

(PROGN

(IF (> (CAR D) (CAR B))

(PROGN

(SETQ E (+ (CAR B) 0.0000000001))

(SETQ F (+ (CADR B) 0.0000000001))

)

(PROGN

(SETQ E (- (CAR B) 0.0000000001))

(SETQ F (- (CADR B) 0.0000000001))

)

)

)

)

 

)

(COMMAND "ARC" "C" (list (car D) (cadr D)) (list (car B) (cadr B)) (list E F))

);PROGN

(PROMPT "\nEntity selected is not a circle.")

);IF

(SETVAR "OSMODE" OSN)

(COMMAND "UCS" "O" AA)

(SETVAR "CMDECHO" CMD)

(PRINC)

); end cbrk.lsp

An ARC entity must have less than 2 x pi radians. -David