리습실행하면 원지름 지정하라고 나오는데 원하는 값을 리습자체에

리습실행하면 지름을 입력하라고 나오는데
 
원하는 값을 리습자체에

입력해서 사용할 순 없나요??


—————————————————————-



;—–
; 자 료 명 : 다수의 원을 지정하여 같은 직경으로 바꾼다.
; 파 일 명 : CIRCLED.LSP
; 실 행 명 : CIRCLED
; 만 든 이 : 김규환      gw1425@hanmail.net
; 배 포 처 : http://my.netian.com/~daeho71/
;—–

(DEFUN C:ASDF (/ SS P NAME N N1 OLD_R D N2 R R1)
  (setvar “cmdecho” 0)
  (prompt “n수정할 원을 선택 하시오:”)
  (SETQ ss   (ssget)
 p    0
 name 1
  )
  (while (AND (/= name “ARC”) (/= name “CIRCLE”))
    (SETQ N    (ssname ss P)
   NAME (CDR (ASSOC 0 (ENTGET N)))
   P    (+ P 1)
    )
  )
  (SETQ n1    (entget n)
 OLD_R (* (CDR (ASSOC 40 (ENTGET N))) 2.00)
 p     0
  )
  (if (= cd nil)
    (PROGN
      (WHILE (= cd nil)
 (setq
   cd (GETREAL
        (STRCAT “n지름을 입력 하시오/” (rtos
OLD_R) “==>:”)
      )
 )
      )
    )
    (progn
      (setq d  cd
     cd (GETREAL (STRCAT “n지름을 입력 하시오/”
    (rtos OLD_R)
    “==><“
    (RTOS CD)
    “>:”
   )
        )
      )
      (if (= cd nil)
 (setq cd d)
      )
    )
  )
  (if ss
    (while (ssname ss p)
      (setq n2  (ssname ss p)
     name (cdr (assoc 0 (entget n2)))
     P  (+ P 1)
      )
      (if (or (= name “CIRCLE”) (= NAME “ARC”))
 (PROGN
   (SETQ N3 (ENTGET N2)
  R  (ASSOC 40 (ENTGET N2))
  R1 (CONS 40 (/ CD 2.0))
  R  (SUBST R1 R N3)
   )
   (ENTMOD R)
 )
      )
    )
  )
  (PRINC)
)