리습을 만들지는 못하고 다른분들이 만들어 놓은 것을 사용하는 수준의 캐드 사용자입니다(현재 사용하는 캐드는 AutoCAD 2010입니다).
; Program : COORD Marking
; H. S. PARK
; 98/3/29
;*********************************************
; 좌표값을 도면에 표시(좌표순서 바꾸려면 15, 16행의 x->y, y->x 로 바꿀것)
;*********************************************
(defun c:xy0()
(setq ts (getvar “textsize”))
(setq pt1 (getpoint “Pick First Point:”))
(setq pt2 (getpoint pt1 “Pick Second Point:”))
(setq px (car pt1))
(setq py (cadr pt1))
;****** real to string
(setq pxt (strcat “X=” (rtos px 2 0))) ;x좌표값
(setq pyt (strcat “Y=” (rtos py 2 0))) ;y좌표값
(command “line” pt1 pt2 “”)
(setq txtpnt pt2) ; x좌표삽입점
(setq txtpnt1 (list (car txtpnt)
(- (cadr txtpnt) (* 1.5 ts)) 0.0)) ;y좌표 삽입점
(command “.text” “j” “bl” txtpnt ts “0.0” pxt) ;x좌표값 쓰기
(command “.text” “j” “bl” txtpnt1 ts “0.0” pyt) ;y좌표값 쓰기
(princ)
);;; End of program COOR
위와 같은 좌표값표시 리습을 사용하고 있는데 어떤 경우는 좌표값이 표시가 되는데 다른 어떤 경우는 표시가 되지 않습니다( 위의 리습을 만들어주신 H. S. PARK님 고맙습니다).
1. 되는 경우의 명령창 내용(기존의 다른 파일을 열어서 그곳에 좌표값을 표시하려할때)
=======================================================
명령: xy0 Pick First Point:Pick Second Point:line 첫 번째 점 지정:
다음 점 지정 또는 [명령 취소(U)]:
다음 점 지정 또는 [명령 취소(U)]:
명령: .text
현재 문자 스타일: “STANDARD” 문자 높이: 0.2000000 주석: 아니오
문자의 시작점 지정 또는 [자리맞추기(J)/스타일(S)]: j 옵션 입력
[정렬(A)/맞춤(F)/중심(C)/중간(M)/오른쪽(R)/좌상단(TL)/상단중앙(TC)/우상단(TR)/좌측중간(ML)/중앙중간(MC)/우측중간(
MR)/좌하단(BL)/하단중앙(BC)/우하단(BR)]: bl
문자의 맨 아래 왼쪽점 지정:
높이 지정 <0.2000000>: 0.200000000000000
문자의 회전 각도 지정 <0.0000000>: 0.0
문자 입력: X=302739
명령: .text
현재 문자 스타일: “STANDARD” 문자 높이: 0.2000000 주석: 아니오
문자의 시작점 지정 또는 [자리맞추기(J)/스타일(S)]: j 옵션 입력
[정렬(A)/맞춤(F)/중심(C)/중간(M)/오른쪽(R)/좌상단(TL)/상단중앙(TC)/우상단(TR)/좌측중간(ML)/중앙중간(MC)/우측중간(
MR)/좌하단(BL)/하단중앙(BC)/우하단(BR)]: bl
문자의 맨 아래 왼쪽점 지정:
높이 지정 <0.2000000>: 0.200000000000000
문자의 회전 각도 지정 <0.0000000>: 0.0
문자 입력: Y=382433
명령:
=======================================================
2. 되지 않는 경우의 명령창 내용(새로운 파일을 만들어서 좌표값을 표시하려 할때)
=======================================================
명령: xy0 Pick First Point:Pick Second Point:알 수 없는 명령 “X=440”. 도움말을 보려면 F1을
누르십시오.
알 수 없는 명령 “Y=42”. 도움말을 보려면 F1을 누르십시오.
=======================================================
왜 그런가요?
안될리가 없을텐데욤… 이럴땐 해당 dwg 를 올리는게 좋습니다.