특정부분 도면화
컨텐츠 정보
- 273 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
그 도면정리를 하다가여 한 파일에 싸그리다모아서 정리를 해놓고 다시 가공을 위해 프로그램을 입히려고
한느데 도면이 너무 많아서 캐드프로그램을 읽어내는 시간이 너무 오래걸려서여 특정부분만 캐드파일로 따로 만들어서 저장해서 가공 프로그램이 캐드를 여는 시간을 줄이고 싶은데여 일일히 지워서 하는 방법은 너무 오래걸릴것 같고요 부탁드려요
관련자료
엔씨벤딩님의 댓글
선택한 범위를 선택한 문자명의 파일로 내보내줍니다. d드라이브에 wblock 이라는 폴더를 만들고 실행하세요
(defun c:wb( / os fn fntxt filename dwgname pt1 pt2 )
(defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os) (command "clayer" "0″) (princ) ) (setq os (getvar "osmode"))
(WHILE ( = 1 1) (setq pt1 (getpoint "객체선택 윈도우 첫번째점 클릭…n")) (setq pt2 (getcorner pt1 "객체선택 윈도우 두번째점 클릭…n"))
(setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n"))
(WHILE (= filename NIL) ;선택이 nil이라면 (setq filename (entsel "n 파일명 문자를 선택.. (단일행 문자)..n")) )
(setq fn (car filename)) (setq fntxt (cdr (assoc 1 (entget fn))))
(setq dwgname (strcat "d:\wblock\" fntxt )) ; 새도면 정의 = 엔터 (setvar "osmode" 0) (command "zoom" "w" pt1 pt2) (command "wblock" dwgname "" pt1 "cross" pt1 pt2 "" "undo" "") (setvar "osmode" os) (princ dwgname) (princ) ) ;WHILE END
) ;defun end