Đến nội dung


Hình ảnh
* * * * * 2 Bình chọn

Thêm 1 lisp in nhiều bản vẽ


  • Please log in to reply
142 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 13 April 2011 - 04:41 PM

Ké topic của Nguyentuyen 1 chút về việc batch print :
In trong toàn thư mục VBA mình bị vấp 1 chỗ, đó là nếu user để chế độ alert nếu có VBA thì mỗi file mở ra nó lại có cái bảng ^^ MẶc dù đã dùng cả cách tắt security trong reg của cad rồi cũng không ăn thua, hy vọng ai có giải pháp thì giúp giùm ketxu với ^^
Còn tắt nó đi thì k phải ngợi.. In cứ gọi là ... ^^
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#22 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 13 April 2011 - 10:28 PM

em cũng ko biết. nhưng nếu bác nghiên cứu jùm cái đó thì nhất định em ko chỉ thanks bác 1 lần đâu.
hehhe. em thì ko biết gì về VBA nhưng em thấy nó tương tác trên nhiều BV độc lập được thì in chắc cũng có cách chứ ah

Ha!! MÌnh cũng ko biết gì VBA cả bạn ah. :wub:
Tiện thể sửa thêm 1 chút là: sau khi PREVEW xong thì sẽ ko thoát khỏi Lisp luôn. :D. Đã úp ở #1

-Mình nghĩ cái này cũng có thể làm đc in trong cùng 1 Folder
Tạo 1 file .txt lưu: tên máy in, khổ giấy,tên block khung tên. 1 file lisp mà cứ load lên là in luôn (líp này lấy tên máy in + khổ giấy + tên block khung tên ở trong file .TXT). Rồi dùng cái ScriptPro của bác Hoành giới thiệu ở đây rồi chạy.
http://www.cadviet.c...showtopic=10618
Nghĩ vậy nhưng chưa thử :lol:
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#23 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 14 April 2011 - 08:07 AM

Vậy tại sao bạn không duyệt qua toàn bộ file dwg ở thư mục, rồi mở, in, rồi đóng như truyền thống (nếu k tính tới cái khó ketxu đề cập trên kia)?
  • 1

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#24 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 14 April 2011 - 10:13 AM

Ké topic của Nguyentuyen 1 chút về việc batch print :
In trong toàn thư mục VBA mình bị vấp 1 chỗ, đó là nếu user để chế độ alert nếu có VBA thì mỗi file mở ra nó lại có cái bảng ^^ MẶc dù đã dùng cả cách tắt security trong reg của cad rồi cũng không ăn thua, hy vọng ai có giải pháp thì giúp giùm ketxu với ^^
Còn tắt nó đi thì k phải ngợi.. In cứ gọi là ... ^^

hehhe vậy bác cứ để một bảng hướng dẫn sữ dụng là tắt chế độ alert đi. bác cho em cái VBA đó nhé
  • 0
Hình đã gửi

#25 lp_hai

lp_hai

    biết lệnh measure

  • Members
  • PipPipPipPipPipPip
  • 456 Bài viết
Điểm đánh giá: 202 (khá)

Đã gửi 14 April 2011 - 10:24 AM

@ketxu
không biết cái này có júp bác ko?
em chả biết j, bác đừng phiền nhá


Enable Macro Virus Protection

The virus protection mechanism displays a built-in warning message whenever you open a drawing that may contain macro viruses.

To set the AutoCAD VBA project options

1.From the Tools menu choose Macro Macros to open the VBA Macros dialog box.
2.From the VBA Macros dialog box, choose Options to open the Options dialog box.
3.From the Options dialog box, select the options you want to enable.
Choose OK.
  • 0
Hình đã gửi

#26 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5685 Bài viết
Điểm đánh giá: 2606 (tuyệt vời)

Đã gửi 14 April 2011 - 10:38 AM

@lp_hai : rất tiếc là với VBA thì mình chưa up đc, bạn thông cảm cho mình ^^ Trên mạng có khá nhiều module batch, bạn GG sẽ thấy, rồi sử dụng vào module Print thôi. Còn nếu để dùng, lúc nào rỗi mình sẽ chuyển qua VB để up ^^ ( bản thân mình vẫn thích dùng VBA, vì rất ngại chuyện đang vẽ cad lại phải gọi application ở chỗ khác, mà vấn đề về tốc độ cũng khá đau đầu )
  • 2

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#27 muacokho123

muacokho123

    biết vẽ line

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

Đã gửi 15 April 2011 - 08:42 AM

Muốn tự viết cái Líp in cho mình nên Em mới viết cái Lisp này. Các bác cho em nhận xét nhé.
Tên lệnh là: TPL :lol:

Download: TPL

Hình đã gửi

Hướng dẫn:

1: Chọn tên máy in, khổ giấy, plotstyle cần in
2: Có 2 lựa chọn :
------Block: Khi chọn vùng in sẽ nằm trong block chọn. Để lấy block mẫu ấn vào nút Pick
------Rectangle: Khi chọn vùng in sẽ nằm trong rectangle chọn. Và chỉ chọn đc Rec có layer ở khung layer
3: Khi muốn xuất ra PDF thì chọn đường dẫn lưu File
4: Sắp xếp in:
------ Nomal: cái nào chọn trước in trước
------ Left->Right : in từ trái sang phải bất kể chọn cái nào trước
------ Top->Bottom : in từ trên xuống dưới bất kể chọn cái nào trước.
Thank!!!

lisp nayf khi tớ load vào nova thì no lại hiểu như là vẽ PL bạn àh, bạn xem lại cái nha
  • 0

#28 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 15 April 2011 - 04:17 PM

lisp nayf khi tớ load vào nova thì no lại hiểu như là vẽ PL bạn àh, bạn xem lại cái nha

Bạn đánh tên lệnh là TPL hay PL thế. TPL là đúng nhé!
Mình không dùng Nova nên cũng không biết về gì về nó. Hay cái lệnh TPL bị trùng vào cái lệnh nào của Nova nhỉ :ph34r:
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#29 muacokho123

muacokho123

    biết vẽ line

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

Đã gửi 15 April 2011 - 10:59 PM

Mình gõ TPL mà, gõ từng từ một mà ^^, bên cad 2007 thì no nhận lệnh, nhưng khi vào nova mở thi nó hiểu vẽ PL hihi, không hiểu sao nua ^~^
  • 0

#30 muacokho123

muacokho123

    biết vẽ line

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

Đã gửi 15 April 2011 - 11:04 PM

Được rồi bạn ah dowload nhầm ^^. mình sẽ thử có gì mình sẽ PM lai
  • 0

#31 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 15 April 2011 - 11:34 PM

Được rồi bạn ah dowload nhầm ^^. mình sẽ thử có gì mình sẽ PM lai

MÌnh tưởng nó bị trùng lệnh nên định nghĩa thêm vài cái lệnh cho bạn chọn, hì. bạn sửa đc rồi thôi thì mình Post lại lên #1 cho ai dùng thích đánh lệnh là gì thì đánh :lol:

PS : Mình vừa sửa 1 số lỗi trong phần PLOT to File của Líp. Bạn nào down rồi thì down lại giúp mình nhé. Nếu không khi chọn đường dẫn là nó lưu sai chỗ.
Và sửa phần SORT đối với lệnh in nhé. Nếu ko là nó ko sếp theo thứ tự đâu!!!
MOng các bạn thông cảm :wacko: Úpdate ở #1 nhé
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#32 vuhaianh1981

vuhaianh1981

    biết pan

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

Đã gửi 17 April 2011 - 10:00 AM

Muốn tự viết cái Líp in cho mình nên Em mới viết cái Lisp này. Các bác cho em nhận xét nhé.

16/4: Chú ý :
Mình vừa sửa 1 số lỗi trong phần PLOT to File của Líp. Bạn nào down rồi thì down lại giúp mình nhé. Nếu không khi chọn đường dẫn là nó lưu sai chỗ.
Và sửa phần SORT đối với lệnh in nhé. Nếu ko là nó ko xếp theo thứ tự đâu!!!


Lệnh TPL hoặc IN hoặc MP:

Download: TPL-IN-MP


Hình đã gửi

Hướng dẫn:

1: Chọn tên máy in, khổ giấy, plotstyle cần in
2: Có 2 lựa chọn :
------Block: Khi chọn vùng in sẽ nằm trong block chọn. Để lấy block mẫu ấn vào nút Pick
------Rectangle: Khi chọn vùng in sẽ nằm trong rectangle chọn. Và chỉ chọn đc Rec có layer ở khung layer
3: Khi muốn xuất ra PDF thì chọn đường dẫn lưu File
4: Sắp xếp in:
------ Nomal: cái nào chọn trước in trước
------ Left->Right : in từ trái sang phải bất kể chọn cái nào trước
------ Top->Bottom : in từ trên xuống dưới bất kể chọn cái nào trước.
Thank!!!

bạn ơi sao mình tải về khi chọn máy in thì nó không nhận. mình đã thử chọn các máy in khác nhung cũng khong dc
  • 0

#33 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 17 April 2011 - 10:50 PM

bạn ơi sao mình tải về khi chọn máy in thì nó không nhận. mình đã thử chọn các máy in khác nhung cũng khong dc

Bạn down lại ở #1 nhé. Mình vừa kiểm tra và sửa lại rồi ;)
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#34 tranlaogia

tranlaogia

    biết lệnh scale

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

Đã gửi 18 April 2011 - 10:18 AM

cam onn pac rat nhieu nhe!
bai viet cua pac giup e rat nhiẻtong luc nay!
:D

cái lisp này của bạn ko hay ở chỗ. ko căn lề được, và gặp bản vẽ in đứng thì bó tay luôn.
  • 1

#35 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 18 April 2011 - 11:15 AM

cái lisp này của bạn ko hay ở chỗ. ko căn lề được, và gặp bản vẽ in đứng thì bó tay luôn.

Bản vẽ in đứng là sao bạn. Nó tự chỉnh Landscape với Portrait ma`
  • 0

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#36 hadeptrai

hadeptrai

    biết vẽ polygon

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

Đã gửi 18 April 2011 - 12:50 PM

các bác ơi sao e ấn vào nó cứ báo là chưa cài expresstoll thế mà e vẫn dùng được lệnh layiso và layon ầm ầm mà
  • 0

#37 nguyentuyen6

nguyentuyen6

    biết lệnh chamfer

  • Advance Member
  • PipPipPipPip
  • 213 Bài viết
Điểm đánh giá: 124 (tàm tạm)

Đã gửi 18 April 2011 - 10:58 PM

các bác ơi sao e ấn vào nó cứ báo là chưa cài expresstoll thế mà e vẫn dùng được lệnh layiso và layon ầm ầm mà

MÌnh vừa sửa lại rồi bạn ạ. Bạn dơn lại nhé.

Mới update thêm cái Plot Offset!!
Các bạn Test giúp mình với nhé! :lol:
  • 1

Lisp In bản vẽ hàng loạt:
http://www.cadviet.c...ndpost&p=139860


#38 muacokho123

muacokho123

    biết vẽ line

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

Đã gửi 21 April 2011 - 03:31 PM

Muốn tự viết cái Líp in cho mình nên Em mới viết cái Lisp này. Các bác cho em nhận xét nhé.

Công dụng: Dùng để in nhiều bản vẽ trong 1 file cad (dwg) mà chỉ phải chỉnh 1 lần.
20/4: Sửa lỗi
18/4: Sửa lỗi+ thêm phần Plot offset
16/4: Chú ý :
Mình vừa sửa 1 số lỗi trong phần PLOT to File của Líp. Bạn nào down rồi thì down lại giúp mình nhé. Nếu không khi chọn đường dẫn là nó lưu sai chỗ.
Và sửa phần SORT đối với lệnh in nhé. Nếu ko là nó ko xếp theo thứ tự đâu!!!


Lệnh TPL hoặc IN hoặc MP:

Download: TPL-IN-MP


Hình đã gửi

Hướng dẫn:

1: Chọn tên máy in, khổ giấy, plotstyle cần in
2: Có 2 lựa chọn :
------Block: Khi chọn vùng in sẽ nằm trong block chọn. Để lấy block mẫu ấn vào nút Pick
------Rectangle: Khi chọn vùng in sẽ nằm trong rectangle chọn. Và chỉ chọn đc Rec có layer ở khung layer
3: Khi muốn xuất ra PDF thì chọn đường dẫn lưu File
4: Sắp xếp in:
------ Nomal: cái nào chọn trước in trước
------ Left->Right : in từ trái sang phải bất kể chọn cái nào trước
------ Top->Bottom : in từ trên xuống dưới bất kể chọn cái nào trước.
5: Chỉnh Plot Offset
Thank!!!

hình như trong nova không hiểu lệnh in bạn àh, mình load ra bảng và thử xả block lẫn rectang mà khi preview no ra trắng tinh, hay plot thì không thấy in được, cad 2007 thi vẵn ok, load vào nova thi không được :-(
  • 0

#39 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 21 April 2011 - 03:44 PM

hình như trong nova không hiểu lệnh in bạn àh, mình load ra bảng và thử xả block lẫn rectang mà khi preview no ra trắng tinh, hay plot thì không thấy in được, cad 2007 thi vẵn ok, load vào nova thi không được :-(


Có thể là do trong Nova thì tỷ lệ bản vẽ là 1/1000 (không phải là tỷ lệ 1/1) nên rất có thể trong thuật toán của bạn í có chút nhầm lẫn khi định dạng tỷ lệ in không chính xác (nhỏ quá so với bản vẽ A3) nên bạn có thể thấy toàn là trắng tinh vậy thôi
:rolleyes:
  • 1

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#40 luatks86

luatks86

    Chưa sử dụng CAD

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

Đã gửi 09 May 2011 - 01:57 PM

Mình đang cần cái này, Cảm ơn nguyentuyen6!
  • 0