리습 로드 오류 질문드립니다
컨텐츠 정보
- 319 조회
- 10 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요
윈도우 10 64비트에 캐드 2012 버전을 쓰고 있습니다.
리습을 여러가지를 쓰는데 모두 appload로 로드하여 사용내역목록과 사용내역에 추가 해놓았습니다.
다른건 다 잘 되는데 면적 재는 리습만 캐드를 재부팅 하면 명령어가 먹질 않네요
그래서 언로드 후 캐드 재부팅 후 다시 로드하여 쓰면 먹힙니다.
그러다 또 캐드를 껐다 키면 그 리습만 안먹히고…ㅠㅠ
다른 리습들은 다 문제가 없는데 그 리습 하나만 그러네요
다른 리습들 살펴봐도 명령어가 중복되지도 않았고요
왜 이럴까요
첨부파일로 면적 재는 리습 올려드릴께요
고수분들 아시면 답변좀 부탁드립니다
(DEFUN C:AY ( )
(SETVAR "CMDECHO" 1)
(SETVAR "REGENMODE" 0)
(setq ts (getvar "textsize"))
(if (= dw nil) (setq dw 2))
(setq a (strcat "n현재 설정값(문자높이=" (rtos ts 2 1)
",자리수=" (rtos dw 2 0) ")을 변경할까요? [Y/N] : "))
;(setq a (strcat "n현재 자리수=" (rtos dw 2 0) ")을 변경할까요? [Y/N] : "))
(initget "Yes No")
(setq yn (getkword a))
(if (= yn "Yes")
(progn
(setq a (strcat "n문자높이<" (rtos ts 2 1) ">:"))
(setq ht (getdist a))
(if (= ht nil) (setq ht ts))
(setq a (strcat "n소수점 자리수을 지정<" (rtos dw 2 0) ">:"))
(setq tem (abs (getint a)))
(if (= tem nil) (setq dot dw) (setq dot tem) )
(setq dw dot)
)
;(setq dot dw)
(setq ht ts dot dw)
)
(setvar "textsize" ht)
(COMMAND "AREA" "e" pause)
;(setvar "lunits" 2)
;(setvar "luprec" 2)
(SETQ PP (GETPOINT "n Pick the point : ")
;TS (GETVAR "TEXTSIZE")
AREA (GETVAR "AREA")
AA (/ AREA 1000000)
AREA1 (RTOS AA 2 dot)
AREA2 (RTOS (* AA 0.3025) 2 dot)
;AA (STRCAT "" AREA1 "㎡ /" AREA2 "PY" "")
)
(COMMAND "TEXT" PP ht "0″ AREA1)
(COMMAND "TEXT" "" AREA2)
(princ)
)