객체 0,0으로 이동 및 limits 설정 lsp이 있을까용??
컨텐츠 정보
- 312 조회
- 7 댓글
- 0 추천
- 0 비추천
- 목록
본문
캐드 파일을 저장하기전에
저는 항상 도면 위치를 0,0으로 이동시키고,
limits 를 설정하여 왼쪽 하단 모서리 오른쪽 상단 모서리를 차례로 클릭합니다.
purge라는 개체가 없는 layer 삭제까지 하고 저장하는데요.
도면 위치 0,0으로 이동 및 limits 설정을 보다 손쉽고 간단히 할수 있는 lsp.이 있을까요??
매번 할때 마다 손이 너무 가네요..ㅠㅠ
검색을 했는데도 검색실력이 딸려서 인지 안나오네요..ㅅ.ㅅ
관련자료
xcsh님의 댓글
도면 왼쪽 하단모서리와 오른쪽 상단모서리 같은 설명은 도면파일을 같이 제공하실 때만 유용합니다.
편한것을 원하시니 방법을 조금 바꾸겠습니다. "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자리에서 정확히 안떨어지는 문제는 있을 것입니다.
배우자캐드고캐드님의 댓글
감사합니다!! 적용해서 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
이렇게 수정해도 될런지요?? 감사합니다!!