r14에서 사용하던 리습입니다.
2007에서는 어떻게 사용을 해야 되느지 load를 어떤경로로 해야 되는지
자세하게 설명 부탁합니다.
-리습-
(defun c:ncw()
(setvar “luprec” 1)
(setq thk (getint “nPlate TH’K <>: “))
(princ “nPick area :”)
(command “area” “e” pause)
(setq ip (getpoint “nInsert point: “))
(setq a1 (getvar “area”)
a2 (* a1 thk 7.85 10e-7)
a3 (rtos a2)
)
(command “text” ip “0” a3)
)
잘못된 부분이 있으면 수정도 부탁합니다.