아래와 같은 좌표축출 명령어가 있습니다.
이 리습을 응용해서 좌표가 아닌 X값이 출력 되는 곳에는 MH-01이라는 입력값 물론 사용자가 지정할수 있겠금 묻는 문구가 나와야 데구요,
Y값이 출력되는 곳에는 H=1.60 이라는 문구가 나와야 되는데요.
명령어 실행시
command : mh
맨홀 NO를 입력 하십시요? <엔터>
MH-01
맨홀 깊이를 입력 하십시요?<엔터>
1.60
Pick point: <클릭>
Pick 1st Flag Point: <클릭>
Pick Left or Right Point: <클릭>
아래와같은 리습으로 수정사용이 가능하나요.. 그렇지 않다면 고수님들의 조언 부탁 드립니다.
;x,y 좌표축출
(defun c:xy(/ x1 x2 x3 x4 y1 y2 y3 y4 ax ay pt1 pt2 pt3 pt4 )
(setvar “cmdecho” 0)
(setvar “osmode” 1)
(setq pt1 (getpoint “nPick xy point: “))
(setvar “osmode” 0)
(setq pt2 (getpoint “nPick 1st flag point: “))
(command “line” pt1 pt2 “”)
(setq pt3 (getpoint “nPick Left or Right point: “))
(setq x1 (car pt1))
(setq y1 (cadr pt1))
(setq ax (strcat “Y:”(rtos x1 2 4)))
(setq ay (strcat “X:”(rtos y1 2 4)))
(setq x2 (car pt2))
(setq y2 (cadr pt2))
(setq x3 (car pt3))
(setq y3 (cadr pt3))
(if (< x3 x2) (setq x4 (- x2 20)))
(if (> x3 x2) (setq x4 (+ x2 20)))
(setq y4 y2)
(setq pt4 ( list x4 y4))
(command “line” pt2 pt4 “”)
(setq x1 (/ (+ x2 x4) 2))
(setq y1 (+ y2 0.5))
(setq pt1 (list x1 y1))
(command “text” “c” pt1 2 0 ay)
(setq y1 (- y2 2.5))
(setq pt1 (list x1 y1))
(command “text” “c” pt1 2 0 ax)
)