; 탭치수 자동 넣기 리습 명령어:TA

(defun c:TA(/ or os ts dsc tad p1 ss ed p2 rad ins dic  d1 tex t1 )
;->*error* start
 (defun *error* (msg)(princ "error: ")(princ msg)
  (setvar "osmode" os) (setvar "dimtad" tad) (setvar "orthomode" or)
 (princ))
;-<*error* end
   (setq or (getvar "orthomode")
         os (getvar "osmode")
         ts (getvar "dimtxt")
         dsc (getvar "dimscale")
         tad (getvar "dimtad"))
  (setvar "osmode" 512)
  (setq p1 (getpoint "n Pick the Tap hole OD ? :"))
  (setvar "osmode" os)
  (setq df (getvar "dimlfac" ))
  (setq #b (osnap p1 "cen"))
  (setq rad (rtos (* (distance p1 #b ) df ))) ; 선택한 원의 반지름을 계산하여 탭 크기를 인식합니다.
  (setvar "orthomode" 0)
  (setq p2 (getpoint p1 "n Second point ? :"))
  (setvar "orthomode" or)   
  (setq d1 (* dsc ts 2.1)) 
  (if (not t2) (setq t2 2))
  (setq tex (getint (strcat "nQT'Y <" (rtos t2) "> ? :")))
  (if tex (setq t2 tex))
  (setq t1 (rtos t2)) 
  (cond

        ((= rad 1.5)  ; 선택한 원의 반지름을 계산하여 1.5일때 아래 M3 문자를 출력합니다.
        (setq nt1 (strcat t1 "-M3 TAP DP8"))) ; DP8 깊이 부분은 사용자 기호에 따라 바꾸시면 됩니다.
        ((= rad 2.0)
        (setq nt1 (strcat t1 "-M4 TAP DP10")))
        ((= rad 2.5)
        (setq nt1 (strcat t1 "-M5 TAP DP12")))
        ((= rad 3.0)
        (setq nt1 (strcat t1 "-M6 TAP DP15")))
        ((= rad 4.0)
        (setq nt1 (strcat t1 "-M8 TAP DP15")))
        ((= rad 5.0)
        (setq nt1 (strcat t1 "-M10 TAP DP20")))
        ((= rad 6.0)
        (setq nt1 (strcat t1 "-M12 TAP DP20")))
        ((= rad 7.0)
        (setq nt1 (strcat t1 "-M14 TAP DP25")))
        ((= rad 8.0)
        (setq nt1 (strcat t1 "-M16 TAP DP25")))
        ((= rad 10.0)
        (setq nt1 (strcat t1 "-M20 TAP DP30")))
        ((= rad 12.0)
        (setq nt1 (strcat t1 "-M24 TAP DP30")))
   );cond
  (setvar "osmode" 0)
  (setvar "dimtad" 1)
  (command "layer" "s" "치수레이어이름" "") ; 사용자 변경부분

  (command "leader" p1 p2 "" nt1 "")
  (setvar "dimtad" tad)    
  (setvar "osmode" os)
(princ)
);defun