고수님들의 많은 조언과 소스로 인해 리습을 완성하였습니다.
그런데요 R14에서 실행이 되는데, 캐드2002에서는 실행이 안되네요.
FIRST POINT … Unknown command “UM”. Press F1 for help.
CONT POINT … ; error: bad argument type: numberp: nil
이런 문구가 뜨는데, 어디가 잘못 된건가요?
(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 TEXTSCALE))
(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)
)