엔지니어 기술블로그
Radius & Circle dimensioning with leader line

; 반경(R) 치수기입
(defun C:VR (/ cl ormod osmod dims e po rad radtt)
(setvar "cmdecho" 0)
(setq cl (getvar "clayer"))
(setvar "clayer" "0" )
(command  "dimzin" "8")
(setq ORMOD (getvar "ORTHOMODE"))
(setq osmod (getvar "osmode"))
(setq dims(getvar "dimlfac"))
(setvar "ORTHOMODE" 0)
(setq e (entsel "nSelect arc or circle: ")
      po  (osnap (cadr e) "near"))
(setq e (car e))
(setq rad (cdr (assoc 40 (entget e))))
(setq rad (* rad dims))
(setq radtt(strcat "R"(rtos rad)))

(setvar "osmode" 512)
(command "leader" po pause "" radtt "")
(SETVAR "OSMODE" 4133)
(setvar "ORTHOMODE" ORMOD)
(princ)
)
 
 
; 직경( Ø)치수기입
(defun C:VC (/ cl ormod osmod dims e po rad dia diatt)
(setvar "cmdecho" 0)
(setq cl (getvar "clayer"))
(setvar "clayer" "0" )
(command  "dimzin" "8")
(setq ORMOD (getvar "ORTHOMODE"))
(setq osmod (getvar "osmode"))
(setq dims(getvar "dimlfac"))
(setvar "ORTHOMODE" 0)
(setq e (entsel "nSelect arc or circle: ")
      po  (osnap (cadr e) "near"))
(setq e (car e))
(setq rad (cdr (assoc 40 (entget e))))
(setq rad (* rad dims))
(setq dia (* rad 2)) ;[추가부분] 반경x2
(setq diatt(strcat "%%C"(rtos dia))) ;[변경부분] R->%%C, 함수 rad->dia
(setvar "osmode" 512)
(command "leader" po pause "" diatt "")
(SETVAR "OSMODE" 4133)
(setvar "ORTHOMODE" ORMOD)
(princ)
) ; end of defun