Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
6 replies to this topic

#1 hanoivv

hanoivv

    Chưa sử dụng CAD

  • Members
  • Pip
  • 1 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 12 March 2008 - 03:45 PM

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
  • 0

#2 MANHHUNGXDA

MANHHUNGXDA

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 926 Bài viết
Điểm đánh giá: 458 (tốt)

Đã gửi 12 March 2008 - 03:49 PM

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é
  • 0
Hãy ước cho trọn 1 ước mơ!

#3 mitmit

mitmit

    Chưa sử dụng CAD

  • Members
  • Pip
  • 3 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 12 March 2008 - 03:55 PM

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. <_<
  • 0

#4 hdg2318

hdg2318

    biết lệnh mirror

  • Members
  • PipPipPip
  • 158 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 25 November 2008 - 12:48 PM

(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
  • 0

Có 2 cách để nhìn đời:
1 là : coi như chẳng có gì là huyền diệu
2 là : coi như mọi điều đều huyền diệu


Click here


#5 hdg2318

hdg2318

    biết lệnh mirror

  • Members
  • PipPipPip
  • 158 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 26 November 2008 - 12:58 PM

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`.
  • 0

Có 2 cách để nhìn đời:
1 là : coi như chẳng có gì là huyền diệu
2 là : coi như mọi điều đều huyền diệu


Click here


#6 twins87bmt

twins87bmt

    biết vẽ circle

  • Members
  • PipPip
  • 34 Bài viết
Điểm đánh giá: -2 (bình thường)

Đã gửi 03 January 2011 - 04:06 PM

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

#7 hdg2318

hdg2318

    biết lệnh mirror

  • Members
  • PipPipPip
  • 158 Bài viết
Điểm đánh giá: 31 (tàm tạm)

Đã gửi 10 March 2011 - 10:01 PM

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!
  • 0

Có 2 cách để nhìn đời:
1 là : coi như chẳng có gì là huyền diệu
2 là : coi như mọi điều đều huyền diệu


Click here