측량도면 성과심사시 격자에 좌표 넣는 리습

XX는 X축 우측에 붙습니다.

YY는  Y축 상단에 붙습니다.

오래전에 VV라는 리습을 보고 만들긴 했는데...

문제가 XX를 좌측에 붙게 만들고 싶은데 도무지 기억이 나지 않습니다.

90도로 설정하면 밑으로 붙어 버림니다.

자리 맞춤을 설정 하는거 조차 기억이 ㄷㄷㄷㄷㄷ

내 가 이 리습 어찌 만들었는지 조차 기억이 가물가물 합니다.

5년 전에 만들었고 지금 쫌 쓰려고 하는데  아시는분 쫌 도와 주십쇼



 

(defun C:XX()

(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍으세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")

(setq xpoint (RTOS (NTH 0 pt) 2 0))

(command "text" "s" "Standard" "j" "br" pt "2.5" 270 xpoint )

(setvar "osmode" 4775)
)

 

(defun C:YY()

(setvar "osmode" 4775)
(setq pt (getpoint "도각좌표의 위치를 찍어주세요!: "))
(setvar "osmode" 4775)
(COMMAND "-LAYER" "M" "H0010601" "c" "white" "" "")

(setq ypoint (RTOS (NTH 1 pt) 2 0))

(command "text" "s" "Standard" "j" "bl" pt "2.5" 0 ypoint )

(setvar "osmode" 4775)
)