캐드 치수리습을 쓰는데요
어떤 도면에서는 리습이 예를들어 M3 TAP THRU, 2-M3 TAP THRU
이렇게 아주 잘 나오는데
어떤 도면에서는 M-3 TAP THRU, 2-M-3 TAP THRU 이렇게 나오는데
뭐가 문제일까요?…
(defun c:AT(/ #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” 514)
(setq #a(getpoint “nTap Diameter Click :”))
(setq p2 (getpoint #a “nEnd Point :”))
(setvar “osmode” #os)
(if (setq #b (osnap #a “cen”))
(progn
(setq dia (fix (atof (rtos (* (* (distance #a #b) 2.0) df)2 0)))) ;; 0.5이상이면 1로인식
(initget “T D”)
(setq k (getkword “nThru = Enter / Depth = D ” ))
(if (= k “D”)
(progn
(setq dp (getint (strcat “nDp < ” (itoa (* dia 2)) ” >: “))) ;;DP 미지정시 탭 지름의 2배로 인식
(if (= dp nil) (setq dp (* dia 2)))
)
)
(setq n (getint “nQuantity < 1 = Enter >: “))
(if (or (= n nil)(= n “”)(= n “1”))
(progn
(if (or (= k nil) (= k “T”)) ; T,1
(setq txt (strcat “M” (itoa dia) ” TAP THRU”)))
(if (= k “D”) ;D,1
(setq txt (strcat “M” (itoa dia) ” TAP DP” (itoa dp))))
)
(progn
(if (or (= k nil) (= k “T”)) ; T,2~
(setq txt (strcat (itoa n) “-” “M” (itoa dia) ” TAP THRU”)))
(if (= k “D”) ;D,2~
(setq txt (strcat (itoa n) “-” “M” (itoa dia) ” TAP DP” (itoa dp))))
)
)
(setvar “osmode” 0) ;;;osnap 없애기
(command “layer” “s” “D” “”) ;; 여기 레이어이름 D(치수레이어) 바꾸세요
(command “leader” #a p2 “a” txt “”)
(command “layer” “s” “0” “”)
(setvar “osmode” #os) ;;;osnap 복구
)
)
(princ)
)