;드릴 구멍 치수쓰기 리습 명령어:AD

(defun c:AD(/ #os #a #b dia k dp n txt ep ep1 ep2 p2 df)
(setvar "cmdecho" 0)
(setq df (getvar "dimlfac" ))
(setq #os (getvar "osmode"))
(setvar "osmode" 512)
(setq #a (getpoint "n≫≫≫구멍 외경을 선택하세요:"))
(setq p2 (getpoint #a "n≫≫2번째 포인트 :"))
(setvar "osmode" #os)
(if (setq #b (osnap #a "cen"))
(progn
(setq dia (*(*(distance #a #b )2.0)df))
(initget "T D")
(setq k (getkword "n≫ 관통...< [T]hru = Enter > / [D]p : "))
(if (= k "D")
(progn
(setq dp (getint (strcat "n≫ 깊이 < 구멍크기는 Ø"(rtos dia)" 입니다>: ")))
)
)
(setq n (getint "n수량< 1 = Enter >: "))
 
(if (or (= n nil)(= n "")(= n "1"))
  (progn
    (if (or (= k nil) (= k "T"))
      (setq txt (strcat "%%C" (rtos dia) " DR THRU")))   
    (if (= k "D")
   (setq txt (strcat "%%C" (rtos dia) " DR DP" (rtos dp))))
  )
  (progn
    (if (or (= k nil) (= k "%%C"))
   (setq txt (strcat (rtos n) "-" "%%C" (rtos dia) " DR THRU")))
  
    (if (= k "D")
      (setq txt (strcat (rtos n) "-" "%%C" (rtos dia) " DR DP" (rtos dp))))
  )
 )
(setvar "osmode" 0)
(command "leader" #a p2 "a" txt "")
(setvar "osmode" #os)
)
)
(princ)
)