종단에서 폴대에서부터 좌표를 줏을때 리습을 썼었는데 잃어버려서
구합니다.
기준이 되는 지점을 정하고 그 점에서부터 좌표를 내려서 글자로 써주는
리습이었는데 있으신분 좀 올려주시면 감사하겠습니다.
공유
비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.
해당 질문을 신고하는 이유를 간단히 입력해주세요.
해당 답변을 신고하는 이유를 간단히 입력해주세요.
해당 유저를 신고하는 이유를 간단히 입력해주세요.
(defun c:xy(/ p0 po po2 xp yp)
(while (setq po (getpoint “nPick First Point:”))
(command “ucs” “o” p0)
(if po
(progn
(setq po2 (getpoint po “Pick Second Point:”))
(setq xp (strcat “X” (rtos (cadr po) 2 0)));;—-3부분이 소수자리수
(setq yp (strcat “Y” (rtos (car po) 2 0)));;—-3부분이 소수자리수
(command “leader” po po2 “” xp yp””)
);;progn
);;if
);;while
)
이거는 절대 좌표로만 좌표가 나오는데 기준점이 되는점을 지정해서
상대좌표로 좌표를 추출하고 싶은데 가능할까여?
네 그렇습니다..지시선으로 뽑아주지 않아도 글자만 써줘도 됩니다….
좌표입력
(defun c:xy(/ p0 po po2 xp yp)
(while (setq po (getpoint “nPick First Point:”))
(command “ucs” “o” p0)
(if po
(progn
(setq po2 (getpoint po “Pick Second Point:”))
(setq xp (strcat “X” (rtos (cadr po) 2 0)));;—-3부분이 소수자리수
(setq yp (strcat “Y” (rtos (car po) 2 0)));;—-3부분이 소수자리수
(command “leader” po po2 “” xp yp””)
);;progn
);;if
);;while
)
음…..기준이 되는 지점을 정한다는것은..해당 점이 0,0이 되면서.. x,y 좌표를 지시선으로 뽑아주는건가염???