cafe

말그대로 xy좌표 구하는 리습이 있습니다. 그냥 아무곳이나 찍어주면 xy좌표가 나오는데 그 좌표들을 찍고싶은곳 찍고 스페이스바 누르면 메모장이나 엑셀로 바로 뜨게 하는 방법은 없을까요?? (defun c:coord() (defun SETERR(s) (if (/= s "Function...

polar mp1 0 mtlen) mp4 (polar mp2 0 mtlen))) (if (= mju 9) (setq mp3 (polar mp1 pi mtlen) mp4 (polar mp2 pi mtlen))) (if (and (/= mp3 nil) (/= mp4 nil)) (command "pline" mp1 mp2 mp4 mp3 "c")) (setvar "osmode" os) (princ) ) xy(좌표표기).lsp

물론 있을실줄 알지만.... 제가 사용하기엔 편안해서 올려 봅니다. 명령어는 X입니다. 이상.. 피곤해 죽겠습니다. 에공

ㅋㅋ 그냥 대강 만들었는데욤 많이 필요한거 같아서욤 글씨 크기는 딤스탈 따라가구욤 xy 바뀌서 ne로 나와욤 스고들 하세욧 측량인들 홧팅욤~

운영체제: WIN7 캐드버전: MAP6 여러폴리곤의 화살표부분 xy값을 텍스트가 나오도록 하고싶습니다. 부탁드립니다. test2.dwg

측량좌표 리습입니다. 도면에서 직접 좌표를 입력하는 좌표 리습 우선 원하시는방에 Coor-xy.lsp 리습파일을 복사하세요 캐드...글자크기 쓰시면되요 그다음 원하시는 위치를 클릭하면 짜잔...좌표가 나옵니다. 편안하게 잘쓰십시요...기존 좌표 리습...

안녕하세요? XY 좌표를 기입할 때 리습을 사용해서 편리하게 사용 중에 있는데요. 아무래도 한 도면에 좌표를 많이 뽑다보면 해당 지점이나 X, Y좌표값이 헷갈릴때가 있거든요. 그래서 좌표가 기입될 때 아래 그림의 2번처럼 지시선 위에 XY좌표값이...

(defun c:xy(/ p0 p0x p0y sca scax lup zin po2 xp) (vl-load-com) (command "ucs" "") (setq p0 '(0 0 0));; (defun xy_0 (#aa / #a #b #c #index #d #e);;#aa (setq #a(vl-string->list #aa)) (if (member 45 #a) (setq #a(vl-remove 45 #a) #e '(45...

꼭지점 좌표 갯수로 알수 있겠죠. (setq $cp0 ($3p (car $poly_list) (last $poly_list) (nth (fix (* 0.5 $pn)) $poly_list)) ; 리스트중에 처음 포인트 (car $poly_list) ; 마지막 포인트 (last $poly_list) ; 반 +1번째 포인트 (nth (fix (* 0.5 $pn...