VnPlot 2.0-Tự động in bản vẽ cho AutoCad 2004-2010(Ko cần VBA)

[tinya1225 36]

Chương trình bác viết in rất ổn. Bổ xung thêm plot nhiều layout nữa thì còn j bằng. mong bác cố gắng sớm hoàn thiện cho anh em đc nhờ :rolleyes:

[tunsamun 0]

Ver 2.0 của bác dùng khá tốt,cám ơn và mong bác phát triển thêm cho hoàn thiện!Cám ơn rất nhiều!

[cocobubu 1]

Em thấy in được nhưng sắp xếp bản vẽ theo thứ tự thì lại chưa thấy đâu,số bản in cũng ko có.

[cocobubu 1]

Phần tỷ lệ tự động em muốn chọn 1mm=1 đơn vị trong bản vẽ thì làm thế nào?trong khi em đã chuyển đơn vị bản vẽ về mm rồi nhưng khi in nó vẫn để tỷ lệ theo đơn vị inches.

[TimMusT 0]

bác KS.PhanThanhTu ơi. e cũng đang tìm hiểu về cách in hàng loạt. e giải nén file của bác ko có lisp. bác cho e xin cái lisp Chương trình in tự động Full, e tìm trên diễn đàn ko có. gửi vào mail : hanik3n4z@gmail.com zúp em nhé. Thanks bác nhiều ^^

[ramborock 2]

Chương trình hay, tuy nhiên ở cty của mình, thì mình chỉ viết 2 dòng lisp là đủ rùi, 1 lệnh cho layout, 1 cho model. Còn cái này phải set nhiều thứ quá

[huunhantvxdts 195]

Chương trình hay, tuy nhiên ở cty của mình, thì mình chỉ viết 2 dòng lisp là đủ rùi, 1 lệnh cho layout, 1 cho model. Còn cái này phải set nhiều thứ quá

hay vậy bạn nên share lên cho ae học hỏi chứ, đây là diễn đàn để ae cùng học thêm nhiều kiến thức bổ ích đây????

[ramborock 2]

Các bạn tham khảo nha

(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
)

[ramborock 2]

sorry

(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
)

[huunhantvxdts 195]

sorry

(defun C:1 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "No" "Yes" "No" "No" "Yes" "Yes")
)
;model
(defun C:0 (/ )
(command "-plot" "Yes" "" "canon LBP3500" "A3" "Millimeters" "Landscape" "No" "Extents" "Fit" "Center" "Yes" "elec A3.ctb" "Yes" "As displayed" "No" "Yes" "Yes")
) min

Cái này làm sao chọn khung in hàng loạt, mình mang về sữa lại đúng máy in của mình in trên model chỉ in được đúng 1 bản nhưng khung in là toàn màn hình

[ramborock 2]

Lệnh "1" dùng nhiều hơn, in bên layout, còn lệnh "0" mình chỉ xài trong trường hợp model chỉ có 1 hình cần in, muốn in bao nhiêu tờ thì nhấn lệnh bấy nhiêu, còn in hàng loạt nhiều file thì cty mình ít làm vì phải chắc các bản vẽ không bị lỗi, luôn phải kiểm tra lại trước khi in. Kiến thức lisp hạn hẹp, chỉ viết được đến đó thui bạn và chỉ dùng cho cad 2007 còn các phiên bản khác thì mình không chắc.

[huunhantvxdts 195]

ok để mình thử xem sao?? cám ơn bạn nhiều

[ps8x766 0]

Cám ơn bác! Lisp rất hay và dễ sử dụng! Nói chung là rất ok! Thanks alot!

[congcd4 0]

Có chức năng Published của cad rồi cần gì p hải Lisp với VBA cho mệt, kết hợp với sheetset nữa thì quá ổn, quá trình in ấn tự động, báo lỗi khi phát sinh trong khi in!

[vuducdai 0]

Chuẩn. Mình cũng đã thử Publish khi in rồi, rất hay. Tuy nhiên có hạn chế là mỗi layout chỉ có một khung bản vẽ để in thôi, Bạn nào có cách khắc phục không. Nếu trong 1 layout mình muốn in 2 bản vẽ thì làm thế nào?

[khuathoangthuy 7]

Mình đã thử rồi. Nói chung rất hay. Làm giảm khối lượng lệnh khi in rất nhiều.

[ths 1]

quá hay, thanks bác thớt :)

[ths 1]

K hiểu sao. Dùng phần mềm này trên cad2007, in bản vẽ ra thì thứ tự bản vẽ cứ lộn tùng phèo :(

[dungksck 0]

bác nào gỡ giúp lỗi này với