(defun c:Pii(/ #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) ” +0.03^0″ ” Pin THRU”)))
(if (= k “D”)
(setq txt (strcat “%%C” (rtos dia) ” +0.03^0″ ” Pin DP” (rtos dp))))
)
(progn
(if (or (= k nil) (= k “%%C”))
(setq txt (strcat (rtos n) “-” “%%C” (rtos dia) ” +0.03^0″ ” Pin THRU”)))
(if (= k “D”)
(setq txt (strcat (rtos n) “-” “%%C” (rtos dia) ” +0.03^0″ ” Pin DP” (rtos dp))))
)
)
(setvar “osmode” 0)
(command “leader” #a p2 “a” txt “”)
(setvar “osmode” #os)
)
)
(princ)
)
1.위 이미지 현제 사용중인 드릴 구멍 치수 기입 리습입니다.
2.아래 이미지와 같이 변경해서 사용 하고 싶은데 고수님의 조언 부탁 드립니다.
고캐드 파일 첨부 기능 에러나네요 정말 관리 못한다…
답변 감사합니다.덕분에 치수넣기가 한결 간편 해졌습니다.