Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
Đăng nhập để thực hiện theo  
hanoivv

Cần lisp in liên tục nhiều bản vẽ trong cad2004 trở lên

Các bài được khuyến nghị

MANHHUNGXDA    458
Bac nao cao thu viet ho em cai lisp in nhieu ban ve trong cad2004 tro len voi

Rat mong hoi am som

Cam on

Cái ông này lạ thật, cái vấn đề này nói nhiều lần rồi.

Ông gõ chữ MPlot vào mục tìm kiếm của diễn đàn nhé

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
mitmit    0

Chào anh Hùng. Cảm ơn a đã chỉ dẫn cho em. Em sẽ cố gắng mày mò theo cách a chỉ. E vẫn đang dùng Cad2004, e sẽ cập nhật cad 2007 xem. Có gì e sẽ liên lạc với a. Vì a đang ở trên diễn đàn nên em muốn cảm ơn a luôn. <_<

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hdg2318    31
(defun C:AutoPlot (/ path inc files-name-list char-test file-scr

err oer)

(defun err(s)

(if (and (/= s "Function cancelled")(/= s "quit / exit abort"))

(princ (strcat "\n>>Error: " s))

)

(setq *error* oer)

)

(princ " Multiple Plot Acad files.")

(setq oer *error* *error* err)

(setq path (getfiled "Select a Drawing File" "D:/In/" "dwg" 8))

(if (= path nil)(exit))

(setq inc (strlen path)

files-name-list nil

char-test nil

)

(while (/= char-test "\\")

(setq char-test (substr path inc 1))

(setq inc (1- inc))

)

(setq path (substr path 1 (+ inc 1)))

(setq files-name-list (vl-directory-files path "*.dwg"))

(setq files-name-list (mapcar

'(lambda (x)

(strcat path x)

)

files-name-list)

)

(setq files-name-list (acad_strlsort files-name-list))

(setq inc 0)

(setq file-scr (open (strcat path "file-scr.scr") "W"))

(repeat (length files-name-list)

(write-line (strcat "_.Open \"" (nth inc files-name-list) "\"") file-scr)

(write-line "_.Plot" file-scr)

(write-line "_No" file-scr)

(write-line "" file-scr)

(write-line "PREVIOUS PLOT" file-scr)

(write-line "" file-scr)

(write-line "_No" file-scr)

(write-line "_No" file-scr)

(write-line "_Yes" file-scr)

(write-line "_.Close" file-scr)

(write-line "_No" file-scr)

(setq inc (1+ inc))

)

(close file-scr)

(command "_.Script" (strcat path "file-scr.scr"))

(setq *error* oer)

(princ)

)

(princ)

đó la lisp để in tự động nhiều bản vẽ vói định dạng in của bản vẽ mà bạn vừa in.

Chỉ cần gõ AUTOPLOT ,no se in toàn bộ các bản vẽ trong thư mục gốc mà bạn chọn

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hdg2318    31

ban luu thanh 1 file .lsp, sau do ban dung load file lisp nay ra.

ban muon in theo dinh dang nao,ban nen in truoc 1 ban de lenh la'y mau~ in, vi no se lay cac thiet lap cua ban ve vua in truoc do.

ban can in bao nhieu ban,thi copy vao trong 1 thu muc.

dung lenh AUTOPLOT, se co 1 hop thoai hien len---> chon duong dan toi thu muc muon in--->chon 1 file dau tien---> ngoi` cho` no in xong thi ra lay ban ve ve`.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
hdg2318    31

Nè bạn! VD như trong 1 bản vẽ đó có nhiều khung in có tỷ lệ khác nhau thì sao?

lisp này chỉ nên dùng khi mỗi file chứa 1 bản vẽ duy nhất, kiểu căn giấy là extend.

nếu 1 file có nhiều khung bản vẽ, bạn nên tham khảo chương trình VNPlot của bác phanthanhtu, rất hay!

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×