객체 0,0으로 이동 및 limits 설정 lsp이 있을까용??

오토리습은 손으로 하는 도면작업을 그대로 재현하는것 뿐입니다. 님이 도면을 열고나서 손으로 작업하는 방법을 구체적으로 나열하시면 바꿔드리겠습니다.

회사 보안상 사진 첨부가 불가능한점 양해 부탁드립니다. ㅠ_-

예를들어 파일하나에 도면 하나가 있습니다. 파일을 열면 1. 모든객체를 잡고 move를 누른 후 도면 왼쪽 하단 모서리가 0,0이 되게 합니다. 2. 범위 설정을 합니다. limits 명령어를 누른 후 왼쪽 하단 모서리를 클릭, 오른쪽 상단모서리를 클릭합니다. 3. zoom 명령어를 누른 후 all을 누릅니다. 그러면 화면에 꽉 차 보입니다.

저장하고 종료합니다. 이게 저의 반복된 작업입니다 ㅠㅠ

도면 왼쪽 하단모서리와 오른쪽 상단모서리 같은 설명은 도면파일을 같이 제공하실 때만 유용합니다.

편한것을 원하시니 방법을 조금 바꾸겠습니다. "zoom" "E" 가 여기에더 적합하다고 보여집니다.

명령중에 setvar 라는 것을 보시면 대부분의 설정값이 저장되어 있습니다. 저는 범위를 나타내는 "extmax" "extmin"을 사용하려고 합니다.  ( 3차원 좌표라 Z값을 날려야 합니다. )

1단계  –  님이 손으로 하는 작업을 그대로 서술 합니다.

  모두선택 이동하기   –  "move" "all" "" 하단모서리점 0,0   화면을 전부보기     –  "zoom"  "e"   한계치설정          –  "limits" 0,0  상단모서리점

2단계 – 명령을 그대로 변형하여 옮기기 – 하단모서리점 (reverse (cdr (reverse (getvar "extmin"))))                                         상단모서리점 (reverse (cdr (reverse (getvar "extmax"))))

  모두선택 이동하기   –  (command "move" "all" "" (reverse (cdr (reverse (getvar "extmin")))) '(0 0) )   화면을 전부보기     –  (command "zoom"  "e")   한계치설정          –  (command "limits" '(0 0) (reverse (cdr (reverse (getvar "extmax")))) )

3단계 – 마음에 드는 명령이름정하기 (defun c:test()   (command "move" "all" "" (reverse (cdr (reverse (getvar "extmin")))) '(0 0) )   (command "zoom"  "e")   (command "limits" '(0 0) (reverse (cdr (reverse (getvar "extmax")))) ) );defun

모서리의 소수점이 2자리에서 정확히 안떨어지는 문제는 있을 것입니다.

이걸 이용해서 lsp.을 제가 작성을 해볼까요? ㅎㅎ Move all 보다는 move e가 더 정확한 표현 맞네요!!

감사합니다!! 적용해서 load 시키니까 엄청 잘되네요!!

다시한번 감사드립니다.

명령어를 하나 더 추가한다면 (defun c:test()   (command "move" "all" "" (reverse (cdr (reverse (getvar "extmin")))) '(0 0) )   (command "zoom"  "e")   (command "limits" '(0 0) (reverse (cdr (reverse (getvar "extmax")))) )   (command "purge" "a") );defun

이렇게 수정해도 될런지요?? 감사합니다!!

잘 응용하시네요 생각보다 쉬울 겁니다. 저장까지도 넣어보시고요. 필요한걸 조금씩 만들어 쓰시다  금방 적응하시겠네요. 작업하시는 분이 직접 만드는게 가장 효율적입니다. 시간지나면 저도 님에게 배울게 있겟죠.

xcsh님 덕분에 많이 배우고 많이 얻고 갑니다.

시간 할애하셔서 답 주셨으며, lsp 작성해주신점 정말 감사드립니다.

항상 하시는 모든일에 행운이 깃드시길 바라겠습니다. 감사합니다.