탭 치수를 기입하는 리습인데
블럭의 파이는 인식을 못해서 사용할수가 없더라고요
블럭 파이도 인식하게 해주시면 정말 감사하겠어요
소스입니다.
(defun c:TD()
(setvar “cmdecho” 0)
(setq es (entsel “nTAP 외경을 선택하세요: “))
(if (or (= (cdr (assoc 0 (entget (car es)))) “ARC”) (= (cdr (assoc 0 (entget (car es)))) “CIRCLE”))
(progn
(setq e (car es))
(setq ep (cadr es))
(setq en (entget e))
(setq dia (fix(atof(rtos(* (cdr (assoc 40 en)) 2)2 0))));;여기 11.5이상이면 12로인식
(initget “Yes No”)
(setq k (getkword “n관통 … < Yes > / No : “))
(if (= k “No”)
(progn
(setq dp (getint (strcat “n깊이< " (itoa (1+ dia)) " >: “)))
(if (= dp nil) (setq dp (1+ dia)))
)
)
(setq n (getint “n수량< 0 >: “))
(if (= n nil) (setq n 0))
(cond
((or (= k nil) (= k “Yes”)) (setq txt (strcat (itoa n) “-” “M” (itoa dia) ” TAP THRU”)))
((= k “No”) (setq txt (strcat (itoa n) “-” “M” (itoa dia) ” TAP DP” (itoa dp))))
)
(setq EP (polar (cdr (assoc 10 en)) (/ pi 4) (cdr (assoc 40 en))));;;한줄 추가
(setq ep1 (polar ep (/ pi 4) (/ dia 2)))
(setq ep2 (polar ep1 0 (/ dia 4)))
(setq os (getvar “osmode”));;;osnap 기억
(setvar “osmode” 0);;;osnap 없애기
(command “qleader” ep ep1 ep2 “0” txt “”)
(setvar “osmode” os);;;osnap 복구
)
)
(princ)
)