Đến nội dung


Hình ảnh
* * - - - 1 Bình chọn

[Đã xong] In nhiều bản vẽ trong model mà chỉ cần 1 layout


  • Please log in to reply
112 replies to this topic

#1 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 17 May 2011 - 04:16 PM

Lisp ứng dụng với các bản vẽ có cùng một khổ giấy, cùng tỷ lệ và kích thước giống nhau.
Sau đây là hướng dẫn sử dụng lisp.
Giả sử ta có rất nhiều bản vẽ (Giả sử in A4, tỷ lệ 1:1)
Hình đã gửi
Copy 1 khung trống ra ngoài và dùng polyline (layer ko in) để nối các điểm góc trái dưới khung in (như hình vẽ).
Vào trong Page Setup Manager … để cài đặt các thông số máy in hay khổ giấy như: chọn máy in (factory), tỷ lệ 1:1, khổ giấy A4, lực nét, màu sắc….
Hình đã gửi
Hình đã gửi
Vào trong layout, xóa cái cửa số liên kết với model đó.Vào trong Model copy 1 khung cho sang layout và đặt cho nó chuẩn đẹp.Hình đã gửi
(P/s: Không nên scale khung lại, sẽ bị sai đó. Nên tạo khung nhỏ hơn với khổ giấy 1 chút. Scale sẽ biến dạng. Đã phát hiện ra sai chỗ đó nên thành thật xin lỗi mọi người)
Dùng lệnh Mview để tạo một cửa sổ mới vừa khít với cái khung vừa copy sang
Hình đã gửi
Chui vào trong cửa sổ layout bằng cách gõ lệnh MSPACE và zoom vừa khít với với cửa sổ Mview. Hoặc dùng đoạn lisp sau để zoom cái khung đầu tiên vừa khít.

(defun c:zz()
(command "zoom" "W" (nth 0(setq lst (acet-ent-geomextents (car(entsel))))) (nth 1 lst))
(command "PSPACE" "")
)
Bước tiếp theo bạn load lisp Innhanh.lsp
Hình đã gửi

(defun c:innhanh()
(vl-load-com)
(command "MSPACE" "")
(setq en (entsel "\n Chon pline "))
(if en
(progn
(setq ob (vlax-ename->vla-object (car en))
n (vlax-curve-getEndParam ob)
i 1
)
(while (<= i n)
(progn
(setq p (vlax-curve-getPointAtParam ob i)
p0 (vlax-curve-getPointAtParam ob (- i 1))
)
(command "PSPACE" "")
(command "MSPACE" "")
(command "pan" p p0 )
(command "_plot" "" "" "" "" "" "" "")
(command "PSPACE" "")
(command "MSPACE" "")
(setq i (1+ i))
)

)
(command "PSPACE" "")
)
)
(princ)
)
Dùng lệnh “innhanh”, lúc này lệnh nhảy vào cửa sổ layout. Bạn chú ý ko được zoom to thu nhỏ nó mà chỉ kích chọn vào Polyline đó. (Mẹo: Để cái khung ngoài cùng nó ở dưới để trong bản vẽ đầu tiên có polyline hiển thị để ko phải zoom, zoom là sai). Bây giờ bạn chỉ cần ra máy in ngồi chờ bản vẽ thôi. Trên đây mình nói thì dài dòng nhưng trên thực tế ko có gì phức tạp lắm. Vì thời gian có hạn nên sau này mình cải tiến thêm vào số hiệu bản vẽ (Lisp của các bác Cadviet trên diễn đàn, nếu ai chỉnh sửa ngay thì giúp mình cải tiến luôn nhé). Để tiện thực hiện mình sẽ post video lên đây để các bạn xem. Cám ơn các bạn đã chú ý đọc.
P/s: http://www.cadviet.c...iles/3/hdsd.doc
Link Video:
http://www.4shared.c...NN/Cadviet.html
  • 3



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#2 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 17 May 2011 - 04:40 PM

Lisp ứng dụng với các bản vẽ có cùng một khổ giấy, cùng tỷ lệ và kích thước giống nhau.
Sau đây là hướng dẫn sử dụng lisp.

Dùng lệnh “innhanh”, lúc này lệnh nhảy vào cửa sổ layout. Bạn chú ý ko được zoom to thu nhỏ nó mà chỉ kích chọn vào Polyline đó. (Mẹo: Để cái khung ngoài cùng nó ở dưới để trong bản vẽ đầu tiên có polyline hiển thị để ko phải zoom, zoom là sai). Bây giờ bạn chỉ cần ra máy in ngồi chờ bản vẽ thôi. Trên đây mình nói thì dài dòng nhưng trên thực tế ko có gì phức tạp lắm. Vì thời gian có hạn nên sau này mình cải tiến thêm vào số hiệu bản vẽ (Lisp của các bác Cadviet trên diễn đàn, nếu ai chỉnh sửa ngay thì giúp mình cải tiến luôn nhé). Để tiện thực hiện mình sẽ post video lên đây để các bạn xem. Cám ơn các bạn đã chú ý đọc.
Vì up video hơi lâu nên mình sẽ P/s sau.

Hề hề hề,
Có vẻ như bác này muốn thành ông Niuton rồi????
Vì sao lại phải copy một khung trống ra nữa để rồi khi in lại phải đặt i = 1????
Nếu đặt i = 0 và bỏ cái khung copy thêm đi thì sao ?????
Hề hề hề,....
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#3 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 17 May 2011 - 04:48 PM

Hề hề hề,
Có vẻ như bác này muốn thành ông Niuton rồi????
Vì sao lại phải copy một khung trống ra nữa để rồi khi in lại phải đặt i = 1????
Nếu đặt i = 0 và bỏ cái khung copy thêm đi thì sao ?????
Hề hề hề,....

Hề hề hề, Cái bác Bình này nhanh thiệt. Đã xem cái lisp của em rồi. Hiii. Bác cắt cái râu ria của em đi quá tuyệt. Em cũng không để ý lắm. em làm như thế vì khi mình chọn mà trong cái model nó có nhiều đối tượng sợ kích nhầm mất công nên em cho nó ra ngoài đó bác ạ. Hề hề hề. Ý em là thế thui bác ạ. Hề hề hề, cái em hỏi bác lần trước ấy, em làm được roài. Hii
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#4 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 17 May 2011 - 09:55 PM

Hề hề hề, Cái bác Bình này nhanh thiệt. Đã xem cái lisp của em rồi. Hiii. Bác cắt cái râu ria của em đi quá tuyệt. Em cũng không để ý lắm. em làm như thế vì khi mình chọn mà trong cái model nó có nhiều đối tượng sợ kích nhầm mất công nên em cho nó ra ngoài đó bác ạ. Hề hề hề. Ý em là thế thui bác ạ. Hề hề hề, cái em hỏi bác lần trước ấy, em làm được roài. Hii

Hề hề hề,
Được roài thì mới ra cái lisp này chớ bộ?????
Mình cũng lọ mọ lên yahoo chờ mà hổng thấy tăm thấy bóng chi nên biết là đã xử ngon rồi.
Hề hề hề,...
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#5 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 18 May 2011 - 09:12 AM

Hề hề hề,
Được roài thì mới ra cái lisp này chớ bộ?????
Mình cũng lọ mọ lên yahoo chờ mà hổng thấy tăm thấy bóng chi nên biết là đã xử ngon rồi.
Hề hề hề,...

Hề hề hề. Lisp của em thì sơ sài quá bác ạ nhưng được cái dùng trong in bình đồ của em và chèn cái khung tọa độ (dùng trong trắc địa) nên xài cũng ngon bác ạ.
Bác lên mạng chờ em mà bác ko buzz mà lại để ẩn thì em có lên cũng chả biết bác có đó.
Ketxu nói đúng. Bác trở lại và lợi hại gấp mấy lần ý chứ. :lol:
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#6 tampticc

tampticc

    Chưa sử dụng CAD

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

Đã gửi 28 September 2011 - 05:06 PM

Em đã load cadvietisp.lsp nhưng đánh lệnh nó không nhận, bác nào giúp em với
  • 0

#7 tieptouch

tieptouch

    biết pan

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

Đã gửi 21 December 2011 - 02:01 PM

Trời đất ơi, bác thanhduan2407 ơi cái lisp này pro quá. Quá đỉnh luôn.
À mà bác ơi, nếu mà bổ sung thêm được cái khung bản đồ có tọa độ tại viền của khung ứng với mỗi khung bản vẽ thì lên tới đỉnh luôn ạ :D
  • 0

#8 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 December 2011 - 04:23 PM

Cảm ơn các bạn. Nếu các bạn thích mình gửi cho bạn lisp tạo khung bản đồ ngang dọc xiên. Vì đi công trình 4 tháng trời ngao du đất khách quê người mà ko có vi tính nên đành chịu ko mày mò thêm dc gì. Bây giờ mình bận rồi nên chắc ko viết dc ngay. Quan trọng là ý tưởng thôi. Nhờ có bác ketxu và bác Phamthanhbinh mà đã thành công. Có gì thắc mắc bạn cứ nói nhé.
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#9 tieptouch

tieptouch

    biết pan

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

Đã gửi 21 December 2011 - 04:37 PM

Cảm ơn các bạn. Nếu các bạn thích mình gửi cho bạn lisp tạo khung bản đồ ngang dọc xiên. Vì đi công trình 4 tháng trời ngao du đất khách quê người mà ko có vi tính nên đành chịu ko mày mò thêm dc gì. Bây giờ mình bận rồi nên chắc ko viết dc ngay. Quan trọng là ý tưởng thôi. Nhờ có bác ketxu và bác Phamthanhbinh mà đã thành công. Có gì thắc mắc bạn cứ nói nhé.


Thế bác cho em xin cái lisp tạo khung bản đồ ngang dọc xiên đó với ạ. Thanks bác nhiều :D
  • 0

#10 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 December 2011 - 07:30 PM

vì mang tính chuyên ngành, nhiều người coi khinh thành quả lao động của mình nên mình sẽ gửi cho bạn qua mail. Bạn gửi địa chỉ mail, mình online điện thoại nên ko gửi dc cho bạn. Ngày mai mình sẽ gửi cho.
P/s: lisp mang tính chất tọa độ khung bình đồ.
Giới thiệu lisp tạo ra.
1. Sau khi sắp xếp các khung bình đồ, vẽ pline đi qua 2 điểm cạnh cuối của khung (cái này để xoay).
2. Tạo folder "Wblock" ở ổ C (Cái này có thể viết chỉnh sửa để lisp tự tạo nhưng chưa viết)
3. Dùng lệnh XAM (xoay and move), hiii cả tiếng Việt và Anh. Kích vào Pline và nó sẽ tự tạo mắt lưới và tọa độ khung và lưu wblock ở ổ C.
4. Dùng lisp cuối cùng sẽ post. Nó sẽ tự động nhặt wblock ở ổ C và gắn vào khung layout khi in.
Mình chỉ giới thiệu qua thôi. Lập trình cũng ko khó nhưng quan trọng là ý tưởng và cách làm.
Sự đóng góp nhiều về mảng lập trình vẫn là bác Phamthanhbinh và bác Ketxu

  • 1



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#11 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 21 December 2011 - 09:00 PM

Chữ ký của bác Detail đây :

Ideas don't matter, execution does!


:D
Nhân tiện chúc mừng bác thanhduan trở về
  • 0

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


#12 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 21 December 2011 - 09:50 PM

hiii. Cảm ơn Ketxu. Anh chắc sẽ bận lắm. Đầu óc bị phân tán nhiều. Muốn học và viết lisp nhưng lại bị thằng khác nhảy vô. Bực lắm. Nhiều lúc vẫn viết lisp trộm (sợ sếp mắng). Hiii
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#13 tieptouch

tieptouch

    biết pan

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

Đã gửi 22 December 2011 - 08:38 AM

@ bác thanhduan2407: Vâng, rất cám ơn sự nhiệt tình của bác ợ. Em cũng chuyên ngành khảo sát thiết kế giao thông, cơ sở hạ tầng nên vớ được những lisp tuyệt vời của bác cũng như của các bác khác trên diễn đàn đã giúp em quá nhiều trong công việc. Bác gửi mail cho em xin lisp của bác với. Mail của em đây ợ: caotiepxd@gmail.com
Cám ơn tinh thần chia sẻ của bác :D
  • 0

#14 nguyentruonghan

nguyentruonghan

    Chưa sử dụng CAD

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

Đã gửi 28 December 2011 - 11:18 AM

Chào mọi người! Cho em hỏi khi dùng Lisp innhanh của anh thanhduan2407 đã chia sẽ làm thế nào để chỉnh sữa những plot mà mình đã in! Hay cái lệnh này là in thẳng ra giấy luôn? Em xin cảm ơn!
  • 0

#15 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 28 December 2011 - 01:11 PM

Chào mọi người! Cho em hỏi khi dùng Lisp innhanh của anh thanhduan2407 đã chia sẽ làm thế nào để chỉnh sữa những plot mà mình đã in! Hay cái lệnh này là in thẳng ra giấy luôn? Em xin cảm ơn!

Các thiết lập là trong Layout phần Page Setup Manager. Tùy chọn máy in, khổ giấy, lực nét là trong đó hết. Bạn có thể chọn máy in ảo để in ra PDF hoặc in trực tiếp ra giấy qua máy in là tùy chọn. Phần trên mình nói rất rõ rồi mà.
  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#16 cd2k44

cd2k44

    Edu level: li5

  • Members
  • PipPipPipPipPipPipPip
  • 648 Bài viết
Điểm đánh giá: 121 (tàm tạm)

Đã gửi 28 December 2011 - 01:34 PM

vì mang tính chuyên ngành, nhiều người coi khinh thành quả lao động của mình nên mình sẽ gửi cho bạn qua mail. Bạn gửi địa chỉ mail, mình online điện thoại nên ko gửi dc cho bạn. Ngày mai mình sẽ gửi cho.
P/s: lisp mang tính chất tọa độ khung bình đồ.
Giới thiệu lisp tạo ra.
1. Sau khi sắp xếp các khung bình đồ, vẽ pline đi qua 2 điểm cạnh cuối của khung (cái này để xoay).
2. Tạo folder "Wblock" ở ổ C (Cái này có thể viết chỉnh sửa để lisp tự tạo nhưng chưa viết)
3. Dùng lệnh XAM (xoay and move), hiii cả tiếng Việt và Anh. Kích vào Pline và nó sẽ tự tạo mắt lưới và tọa độ khung và lưu wblock ở ổ C.
4. Dùng lisp cuối cùng sẽ post. Nó sẽ tự động nhặt wblock ở ổ C và gắn vào khung layout khi in.
Mình chỉ giới thiệu qua thôi. Lập trình cũng ko khó nhưng quan trọng là ý tưởng và cách làm.
Sự đóng góp nhiều về mảng lập trình vẫn là bác Phamthanhbinh và bác Ketxu

Bác cho em xin lisp này với nhé.Tks bác nhiều,đây là mail của mình:anhtuan011185@gmail.com
  • 0

#17 nguyentruonghan

nguyentruonghan

    Chưa sử dụng CAD

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

Đã gửi 28 December 2011 - 01:35 PM

Dạ ý e là sau khi dùng lisp innhanh e đưa ra file trong Mycrosoft Office OneNote thì không chỉnh sữa được! chẳng hạn như muốn thay đổ lại tên và ký hiệu bản vẽ của mỗi chi tiết chẳng hạn. Còn nếu đưa ra file PDF thì nhờ a chỉ dùng chứ em còn mù về mấy cái đấy. Thanks
  • 0

#18 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 995 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 28 December 2011 - 02:21 PM

xin lỗi bạn. Topic chỉ nói là có tác dụng in hàng loạt nhiều bản vẽ trong 1 layout mà đã cài đặt sẵn. Ko có phần chỉnh sửa ở đây.
Bây giờ mình rất bận. Ko có thời gian để làm 1 hướng dẫn cụ thể (tuy nhiên khi làm thì cũng rất nhanh thôi). Mình đã lưu Mail rồi. Lúc nào rảnh mình sẽ gửi cho. Với tinh thần "chia sẻ" mình sẵn lòng gửi cho các bạn. Cá nhân tôi rất ghét kẻ coi thường thành quả của người khác. Đó đều là chất xám. Mọi ý kiến đóng góp mình xin nhận. Thân
  • 2



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#19 nguyentruonghan

nguyentruonghan

    Chưa sử dụng CAD

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

Đã gửi 28 December 2011 - 02:24 PM

Dạ cảm ơn anh rất nhiều! :)
  • 0

#20 dovananh.xd

dovananh.xd

    biết lệnh offset

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

Đã gửi 16 March 2012 - 09:39 AM

Aloooo!
Lisp của bác rất hay.
Em xin có một chút đóng góp vào lisp này để bác tham khảo xem nhé.
Bây h bên model có rất nhiều bản vẽ như thế, mà bây h chỉ có một khung bên layout. Tức là khung bên layout là cố định rồi đúng không ạ? Nhưng vấn đề bây h là mỗi một bản vẽ lại một ký hiệu (ví dụ như: NV-BACBIEN-01...n), hoặc ngày tháng vào thì không có.
Ý em bây h là bác thêm cái tiện ích nữa là tự động đánh số thứ tự ký hiệu bản vẽ vào.
Mong bác sớm có câu trả lời!
  • 0