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

[hanoivv 0]

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

[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é

[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. <_<

[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

[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`.

[twins87bmt 4]

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

[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!