캐드 분류
여러개의 dwg파일을 한화면에모으는 리습인데 수정해주실수있나요?
컨텐츠 정보
- 236 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
ryu71000 님 께서 올려주신 폴더안의 dwg파일을 한화면에모으는 리습인데,
상큼메론90 님 께서 세로로 모이게 수정해주셨습니다,
혹시 가로로 모이게(왼쪽에서 오른쪽방향) 수정 해 주실수있나요,
필요했던 리습인데, 수정해주시면 감사하겠습니다.
요 밑에것은 ryu71000 님 께서 올려주신 파일이고, 첨부한파일은 상큼메론90 님이
만들어준 파일입니다.
(defun c:multi()
(vl-load-com)
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq file_name (getfiled "Data 선택" "c:/" "dwg" 8))
(setq file_dir (vl-filename-directory file_name))
(setq all_file_list (vl-directory-files file_dir "*.dwg"))
(setq total (length all_file_list))
(setq num_file 0)
(if (= total nil) (exit))
(repeat total
(setq ins_file_name (nth num_file all_file_list))
(setq num_file (1+ num_file))
(setq ins_file2 (strcat file_dir "/" ins_file_name))
(command "insert" ins_file2 "0,0″ "" "" "")
(princ "n >> Files Inserting:")(princ "=====>")(princ num_file)(princ " of ")(princ total) (princ " 파일명 : ") (princ ins_file_name)
);re
(alert "n 파일 인서트가 모두 완료되었습니다")
(command "zoom" "e")
; (princ file_name)
; (princ all_file_list)
(princ)
);de
(prompt "n 파일 멀티 인서트 : multi")
관련자료
댓글 3
/ 1 페이지