제가 고수님들의 도움을 받아 R14에서 사용하는 리습인데요 2002에서는 에러가 뜨네요 어디가 잘못 된건지 좀 봐주세요.. 그리구요 (setvar “TEXTSTYLE” “te”) 이렇게 지정하면 리습 로딩시 te 라는 레이어가 생성이 되는거 아닌가요?
(DEFUN C:um(/ ood scale ju p1 p2 k ang3 ang4 st st1)
(setq ood (getvar “osmode”))
(SETVAR “OSMODE” 33)
(setvar “TEXTSTYLE” “te”)
(SETQ scale (GETVAR “DIMSCALE”))
(SETQ ju (* SCALE 1.6))
(setq di (getreal “n관 Size을 입력하세요
(setq dia (getstring “n맨홀관경을 입력하세요
(SETQ P1 (GETPOINT “n FIRST POINT … “))
(SETQ th (* SCALE di))
(command “layer” “s” “0” “”)
(command “circle” p1 th “”)
(WHILE
(SETVAR “OSMODE” 33)
(SETQ P2 (GETPOINT P1″n CONT POINT … “))
(SETVAR “OSMODE” 0)
(SETQ K (DISTANCE P1 P2))
(SETQ ANG3 (ANGLE P1 P2))
(setq ip1 (polar p1 ang3 (* 1 th)))
(setq ip2 (polar p2 (- ang3 pi) (* 1 th)))
(SETQ ANG4 (+ ANG3 (DTR 90)))
(setq st (polar p1 ang3 (/ K 2.0)))
(setq st1 (polar st ANG4 ju))
(command “circle” p2 th “”)
(command “layer” “s” “te” “”)
(setq di (strcat “D=” dia))
(setq len (strcat ” L=” (rtos k 2 2)))
(command “text” “r” st1 ju (rtd ang3) di)
(command “text” st1 ju (rtd ang3) len)
(command “layer” “s” “0” “”)
(command “Leader” ip2 ip1 “” “” “n”)
(setq p1 p2)
)
(setvar “osmode” ood)
)